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

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/depend/build.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/depend/build.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 301, Fri May 28 09:43:39 1999 UTC revision 305, Mon May 31 15:00:06 1999 UTC
# Line 55  Line 55 
55    
56          (* the "blackboard" where analysis results are announced *)          (* the "blackboard" where analysis results are announced *)
57          (* (also used for cycle detection) *)          (* (also used for cycle detection) *)
58          val bb = ref AbsPathMap.empty          val bb = ref SmlInfoMap.empty
59          fun lock i = bb := AbsPathMap.insert (!bb, SmlInfo.sourcepath i, NONE)          fun lock i = bb := SmlInfoMap.insert (!bb, i, NONE)
60          fun release (i, r) =          fun release (i, r) = (bb := SmlInfoMap.insert (!bb, i, SOME r); r)
61              (bb := AbsPathMap.insert (!bb, SmlInfo.sourcepath i, SOME r); r)          fun fetch i = SmlInfoMap.find (!bb, i)
         fun fetch i = AbsPathMap.find (!bb, SmlInfo.sourcepath i)  
62    
63          (* - get the result from the blackboard if it is there *)          (* - get the result from the blackboard if it is there *)
64          (* - otherwise trigger analysis *)          (* - otherwise trigger analysis *)

Legend:
Removed from v.301  
changed lines
  Added in v.305

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