Return to oxx.hh CVS log

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

Annotation of OpenXM/src/kan96xx/plugin/oxx.hh, Revision 1.2

1.2     ! takayama    1: /*$OpenXM$*/
1.1       maekawa     2: else if (strcmp(key,"oxCreateClient") == 0) {
                      3:   if (size != 4) errorKan1("%s\n","[(oxCreateClient) ip dataport controlport] extension client.");
                      4:   rob = KoxCreateClient(getoa(obj,1),getoa(obj,2),getoa(obj,3));
                      5: }
                      6: else if (strcmp(key,"oxCreateClientFile") == 0) {
                      7:   if (size != 3) errorKan1("%s\n","[(oxCreateClientFile) fname mode] extension client.");
                      8:   rob = KoxCreateClient(getoa(obj,1),getoa(obj,2),getoa(obj,2));
                      9:                                                  /* dummy */
                     10: }
                     11: else if (strcmp(key,"oxReq") == 0) {
                     12:   if (size == 4) {
                     13:     lockCtrlCForOx();
                     14:     rob = KoxReq(getoa(obj,1),getoa(obj,2),getoa(obj,3));
                     15:     unlockCtrlCForOx();
                     16:   }else if (size == 3) {
                     17:     lockCtrlCForOx();
                     18:     rob = KoxReq(getoa(obj,1),getoa(obj,2),rob); /* rob is a dummy. */
                     19:     unlockCtrlCForOx();
                     20:   }else {
                     21:     errorKan1("%s\n","[(oxReq) client func arg] extension result.");
                     22:   }
                     23: }
                     24: else if (strcmp(key,"oxGet") == 0) {
                     25:   if (size != 2) errorKan1("%s\n","[(oxGet)  client] extension obj.");
                     26:   lockCtrlCForOx();
                     27:   obj1 = getoa(obj,1);
                     28:   rob = KoxGet(obj1);  /* Note that lock and unlock are also temporary done in
                     29:                          oxGetHeader(). */
                     30:   unlockCtrlCForOx();
                     31: }
                     32: else if (strcmp(key,"oxGetFromControl") == 0) {
                     33:   if (size != 2) errorKan1("%s\n","[(oxGetFromControl)  client] extension obj.");
                     34:   obj1 = getoa(obj,1);
                     35:   rob = KoxGetFromControl(obj1);
                     36: }
                     37: else if (strcmp(key,"oxMultiSelect") == 0) {
                     38:   if (size != 3) errorKan1("%s\n","[(oxMultiSelect) client t] extension obj.");
                     39:   rob = KoxMultiSelect(getoa(obj,1),getoa(obj,2));
                     40: }
                     41: else if (strcmp(key,"oxWatch") == 0) {
1.2     ! takayama   42:   if (size > 2) errorKan1("%s\n","[(oxWatch) client] extension obj");
        !            43:   if (size == 2) {
        !            44:        rob = KoxWatch(getoa(obj,1),rob); /* rob is dummy for now. */
        !            45:   }else {
        !            46:        rob = KoxWatch(KpoInteger(1),rob);
        !            47:   }
1.1       maekawa    48: }
                     49: else if (strcmp(key,"oxCloseClient") == 0) {
                     50:   if (size != 2) errorKan1("%s\n","[(oxCloseClient) client] extension obj");
                     51:   rob = KoxCloseClient(getoa(obj,1));
                     52: }
                     53: else if (strcmp(key,"oxSerial") == 0) {
                     54:   if (size != 1) errorKan1("%s\n","[(oxSerial)] extension obj");
                     55:   rob = KpoInteger(SerialOX);
                     56: }
                     57: else if (strcmp(key,"oxGenPortFile") == 0) {
                     58:   if (size != 1) errorKan1("%s\n","[(oxGenPortFile)] extension obj");
                     59:   rob = KoxGenPortFile();
                     60: }
                     61: else if (strcmp(key,"oxRemovePortFile") == 0) {
                     62:   if (size != 1) errorKan1("%s\n","[(oxRemovePortFile)] extension obj");
                     63:   KoxRemovePortFile();
                     64: }
                     65: else if (strcmp(key,"oxGenPass") == 0) {
                     66:   if (size != 1) errorKan1("%s\n","[(oxGenPass)] extension obj");
                     67:   rob = KoxGenPass();
                     68: }
                     69: else if (strcmp(key,"oxGetPort") == 0) {
                     70:   if (size != 2) errorKan1("%s\n","[(oxGetPort) host] extension obj");
                     71:   rob = KoxGetPort(getoa(obj,1));
                     72: }
                     73: else if (strcmp(key,"oxCreateClient2") == 0) {
                     74:   if (size != 4) errorKan1("%s\n","[(oxCreateClient2) peer ipmask pass] extension client.");
                     75:   rob = KoxCreateClient2(getoa(obj,1),getoa(obj,2),getoa(obj,3));
                     76: }
                     77: else if (strcmp(key,"oxPrintMessage") == 0) {
                     78:   if (size == 1) {
                     79:     rob = KpoInteger(OXprintMessage);
                     80:   }else{
                     81:     if (size != 2) errorKan1("%s\n","[(oxPrintMessge) level] extension obj");
                     82:     obj1 = getoa(obj,1);
                     83:     if (obj1.tag != Sinteger)
                     84:       errorKan1("%s\n","[(oxPrintMessge) level] extension obj, integer level");
                     85:     OXprintMessage = KopInteger(obj1);
                     86:     rob = KpoInteger(OXprintMessage);
                     87:   }
                     88: }
                     89: else if (strcmp(key,"oxPrintMessage") == 0) {
                     90:   if (size == 1) {
                     91:     rob = KpoInteger(OXprintMessage);
                     92:   }else{
                     93:     if (size != 2) errorKan1("%s\n","[(oxPrintMessge) level] extension obj");
                     94:     obj1 = getoa(obj,1);
                     95:     if (obj1.tag != Sinteger)
                     96:       errorKan1("%s\n","[(oxPrintMessge) level] extension obj, integer level");
                     97:     OXprintMessage = KopInteger(obj1);
                     98:     rob = KpoInteger(OXprintMessage);
                     99:   }
                    100: }
                    101:
                    102: