diff options
| author | Alasdair Armstrong | 2018-09-06 14:26:36 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-09-06 14:51:22 +0100 |
| commit | b04f8c9dfa599b48544bac024eaa78e6b93c29d4 (patch) | |
| tree | c66d7808cf49c42e0a6641a315007a4057ef8457 /src/process_file.mli | |
| parent | d27c1dcae22d624e0ba8ec5c6790b1466fb2a3e3 (diff) | |
Allow options to be set in the interactive mode
Also allow options to be set via a pragma in Sail files
Diffstat (limited to 'src/process_file.mli')
| -rw-r--r-- | src/process_file.mli | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/process_file.mli b/src/process_file.mli index 8fdf9653..1ebb3014 100644 --- a/src/process_file.mli +++ b/src/process_file.mli @@ -53,7 +53,7 @@ val parse_file : ?loc:Parse_ast.l -> string -> Parse_ast.defs val convert_ast : Ast.order -> Parse_ast.defs -> unit Ast.defs -val preprocess_ast : Parse_ast.defs -> Parse_ast.defs +val preprocess_ast : (Arg.key * Arg.spec * Arg.doc) list -> Parse_ast.defs -> Parse_ast.defs val check_ast: Type_check.Env.t -> unit Ast.defs -> Type_check.tannot Ast.defs * Type_check.Env.t val rewrite_ast: Type_check.tannot Ast.defs -> Type_check.tannot Ast.defs val rewrite_undefined: bool -> Type_check.tannot Ast.defs -> Type_check.tannot Ast.defs @@ -64,8 +64,8 @@ val rewrite_ast_c : Type_check.tannot Ast.defs -> Type_check.tannot Ast.defs val rewrite_ast_interpreter : Type_check.tannot Ast.defs -> Type_check.tannot Ast.defs val rewrite_ast_check : Type_check.tannot Ast.defs -> Type_check.tannot Ast.defs -val load_file_no_check : Ast.order -> string -> unit Ast.defs -val load_file : Ast.order -> Type_check.Env.t -> string -> Type_check.tannot Ast.defs * Type_check.Env.t +val load_file_no_check : (Arg.key * Arg.spec * Arg.doc) list -> Ast.order -> string -> unit Ast.defs +val load_file : (Arg.key * Arg.spec * Arg.doc) list -> Ast.order -> Type_check.Env.t -> string -> Type_check.tannot Ast.defs * Type_check.Env.t val opt_just_check : bool ref val opt_ddump_tc_ast : bool ref |