blob: 6c5ef8c4fe6f6343da08c6cbed83a1050d85bd7f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
(* $Id$ *)
open Names
open Rawterm
open Libobject
open Lib
(* Syntactic definitions. *)
let syntax_table = ref (Idmap.empty : rawconstr Idmap.t)
let _ = Summary.declare_summary
"SYNTAXCONSTANT"
{ Summary.freeze_function = (fun () -> !syntax_table);
Summary.unfreeze_function = (fun ft -> syntax_table := ft);
Summary.init_function = (fun () -> syntax_table := Idmap.empty) }
let add_syntax_constant id c =
syntax_table := Idmap.add id c !syntax_table
let cache_syntax_constant (sp,c) =
add_syntax_constant (basename sp) c;
Nametab.push (basename sp) sp
let open_syntax_constant (sp,_) =
Nametab.push (basename sp) sp
let (in_syntax_constant, out_syntax_constant) =
let od = {
cache_function = cache_syntax_constant;
load_function = (fun _ -> ());
open_function = open_syntax_constant;
specification_function = (fun x -> x) }
in
declare_object ("SYNTAXCONSTANT", od)
let declare_syntactic_definition id c =
let _ = add_leaf id CCI (in_syntax_constant c) in ()
let search_syntactic_definition id = Idmap.find id !syntax_table
|