[BACK]Return to oxcgi.hh CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / plugin
File: [local] / OpenXM / src / kan96xx / plugin / oxcgi.hh (download)

Revision 1.4, Sun Feb 27 05:28:06 2005 UTC (19 years, 2 months ago) by takayama
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.3: +7 -1 lines 

toTokenBySpace (written in the sm1 language) is now
written in C.

/* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.hh,v 1.4 2005/02/27 05:28:06 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);
}