| version 1.2, 2004/09/24 08:35:47 |
version 1.4, 2005/02/27 05:28:06 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.hh,v 1.1 2004/09/21 12:52:01 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.hh,v 1.3 2004/09/27 01:20:46 takayama Exp $ */ |
| else if (strcmp(key,"cgiUrlEncodingToKeyValuePair") == 0) { |
else if (strcmp(key,"cgiUrlEncodingToKeyValuePair") == 0) { |
| if (size != 2) errorKan1("%s\n","[(cgiUrlEncodingToKeyValuePair) obj] extension kv-pair."); |
if (size != 2) errorKan1("%s\n","[(cgiUrlEncodingToKeyValuePair) obj] extension kv-pair."); |
| obj1 = getoa(obj,1); |
obj1 = getoa(obj,1); |
| Line 15 else if (strcmp(key,"cgiKeyValuePairToUrlEncodingStrin |
|
| Line 15 else if (strcmp(key,"cgiKeyValuePairToUrlEncodingStrin |
|
| obj1 = getoa(obj,1); |
obj1 = getoa(obj,1); |
| rob = cgiKeyValuePairToUrlEncodingString(obj1); |
rob = cgiKeyValuePairToUrlEncodingString(obj1); |
| } |
} |
| |
else if (strcmp(key,"cgiStringToUrlEncoding") == 0) { |
| |
if (size != 2) errorKan1("%s\n","[(cgiStringToUrlEncoding) s] extension sobj."); |
| |
obj1 = getoa(obj,1); |
| |
rob = KooStringToUrlEncoding(obj1); |
| |
} |
| |
else if (strcmp(key,"cgiUrlEncodedStringToObj") == 0) { |
| |
if (size != 2) errorKan1("%s\n","[(cgiUrlEncodedStringToObj) s] extension sobj."); |
| |
obj1 = getoa(obj,1); |
| |
rob = KooUrlEncodedStringToObj(obj1); |
| |
} |
| else if (strcmp(key,"cgiHttpToKeyValuePair") == 0) { |
else if (strcmp(key,"cgiHttpToKeyValuePair") == 0) { |
| if (size != 2) errorKan1("%s\n","[(cgiHttpToKeyValuePair) sobj] extension kv-pair"); |
if (size != 2) errorKan1("%s\n","[(cgiHttpToKeyValuePair) sobj] extension kv-pair"); |
| obj1= getoa(obj,1); |
obj1= getoa(obj,1); |
| Line 23 else if (strcmp(key,"cgiHttpToKeyValuePair") == 0) { |
|
| Line 33 else if (strcmp(key,"cgiHttpToKeyValuePair") == 0) { |
|
| }else if (obj1.tag == SbyteArray) { |
}else if (obj1.tag == SbyteArray) { |
| rob = cgiHttpToKeyValuePair(KopByteArray(obj1),getByteArraySize(obj1)); |
rob = cgiHttpToKeyValuePair(KopByteArray(obj1),getByteArraySize(obj1)); |
| }else errorKan1("%s\n","cgiHttpToKeyValuePair: argument must be a string or a byte aray."); |
}else errorKan1("%s\n","cgiHttpToKeyValuePair: argument must be a string or a byte aray."); |
| |
} |
| |
else if (strcmp(key,"cgiToTokens") == 0) { |
| |
if (size != 3) errorKan1("%s\n","[(cgiToTokens) obj sep] extension tokens"); |
| |
obj1= getoa(obj,1); |
| |
obj2= getoa(obj,2); |
| |
rob = KooToTokens(obj1,obj2); |
| } |
} |