ident.ml 418 Bytes
Newer Older
1
2
module U = Encodings.Utf8
module Id = Pool.Make(U)
3
4
5
6
7
8
9
module IdSet = SortedList.Make(SortedList.Lift(Id))
module IdMap = IdSet.Map
type id = Id.t
type 'a id_map = (unit,'a) IdMap.map
type fv = unit IdSet.t

let ident = Id.mk
10
11


12
module LabelPool = Pool.Make(U)
13
14
15
16
17
module LabelSet = SortedList.Make(SortedList.Lift(LabelPool))
module LabelMap = LabelSet.Map

type label = LabelPool.t
type 'a label_map = (unit,'a) LabelMap.map