File: [local] / OpenXM / src / kan96xx / plugin / oxcgi.hh (download)
Revision 1.3, Mon Sep 27 01:20:46 2004 UTC (19 years, 10 months ago) by takayama
Branch: MAIN
CVS Tags: RELEASE_1_2_3 Changes since 1.2: +11 -1
lines
cgiPolymake (cgi-poymake.sh) is a CGI version of polymake partially complient
to OoHG (ox104).
doPolymake.OoHG is a client program to call CGI/polymake by OoHG.
|
/* $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.");
}