Commit 1b3000db authored by François Bobot's avatar François Bobot
Browse files

yices native syntax : coquille @

parent ac6c5b8e
...@@ -55,7 +55,7 @@ let ident_printer = ...@@ -55,7 +55,7 @@ let ident_printer =
"bool";"unsat";"sat";"true";"false"; "bool";"unsat";"sat";"true";"false";
"true";"check";"assert";"TYPE";"SUBTYPE"; "true";"check";"assert";"TYPE";"SUBTYPE";
"scalar";"select";"update";"int";"real";"subtype";"subrange";"mk-bv"; "scalar";"select";"update";"int";"real";"subtype";"subrange";"mk-bv";
"bv-concat";"bv-extract";"bv-shift-right0"; "bv-concat";"bv-extract";"bv-shift-right0";"div";"mod";"bitvector";
] ]
in in
let san = sanitizer char_to_alpha char_to_alnumus in let san = sanitizer char_to_alpha char_to_alnumus in
...@@ -199,7 +199,7 @@ and print_fmla info fmt f = match f.t_node with ...@@ -199,7 +199,7 @@ and print_fmla info fmt f = match f.t_node with
fprintf fmt "@[(=> %a@ %a)@]" fprintf fmt "@[(=> %a@ %a)@]"
(print_fmla info) f1 (print_fmla info) f2 (print_fmla info) f1 (print_fmla info) f2
| Tbinop (Tiff, f1, f2) -> | Tbinop (Tiff, f1, f2) ->
fprintf fmt "@[(and (=> %a@ %a) (=> %a@ %a@))]" fprintf fmt "@[(and (=> %a@ %a) (=> %a@ %a))@]"
(print_fmla info) f1 (print_fmla info) f2 (print_fmla info) f1 (print_fmla info) f2
(print_fmla info) f2 (print_fmla info) f1 (print_fmla info) f2 (print_fmla info) f1
| Tnot f -> | Tnot f ->
...@@ -243,7 +243,7 @@ let print_type_decl info fmt = function ...@@ -243,7 +243,7 @@ let print_type_decl info fmt = function
"yices : algebraic type are not supported" "yices : algebraic type are not supported"
let print_logic_decl info fmt (ls,ld) = let print_logic_decl info fmt (ls,ld) =
if not (Mid.mem ls.ls_name info.info_syn) then if not (Mid.mem ls.ls_name info.info_syn) then begin
List.iter (iter_complex_type info fmt ()) ls.ls_args; List.iter (iter_complex_type info fmt ()) ls.ls_args;
Util.option_iter (iter_complex_type info fmt ()) ls.ls_value; Util.option_iter (iter_complex_type info fmt ()) ls.ls_value;
match ld, ls.ls_args with match ld, ls.ls_args with
...@@ -258,6 +258,7 @@ let print_logic_decl info fmt (ls,ld) = ...@@ -258,6 +258,7 @@ let print_logic_decl info fmt (ls,ld) =
(print_type_value info) ls.ls_value (print_type_value info) ls.ls_value
| Some _,_ -> | Some _,_ ->
unsupported "yices : function and predicate definitions are not supported" unsupported "yices : function and predicate definitions are not supported"
end
let print_logic_decl info fmt d = let print_logic_decl info fmt d =
if Sid.mem (fst d).ls_name info.info_rem then if Sid.mem (fst d).ls_name info.info_rem then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment