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/main/slave.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/slave.sml

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

revision 480, Fri Nov 12 04:59:29 1999 UTC revision 632, Sat Apr 29 15:50:42 2000 UTC
# Line 32  Line 32 
32              else case String.tokens Char.isSpace line of              else case String.tokens Char.isSpace line of
33                  ["cd", d] => (chDir d; say_ok (); waitForStart ())                  ["cd", d] => (chDir d; say_ok (); waitForStart ())
34                | ["cm", archos, f] => do_cm (archos, f)                | ["cm", archos, f] => do_cm (archos, f)
35                  | ["cmb", archos] => reset_cmb archos
36                | ["cmb", archos, f] => do_cmb (archos, f)                | ["cmb", archos, f] => do_cmb (archos, f)
37                | ["ping"] => (say_pong (); waitForStart ())                | ["ping"] => (say_pong (); waitForStart ())
38                | ["finish"] => (say_ok (); waitForStart ())                | ["finish"] => (say_ok (); waitForStart ())
# Line 41  Line 42 
42                | _ => (say_error (); waitForStart ())                | _ => (say_error (); waitForStart ())
43          end handle _ => (say_error (); waitForStart ())          end handle _ => (say_error (); waitForStart ())
44    
45            and reset_cmb archos = let
46                val slave = CMBSlave.slave make
47            in
48                ignore (slave archos NONE);
49                say_ok ();
50                waitForStart ()
51            end
52    
53          and do_cmb (archos, f) = let          and do_cmb (archos, f) = let
54              val slave = CMBSlave.slave make              val slave = CMBSlave.slave make
55          in          in
56              case slave archos (!dbr, f) of              case slave archos (SOME (!dbr, f)) of
57                  NONE => (say_error (); waitForStart ())                  NONE => (say_error (); waitForStart ())
58                | SOME (g, trav, cmb_pcmode) => let                | SOME (g, trav, cmb_pcmode) => let
59                      val _ = say_ok ()                      val _ = say_ok ()

Legend:
Removed from v.480  
changed lines
  Added in v.632

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