84 lines
2.3 KiB
OCaml
84 lines
2.3 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Heptagon *)
|
||
|
|
(* *)
|
||
|
|
(* Author : Marc Pouzet *)
|
||
|
|
(* Organization : Demons, LRI, University of Paris-Sud, Orsay *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
(* Compiler options *)
|
||
|
|
|
||
|
|
(* version of the compiler *)
|
||
|
|
let version = "0.4"
|
||
|
|
let date = "DATE"
|
||
|
|
|
||
|
|
(* standard module *)
|
||
|
|
let pervasives_module = "Pervasives"
|
||
|
|
let standard_lib = "STDLIB"
|
||
|
|
let standard_lib = try Sys.getenv "HEPTLIB" with Not_found -> standard_lib
|
||
|
|
|
||
|
|
(* list of modules initially opened *)
|
||
|
|
let default_used_modules = ref [pervasives_module]
|
||
|
|
let set_no_pervasives () = default_used_modules := []
|
||
|
|
|
||
|
|
(* load paths *)
|
||
|
|
let load_path = ref ([standard_lib])
|
||
|
|
|
||
|
|
|
||
|
|
let set_stdlib p =
|
||
|
|
load_path := [p]
|
||
|
|
and add_include d =
|
||
|
|
load_path := d :: !load_path;;
|
||
|
|
|
||
|
|
(* where is the standard library *)
|
||
|
|
let locate_stdlib () =
|
||
|
|
let stdlib = try
|
||
|
|
Sys.getenv "HEPTLIB"
|
||
|
|
with
|
||
|
|
Not_found -> standard_lib in
|
||
|
|
Format.printf "Standard library in %s@." stdlib
|
||
|
|
|
||
|
|
let show_version () =
|
||
|
|
Format.printf "The Heptagon compiler, version %s (%s)@."
|
||
|
|
version date;
|
||
|
|
locate_stdlib ()
|
||
|
|
|
||
|
|
|
||
|
|
(* other options of the compiler *)
|
||
|
|
let verbose = ref false
|
||
|
|
let print_types = ref false
|
||
|
|
|
||
|
|
let assert_nodes:string list ref = ref []
|
||
|
|
let add_assert nd = assert_nodes := nd :: !assert_nodes
|
||
|
|
|
||
|
|
let simulation = ref false
|
||
|
|
let simulation_node : string option ref = ref None
|
||
|
|
let set_simulation_node s =
|
||
|
|
simulation := true;
|
||
|
|
simulation_node := Some s
|
||
|
|
|
||
|
|
let create_object_file = ref false
|
||
|
|
|
||
|
|
(* Target languages list for code generation *)
|
||
|
|
let target_languages : string list ref = ref []
|
||
|
|
|
||
|
|
let add_target_language s =
|
||
|
|
target_languages := s :: !target_languages
|
||
|
|
|
||
|
|
(* Optional path for generated files (C or Java) *)
|
||
|
|
let target_path : string option ref = ref None
|
||
|
|
|
||
|
|
let set_target_path path =
|
||
|
|
target_path := Some path
|
||
|
|
|
||
|
|
let full_type_info = ref false
|
||
|
|
|
||
|
|
let init = ref true
|
||
|
|
|
||
|
|
let inline:string list ref = ref []
|
||
|
|
let add_inlined_node s = inline := s :: !inline
|
||
|
|
|
||
|
|
let flatten = ref false
|
||
|
|
|
||
|
|
let nodes_to_inline : string list ref = ref []
|