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