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 666, Fri Jun 16 08:27:00 2000 UTC revision 805, Thu Mar 22 20:08:01 2001 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                | ["cmb", db, archos, f] => (dbr := db; do_cmb (archos, f))
36                | ["cmb", archos, f] => do_cmb (archos, f)                | ["reset_cmb", archos] => reset_cmb archos
37                | ["ping"] => (say_pong (); waitForStart ())                | ["ping"] => (say_pong (); waitForStart ())
38                | ["finish"] => (say_ok (); waitForStart ())                | ["finish"] => (say_ok (); waitForStart ())
               | ["dirbase", db] =>  
                     (say_ok (); dbr := db; waitForStart ())  
39                | ["shutdown"] => shutdown ()                | ["shutdown"] => shutdown ()
40                | _ => (say_error (); waitForStart ())                | _ => (say_error (); waitForStart ())
41          end handle _ => (say_error (); waitForStart ())          end handle _ => (say_error (); waitForStart ())
# Line 45  Line 43 
43          and reset_cmb archos = let          and reset_cmb archos = let
44              val slave = CMBSlave.slave make              val slave = CMBSlave.slave make
45          in          in
46              ignore (slave archos NONE);              ignore (slave archos NONE); (* causes reset *)
47              say_ok ();              say_ok ();
48              waitForStart ()              waitForStart ()
49          end          end
# Line 73  Line 71 
71                    | SOME (g, gp) => let                    | SOME (g, gp) => let
72                          val _ = say_ok ()                          val _ = say_ok ()
73                          val index = Reachable.snodeMap g                          val index = Reachable.snodeMap g
74                          val trav = sbtrav () gp                          val trav = sbtrav ()
75                          fun trav' sbn = isSome (trav sbn)                          fun trav' sbn = isSome (trav sbn gp)
76                      in                      in
77                          workLoop (index, trav', penv)                          workLoop (index, trav', penv)
78                      end                      end
# Line 100  Line 98 
98                              end                              end
99                      end                      end
100                    | ["cm", archos, f] => do_cm (archos, f)                    | ["cm", archos, f] => do_cm (archos, f)
101                    | ["cmb", archos, f] => do_cmb (archos, f)                    | ["cmb", db, archos, f] => (dbr := db; do_cmb (archos, f))
102                      | ["reset_cmb", archos] => reset_cmb archos
103                    | ["finish"] => (say_ok (); waitForStart ())                    | ["finish"] => (say_ok (); waitForStart ())
                   | ["dirbase", db] =>  
                     (say_ok (); dbr := db; waitForStart ())  
104                    | ["ping"] => (say_pong (); loop ())                    | ["ping"] => (say_pong (); loop ())
105                    | ["shutdown"] => shutdown ()                    | ["shutdown"] => shutdown ()
106                    | _ => (say_error (); loop ())                    | _ => (say_error (); loop ())

Legend:
Removed from v.666  
changed lines
  Added in v.805

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