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/bootstrap/cmb-slave-hook.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/bootstrap/cmb-slave-hook.sml

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

revision 451, Sat Oct 23 15:05:55 1999 UTC revision 457, Thu Oct 28 05:58:19 1999 UTC
# Line 7  Line 7 
7   *)   *)
8  structure CMBSlaveHook = struct  structure CMBSlaveHook = struct
9      local      local
10          type res =          type slave =
11              GroupGraph.group *              (string * string) ->
12              (DependencyGraph.sbnode -> bool) *              (GroupGraph.group * (DependencyGraph.sbnode -> bool) *
13              (SmlInfo.info -> unit)               PathConfig.mode) option
14          fun placeholder (s: string) = (NONE: res option)          val m = ref (StringMap.empty: slave StringMap.map)
         val r = ref placeholder  
15      in      in
16          fun init f = r := f          fun init arch f = m := StringMap.insert (!m, arch, f)
17          fun slave s = !r s          fun slave arch s =
18                case StringMap.find (!m, arch) of
19                    NONE => NONE
20                  | SOME f => f s
21      end      end
22  end  end

Legend:
Removed from v.451  
changed lines
  Added in v.457

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