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/system/batchcomp.sml
ViewVC logotype

Diff of /sml/trunk/src/system/batchcomp.sml

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

revision 515, Sun Jan 9 09:59:14 2000 UTC revision 733, Fri Nov 17 05:13:45 2000 UTC
# Line 4  Line 4 
4          fun one [] = "ok"          fun one [] = "ok"
5            | one ["m"] = Bool.toString (CMB.make ())            | one ["m"] = Bool.toString (CMB.make ())
6            | one ["m", f] = Bool.toString (CMB.make' (SOME f))            | one ["m", f] = Bool.toString (CMB.make' (SOME f))
           | one ["d"] = Bool.toString (CMB.deliver ())  
           | one ["d", f] = Bool.toString (CMB.deliver' (SOME f))  
7            | one ["r"] = (CMB.reset (); "reset")            | one ["r"] = (CMB.reset (); "reset")
8            | one ["?", v] =            | one ["?", v] =
9              getOpt (Option.map Int.toString (#get (CMB.symval v) ()),              getOpt (Option.map Int.toString (#get (CMB.symval v) ()),
10                      "not set")                      "not set")
11            | one ["=", v] = (#set (CMB.symval v) NONE; "done")            | one ["=", v] = (#set (CMB.symval v) NONE; v ^ " set to NONE")
12            | one ["=", v, n] =            | one ["=", v, n] =
13              (case Int.fromString n of              (case Int.fromString n of
14                   x as SOME _ => (#set (CMB.symval v) x; "done")                   x as SOME _ => (#set (CMB.symval v) x; v ^ " set to " ^ n)
15                 | NONE => "bad number syntax")                 | NONE => "bad number syntax")
16            | one ["q"] = quit ()            | one ["q"] = quit ()
17            | one _ = "invalid command"            | one _ = "invalid command"

Legend:
Removed from v.515  
changed lines
  Added in v.733

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