2 ||M|| This file is part of HELM, an Hypertextual, Electronic
3 ||A|| Library of Mathematics, developed at the Computer Science
4 ||T|| Department, University of Bologna, Italy.
6 ||T|| HELM is free software; you can redistribute it and/or
7 ||A|| modify it under the terms of the GNU General Public License
8 \ / version 2 or (at your option) any later version.
9 \ / This software is distributed as is, NO WARRANTY.
10 V_______________________________________________________________ *)
16 type uri_generator = string -> string
18 type kernel = V4 | V3 | V0
25 | LP1 (* elpi helena *)
26 | LP2 (* elpi helena *)
27 | TJ2 (* teyjus helena *)
28 | TJ3 (* teyjus helena *)
36 (* interface functions ******************************************************)
38 let version_string b =
39 if b then "Helena 0.8.3 M (December 2017)"
40 else "Helena 0.8.3 M - December 2017"
42 let kernel = ref V3 (* kernel type *)
44 let si = ref false (* use sort inclusion *)
46 let cover = ref "" (* initial uri segment *)
48 let cc = ref false (* activate conversion constraints *)
50 let indexes = ref false (* show de Bruijn indexes *)
52 let alpha = ref "" (* prefix of numeric identifiers *)
54 let first = ref 0 (* begin trace here *)
56 let last = ref max_int (* end trace here *)
58 let restricted = ref true (* restricted applications *)
60 let infinity = ref false (* use ∞-abstractions in contexts *)
62 let short = ref false (* short global constants *)
64 let cast = ref false (* anticipate cast *)
66 let root = ref "" (* initial segment of URI hierarchy *)
68 let trace = ref 0 (* trace level *)
71 let debug_lexer = ref false (* output lexer debug information *)
75 let debug_parser = ref false (* output parser debug information *)
79 let ct = ref 0 (* current trace level *)
83 let summary = ref false (* log summary information *)
87 let expand = ref false (* always expand global definitions *)
91 let manager_dir = ref "" (* output directory for manager *)
92 let manager = ref Quiet (* manager *)
93 let preamble = ref "" (* preamble file for manager *)
97 let stage = ref 3 (* stage *)
101 let export = ref false (* export entities to XML *)
102 let xdir = ref "" (* directory for XML output *)
105 IFDEF PREPROCESS THEN
106 let preprocess = ref false (* preprocess source *)
110 let quote = ref false (* quote identifiers when lexing *)
114 let validate = ref true (* validate vs. typecheck *)
115 let icm = ref 0 (* complexity measure of relocated terms *)
119 let id = match !kernel with
120 | V4 -> "Environment"
121 | V3 -> "Environment_V3"
122 | V0 -> "Environment_V0"
124 let si = if !si then "_si" else "" in
125 let rest = if !restricted then "" else "_x" in
129 String.concat "/" ["ld:"; kernel_id (); !cover; "" ]
132 let bu = get_baseuri () in
133 fun s -> KF.concat bu (s ^ ".ld")
136 let set_current_trace n =
137 ct := if !first <= n && n <= !last then !trace else 0
141 root := ""; first := 0; last := max_int;
142 kernel := V3; si := false; restricted := true; infinity := false; cast := false; cover := "";
143 indexes := false; short := false; trace := 0;
144 IFDEF LEXER THEN debug_lexer := false ELSE () END;
145 IFDEF PARSER THEN debug_parser := false ELSE () END;
146 IFDEF SUMMARY THEN summary := false ELSE () END;
147 IFDEF EXPAND THEN expand := false ELSE () END;
148 IFDEF MANAGER THEN manager_dir := ""; manager := Quiet; preamble := "" ELSE () END;
149 IFDEF STAGE THEN stage := 3 ELSE () END;
150 IFDEF OBJECTS THEN export := false; xdir := "" ELSE () END;
151 IFDEF PREPROCESS THEN preprocess := false ELSE () END;
152 IFDEF QUOTE THEN quote := false ELSE () END;
153 IFDEF TYPE THEN validate := true; icm := 0 ELSE () END