Return to oxcgi.hh CVS log

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

Annotation of OpenXM/src/kan96xx/plugin/oxcgi.hh, Revision 1.4

1.4     ! takayama    1: /* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.hh,v 1.3 2004/09/27 01:20:46 takayama Exp $ */
1.2       takayama    2: else if (strcmp(key,"cgiUrlEncodingToKeyValuePair") == 0) {
                      3:   if (size != 2) errorKan1("%s\n","[(cgiUrlEncodingToKeyValuePair)  obj] extension kv-pair.");
                      4:   obj1 = getoa(obj,1);
                      5:   if (obj1.tag != Sdollar) errorKan1("%s\n","cgiUrlEncodingTOKeyValuePair: argument must be a string.");
                      6:   rob = cgiUrlEncodingToKeyValuePair(KopString(obj1));
                      7: }
                      8: else if (strcmp(key,"cgiKeyValuePairToHttpString") == 0) {
                      9:   if (size != 2) errorKan1("%s\n","[(cgiKeyValuePairToHttpString) kv-pair] extension sobj");
                     10:   obj1= getoa(obj,1);
                     11:   rob = cgiKeyValuePairToHttpString(obj1);
                     12: }
                     13: else if (strcmp(key,"cgiKeyValuePairToUrlEncodingString") == 0) {
                     14:   if (size != 2) errorKan1("%s\n","[(cgiKeyValuePairToUrlEncodingString)  kv-pair] extension sobj.");
                     15:   obj1 = getoa(obj,1);
                     16:   rob = cgiKeyValuePairToUrlEncodingString(obj1);
1.3       takayama   17: }
                     18: else if (strcmp(key,"cgiStringToUrlEncoding") == 0) {
                     19:   if (size != 2) errorKan1("%s\n","[(cgiStringToUrlEncoding)  s] extension sobj.");
                     20:   obj1 = getoa(obj,1);
                     21:   rob = KooStringToUrlEncoding(obj1);
                     22: }
                     23: else if (strcmp(key,"cgiUrlEncodedStringToObj") == 0) {
                     24:   if (size != 2) errorKan1("%s\n","[(cgiUrlEncodedStringToObj)  s] extension sobj.");
                     25:   obj1 = getoa(obj,1);
                     26:   rob = KooUrlEncodedStringToObj(obj1);
1.2       takayama   27: }
                     28: else if (strcmp(key,"cgiHttpToKeyValuePair") == 0) {
                     29:   if (size != 2) errorKan1("%s\n","[(cgiHttpToKeyValuePair) sobj] extension kv-pair");
                     30:   obj1= getoa(obj,1);
                     31:   if (obj1.tag == Sdollar) {
                     32:          rob = cgiHttpToKeyValuePair(KopString(obj1),strlen(KopString(obj1)));
                     33:   }else if (obj1.tag == SbyteArray) {
                     34:          rob = cgiHttpToKeyValuePair(KopByteArray(obj1),getByteArraySize(obj1));
                     35:   }else errorKan1("%s\n","cgiHttpToKeyValuePair: argument must be a string or a byte aray.");
1.4     ! takayama   36: }
        !            37: else if (strcmp(key,"cgiToTokens") == 0) {
        !            38:   if (size != 3) errorKan1("%s\n","[(cgiToTokens) obj sep] extension tokens");
        !            39:   obj1= getoa(obj,1);
        !            40:   obj2= getoa(obj,2);
        !            41:   rob = KooToTokens(obj1,obj2);
1.2       takayama   42: }