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

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

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

revision 629, Wed Apr 26 04:06:41 2000 UTC revision 630, Wed Apr 26 18:40:56 2000 UTC
# Line 7  Line 7 
7   *)   *)
8  structure CMBSlaveHook = struct  structure CMBSlaveHook = struct
9      local      local
10          type res =          type slave =
11              GroupGraph.group * GeneralParams.info *              (string * string) ->
12              (DependencyGraph.sbnode -> bool)              (GroupGraph.group * (DependencyGraph.sbnode -> bool) *
13          fun placeholder (s: string) = (NONE: res option)               PathConfig.mode) option
14          val r = ref placeholder          val m = ref (StringMap.empty: slave StringMap.map)
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.629  
changed lines
  Added in v.630

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