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     ! 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:   }