simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2026-01-24 02:16:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix handling of numeral constants

Browse source
This commit is contained in:
Simon Cruanes 2022-01-04 18:18:33 -05:00
parent 691ff12a01
commit 3477f39b73
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/smtlib/Typecheck.ml
View file

@ -96,6 +96,10 @@ let is_num s =
then CCString.for_all is_digit_or_dot (String.sub s 1 (String.length s-1))
else CCString.for_all is_digit_or_dot s
let string_as_z (s:string) : Z.t option =
try Some (Z.of_string s)
with _ -> None
let string_as_q (s:string) : Q.t option =
try
let x =
@ -214,9 +218,13 @@ let rec conv_term (ctx:Ctx.t) (t:PA.term) : T.t =
| PA.False -> T.false_ tst
| PA.Const s when is_num s ->
let open Base_types in
begin match string_as_q s with
| Some n -> T.lra tst (Arith_const n)
| None -> errorf_ctx ctx "expected a number for %a" PA.pp_term t
begin match string_as_z s with
| Some n -> T.lia tst (Arith_const n)
| None ->
begin match string_as_q s with
| Some n -> T.lra tst (Arith_const n)
| None -> errorf_ctx ctx "expected a number for %a" PA.pp_term t
end
end
| PA.Const f
| PA.App (f, []) ->
@ -360,7 +368,6 @@ let rec conv_term (ctx:Ctx.t) (t:PA.term) : T.t =
A.match_ lhs cases
*)
| PA.Arith (op, l) ->
Log.debugf 0 (fun k->k"arith op!");
let l = List.map (conv_term ctx) l in
conv_arith_op ctx t op l