simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: cpp: handle iflt and ifgt

Browse source
This commit is contained in:
Simon Cruanes 2023-11-19 21:47:14 -05:00
parent 71dcc0937c
commit 51cb8e2992
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/core/cpp/cpp.ml
View file

@ -1,6 +1,6 @@
module C = Configurator.V1
type op = Le | Ge
type op = Le | Ge | Gt | Lt
type line =
| If of op * int * int
@ -29,7 +29,9 @@ let prefix ~pre s =
let eval ~major ~minor op i j =
match op with
| Le -> (major, minor) <= (i, j)
| Lt -> (major, minor) < (i, j)
| Ge -> (major, minor) >= (i, j)
| Gt -> (major, minor) > (i, j)
let preproc_lines ~file ~major ~minor (ic : in_channel) : unit =
let pos = ref 0 in
@ -47,8 +49,12 @@ let preproc_lines ~file ~major ~minor (ic : in_channel) : unit =
if line' <> "" && line'.[0] = '[' then
if prefix line' ~pre:"[@@@ifle" then
Scanf.sscanf line' "[@@@ifle %d.%d]" (fun x y -> If (Le, x, y))
else if prefix line' ~pre:"[@@@iflt" then
Scanf.sscanf line' "[@@@iflt %d.%d]" (fun x y -> If (Lt, x, y))
else if prefix line' ~pre:"[@@@ifge" then
Scanf.sscanf line' "[@@@ifge %d.%d]" (fun x y -> If (Ge, x, y))
else if prefix line' ~pre:"[@@@ifgt" then
Scanf.sscanf line' "[@@@ifgt %d.%d]" (fun x y -> If (Gt, x, y))
else if prefix line' ~pre:"[@@@elifle" then
Scanf.sscanf line' "[@@@elifle %d.%d]" (fun x y -> Elseif (Le, x, y))
else if prefix line' ~pre:"[@@@elifge" then