CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-08 07:51:43 +03:00
Code Issues Projects Releases Wiki Activity

invariant checking is now available without printing the ast using the typecheck subprogram

Browse Source
This commit is contained in:
adelaett 2023-12-05 16:50:58 +01:00
parent e1bda33e07
commit 934ab328ec
No known key found for this signature in database
GPG Key ID: 367A8C08F513BD65
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/driver.ml
View File

@ -529,7 +529,7 @@ module Commands = struct
$ Cli.Flags.output
$ Cli.Flags.ex_scope_opt)
let typecheck options includes =
let typecheck options check_invariants includes =
let prg = Passes.scopelang options ~includes in
Message.emit_debug "Typechecking...";
let _type_ordering =
@ -541,14 +541,27 @@ module Commands = struct
(* Strictly type-checking could stop here, but we also want this pass to
check full name-resolution and cycle detection. These are checked during
translation to dcalc so we run it here and drop the result. *)
let _prg = Dcalc.From_scopelang.translate_program prg in
let prg = Dcalc.From_scopelang.translate_program prg in
let prg =
Shared_ast.Typing.program ~leave_unresolved:false (Program.untype prg)
in
(* Additionally, we might want to check the invariants. *)
if check_invariants then (
Message.emit_debug "Checking invariants...";
let result = Dcalc.Invariants.check_all_invariants prg in
if not result then
raise (Message.raise_internal_error "Some Dcalc invariants are invalid"));
Message.emit_result "Typechecking successful!"
let typecheck_cmd =
Cmd.v
(Cmd.info "typecheck"
~doc:"Parses and typechecks a Catala program, without interpreting it.")
Term.(const typecheck $ Cli.Flags.Global.options $ Cli.Flags.include_dirs)
Term.(
const typecheck
$ Cli.Flags.Global.options
$ Cli.Flags.check_invariants
$ Cli.Flags.include_dirs)
let dcalc typed options includes output optimize ex_scope_opt check_invariants
=