source: driver/options.mli @ 3014

Last change on this file since 3014 was 3005, checked in by sacerdot, 7 years ago

Beginning of making it fully compatible with untrusted one.

File size: 2.1 KB
Line 
1(** This module defines the compiler general options. *)
2
3(*
4(** {2 Source language} *)
5val set_source_language : string -> unit
6val get_source_language : unit -> Languages.name
7
8(** {2 Target language} *)
9val set_target_language : string -> unit
10val get_target_language : unit -> Languages.name
11*)
12
13(** {2 Interpretation request} *)
14val request_interpretation   : bool -> unit
15val interpretation_requested : unit -> bool
16
17(** {2 Interpretation requests} *)
18val request_interpretations   : bool -> unit
19val interpretations_requested : unit -> bool
20
21(** {2 Annotation requests} *)
22val request_annotation   : bool -> unit
23val annotation_requested : unit -> bool
24
25(** {2 Input files} *)
26val add_input_file : string -> unit
27val input_files    : unit -> string list
28
29(** {2 Output files} *)
30val set_output_files : string -> unit
31val get_output_files : unit -> string option
32
33(** {2 Verbose mode} *)
34val is_debug_enabled : unit -> bool
35
36(** {2 Assembly pretty print} *)
37val set_asm_pretty : bool -> unit
38val is_asm_pretty  : unit -> bool
39
40(** {2 Lustre file} *)
41val set_lustre_file : bool -> unit
42val is_lustre_file  : unit -> bool
43
44(** {2 Remove Lustre externals} *)
45val set_remove_lustre_externals : bool -> unit
46val is_remove_lustre_externals  : unit -> bool
47
48(** {2 Lustre file and test requested} *)
49val set_lustre_test : string -> unit
50val get_lustre_test : unit -> string option
51
52(** {2 Lustre file: number of test cases} *)
53val set_lustre_test_cases : int -> unit
54val get_lustre_test_cases : unit -> int
55
56(** {2 Lustre file: number of cycles for each case} *)
57val set_lustre_test_cycles : int -> unit
58val get_lustre_test_cycles : unit -> int
59
60(** {2 Lustre file: random int minimum value} *)
61val set_lustre_test_min_int : int -> unit
62val get_lustre_test_min_int : unit -> int
63
64(** {2 Lustre file: random int maximum value} *)
65val set_lustre_test_max_int : int -> unit
66val get_lustre_test_max_int : unit -> int
67
68(*
69(** {2 Print results requests} *)
70val is_print_result_enabled : unit -> bool
71*)
72
73(** {2 Developers' playground} *)
74val is_dev_test_enabled : unit -> bool
75
76(** {2 Web application} *)
77val set_web_mode : unit -> unit
78val is_web_mode  : unit -> bool
Note: See TracBrowser for help on using the repository browser.