===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/oxcgi.c,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM/src/kan96xx/plugin/oxcgi.c	2004/09/24 08:35:47	1.2
+++ OpenXM/src/kan96xx/plugin/oxcgi.c	2004/09/27 11:18:23	1.4
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.c,v 1.1 2004/09/21 12:52:01 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.c,v 1.3 2004/09/27 01:20:46 takayama Exp $ */
 #include <stdio.h>
 #include "datatype.h"
 #include "stackm.h"
@@ -35,6 +35,7 @@ struct object cgiUrlEncodingToKeyValuePair(char *s) {
   for (i=0; i<n; i++) {
     if (s[i] == '?') { start=i+1; break;}
   }
+  if (start == -1) start=0;
   for (k=0; k<2; k++) {
     /* k==0 path one. Count nOfPairs. */
     /* k==1 path two. generate array. */
@@ -521,3 +522,30 @@ struct object cgiKeyValuePairToHttpString(struct objec
   return KpoString(s);
 }
 
+struct object KooStringToUrlEncoding(struct object sob) {
+  unsigned char *s;
+  char *rs;
+  int n;
+  if (sob.tag == Sdollar) {
+    s = (unsigned char *) KopString(sob);
+    n = strlen((char *)s);
+  }else if (sob.tag == SbyteArray) {
+    s = KopByteArray(sob);
+    n = getByteArraySize(sob);
+  }else errorKan1("%s\n","KooStringToUrlEncoding: argument must be a string or a bytearray.");
+  rs = byteArrayToUrlEncoding(s,n);
+  return KpoString(rs);
+}
+
+struct object KooUrlEncodedStringToObj(struct object sob) {
+  char *s;
+  int n;
+  if (sob.tag == Sdollar) {
+    s = KopString(sob);
+    n = strlen((char *)s);
+  }else if (sob.tag == SbyteArray) {
+    s = KopByteArray(sob);
+    n = getByteArraySize(sob);
+  }else errorKan1("%s\n","KooUrlEncodedStringToObj: argument must be a string.");
+  return urlEncodedStringToObj(s,0,n-1,0);
+}