From b04f8c9dfa599b48544bac024eaa78e6b93c29d4 Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Thu, 6 Sep 2018 14:26:36 +0100
Subject: Allow options to be set in the interactive mode

Also allow options to be set via a pragma in Sail files
---
 src/process_file.mli | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/process_file.mli')

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
-- 
cgit v1.2.3