Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cm/semant/group-reg.sml
ViewVC logotype

Annotation of /sml/trunk/src/cm/semant/group-reg.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 281 - (view) (download)

1 : blume 281 signature GROUPREG = sig
2 :     val clear : unit -> unit
3 :     val register : AbsPath.t * GenericVC.Source.inputSource -> unit
4 :     val lookup : AbsPath.t -> GenericVC.Source.inputSource
5 :     val registered : AbsPath.t -> bool
6 :     end
7 :    
8 :     structure GroupReg :> GROUPREG = struct
9 :    
10 :     val m =
11 :     ref (AbsPathMap.empty: GenericVC.Source.inputSource AbsPathMap.map)
12 :    
13 :     fun clear () = m := AbsPathMap.empty
14 :     fun register (g, s) = m := AbsPathMap.insert (!m, g, s)
15 :     fun lookup g = valOf (AbsPathMap.find (!m, g))
16 :     fun registered g = isSome (AbsPathMap.find (!m, g))
17 :     end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0