diff options
Diffstat (limited to 'src/process_file.mli')
| -rw-r--r-- | src/process_file.mli | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/src/process_file.mli b/src/process_file.mli index 2c18b830..b15523bb 100644 --- a/src/process_file.mli +++ b/src/process_file.mli @@ -41,12 +41,19 @@ (**************************************************************************) val parse_file : string -> Parse_ast.defs -val convert_ast : Parse_ast.defs -> Type_internal.tannot Ast.defs * Type_internal.kind Type_internal.Envmap.t * Ast.order -val initi_check_ast : Type_internal.tannot Ast.defs -> Type_internal.tannot Ast.defs * Type_internal.kind Type_internal.Envmap.t * Ast.order -val check_ast: Type_internal.tannot Ast.defs -> Type_internal.kind Type_internal.Envmap.t -> Ast.order -> Type_internal.tannot Ast.defs * Type_check.envs -val rewrite_ast: Type_internal.tannot Ast.defs -> Type_internal.tannot Ast.defs -val rewrite_ast_lem : Type_internal.tannot Ast.defs -> Type_internal.tannot Ast.defs -val rewrite_ast_ocaml : Type_internal.tannot Ast.defs -> Type_internal.tannot Ast.defs +val convert_ast : Parse_ast.defs -> unit Ast.defs +val check_ast: unit Ast.defs -> Type_check.tannot Ast.defs * Type_check.Env.t +val monomorphise_ast : ((string * int) * string) list -> Type_check.tannot 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_ast_lem : Type_check.tannot Ast.defs -> Type_check.tannot Ast.defs +val rewrite_ast_ocaml : Type_check.tannot Ast.defs -> Type_check.tannot Ast.defs + +val load_file : Type_check.Env.t -> string -> Type_check.tannot Ast.defs * Type_check.Env.t + +val opt_new_typecheck : bool ref +val opt_just_check : bool ref +val opt_ddump_tc_ast : bool ref +val opt_dno_cast : bool ref type out_type = | Lem_ast_out @@ -56,7 +63,7 @@ type out_type = val output : string -> (* The path to the library *) out_type -> (* Backend kind *) - (string * Type_internal.tannot Ast.defs) list -> (*File names paired with definitions *) + (string * Type_check.tannot Ast.defs) list -> (*File names paired with definitions *) unit (** [always_replace_files] determines whether Sail only updates modified files. |