Return to oxx.hh CVS log

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

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

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