OpenXM/src/kan96xx/plugin/oxcgi.hh - diff

Return to oxcgi.hh CVS log

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

Diff for /OpenXM/src/kan96xx/plugin/oxcgi.hh between version 1.1 and 1.4

-version 1.1, 2004/09/21 12:52:01
+version 1.4, 2005/02/27 05:28:06
 Line 1
 Line 1
 Line 1
- /* $OpenXM$ */
+ /* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.hh,v 1.3 2004/09/27 01:20:46 takayama Exp $ */
+ else if (strcmp(key,"cgiUrlEncodingToKeyValuePair") == 0) {
+   if (size != 2) errorKan1("%s\n","[(cgiUrlEncodingToKeyValuePair)  obj] extension kv-pair.");
+   obj1 = getoa(obj,1);
+   if (obj1.tag != Sdollar) errorKan1("%s\n","cgiUrlEncodingTOKeyValuePair: argument must be a string.");
+   rob = cgiUrlEncodingToKeyValuePair(KopString(obj1));
+ }
+ else if (strcmp(key,"cgiKeyValuePairToHttpString") == 0) {
+   if (size != 2) errorKan1("%s\n","[(cgiKeyValuePairToHttpString) kv-pair] extension sobj");
+   obj1= getoa(obj,1);
+   rob = cgiKeyValuePairToHttpString(obj1);
+ }
+ else if (strcmp(key,"cgiKeyValuePairToUrlEncodingString") == 0) {
+   if (size != 2) errorKan1("%s\n","[(cgiKeyValuePairToUrlEncodingString)  kv-pair] extension sobj.");
+   obj1 = getoa(obj,1);
+   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) {
+   if (size != 2) errorKan1("%s\n","[(cgiHttpToKeyValuePair) sobj] extension kv-pair");
+   obj1= getoa(obj,1);
+   if (obj1.tag == Sdollar) {
+           rob = cgiHttpToKeyValuePair(KopString(obj1),strlen(KopString(obj1)));
+   }else if (obj1.tag == SbyteArray) {
+           rob = cgiHttpToKeyValuePair(KopByteArray(obj1),getByteArraySize(obj1));
+   }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);
+ }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>