30 |
collection * SymbolSet.set option * GeneralParams.info |
collection * SymbolSet.set option * GeneralParams.info |
31 |
-> impexp SymbolMap.map * GroupGraph.privileges |
-> impexp SymbolMap.map * GroupGraph.privileges |
32 |
|
|
33 |
val subgroups : collection -> GroupGraph.group list |
val subgroups : collection -> (SrcPath.t * GroupGraph.group) list |
34 |
|
|
35 |
val num_look : GeneralParams.info -> collection -> string -> int |
val num_look : GeneralParams.info -> collection -> string -> int |
36 |
val cm_look : GeneralParams.info -> collection -> string -> bool |
val cm_look : GeneralParams.info -> collection -> string -> bool |
56 |
gimports: impexp SymbolMap.map, |
gimports: impexp SymbolMap.map, |
57 |
smlfiles: smlinfo list, |
smlfiles: smlinfo list, |
58 |
localdefs: smlinfo SymbolMap.map, |
localdefs: smlinfo SymbolMap.map, |
59 |
subgroups: GG.group list, |
subgroups: (SrcPath.t * GG.group) list, |
60 |
reqpriv: GG.privileges } |
reqpriv: GG.privileges } |
61 |
|
|
62 |
val empty = |
val empty = |
119 |
in |
in |
120 |
COLLECTION { imports = i, gimports = gi, smlfiles = [], |
COLLECTION { imports = i, gimports = gi, smlfiles = [], |
121 |
localdefs = SymbolMap.empty, |
localdefs = SymbolMap.empty, |
122 |
subgroups = [g], |
subgroups = [(p, g)], |
123 |
reqpriv = required } |
reqpriv = required } |
124 |
end |
end |
125 |
| exp2coll (PrivateTools.SMLSOURCE src) = let |
| exp2coll (PrivateTools.SMLSOURCE src) = let |