Return to sm1pvm.hh CVS log

Up to [local] / OpenXM / src / kan96xx / plugin

Annotation of OpenXM/src/kan96xx/plugin/sm1pvm.hh, Revision 1.1.1.1

1.1       maekawa     1:   else if (strcmp(key,"start slaves")==0) {
                      2:     if (size != 3)
                      3:       errorKan1("%s\n","[(start slaves) (slave name) n] extension");
                      4:     obj1 = getoa(obj,1);
                      5:     obj2 = getoa(obj,2);
                      6:     if (obj1.tag != Sdollar || obj2.tag != Sinteger)
                      7:       errorKan1("%s\n","[(start slaves) (slave name) n] extension");
                      8:     if (KpvmStartSlaves(obj1.lc.str,obj2.lc.ival)<0)
                      9:       errorKan1("%s\n","Failed to start slaves.");
                     10:   }else if (strcmp(key,"stop slaves")==0) {
                     11:     if (KpvmStopSlaves() < 0)
                     12:       errorKan1("%s\n","Failed to stop slaves.");
                     13:   }else if (strcmp(key,"mcast") == 0) {
                     14:     if (size != 2)
                     15:       errorKan1("%s\n","[(mcast) (command)] extension");
                     16:     obj1 = getoa(obj,1);
                     17:     if (obj1.tag != Sdollar)
                     18:       errorKan1("%s\n","[(mcast) (command)] extension");
                     19:     if (KpvmMcast(obj1.lc.str)<0)
                     20:       errorKan1("%s\n","Failed to mcast to slaves.");
                     21:   }else if (strcmp(key,"job pool") == 0) {
                     22:     if (size != 2)
                     23:       errorKan1("%s\n","[(job pool) list] extension");
                     24:     obj1 = getoa(obj,1);
                     25:     if (obj1.tag != Sarray)
                     26:       errorKan1("%s\n","[(job pool) list] extension. Argumet must be an array.");
                     27:     m = getoaSize(obj1);
                     28:     for (i=0; i<m; i++) {
                     29:       obj2 = getoa(obj1,i);
                     30:       if (obj2.tag != Sdollar) {
                     31:        errorKan1("%s\n","[(job pool) list] extension. Elements must be strings.");
                     32:       }
                     33:     }
                     34:     rob = KpvmJobPool(obj1);
                     35:   }else if (strcmp(key,"change slaves") == 0) {
                     36:     if (KpvmChangeStateOfSlaves(0)<0) {
                     37:       errorKan1("%s\n","Failed to change the state of slaves.");
                     38:     }
                     39:   }