=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/oxcgi.c,v retrieving revision 1.6 retrieving revision 1.11 diff -u -p -r1.6 -r1.11 --- OpenXM/src/kan96xx/plugin/oxcgi.c 2004/09/28 12:27:17 1.6 +++ OpenXM/src/kan96xx/plugin/oxcgi.c 2020/10/06 11:33:47 1.11 @@ -1,5 +1,7 @@ -/* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.c,v 1.5 2004/09/28 12:20:40 takayama Exp $ */ +/* $OpenXM: OpenXM/src/kan96xx/plugin/oxcgi.c,v 1.10 2005/07/03 11:08:54 ohara Exp $ */ #include +#include +#include #include "datatype.h" #include "stackm.h" #include "extern.h" @@ -9,10 +11,10 @@ static int ppp(char *s,int kstart,int kend, int vstart, int vend); static int cgiHex(int p); -static test1(); -static test2(); -static test3(); -static test4(); +static void test1(); +static void test2(); +static void test3(); +static void test4(); /* main() {KSstart();test4();} */ @@ -28,8 +30,8 @@ struct object cgiUrlEncodingToKeyValuePair(char *s) { int vstart,vend; /* start of value, end of value */ int state; int nOfPairs; - struct object rob; - struct object ob; + struct object rob = OINIT; + struct object ob = OINIT; int k; n = strlen(s); start = -1; for (i=0; i 1 ) fp2fputc('?',fp); @@ -341,7 +346,7 @@ int cgiKeyValuePairToUrlEncodingFile2(struct object ob static struct object rStringToObj(char *s,int vstart,int vend,int mode) { /* mode has not yet been used. */ - struct object rob; + struct object rob = OINIT; char *sss; int i; int bytearray; bytearray=0; @@ -373,7 +378,8 @@ struct object cgiHttpToKeyValuePair(char *s,int size) int ssize,i,j,k; int nOfPairs, startbody,state, kstart,kend,vstart, vend,startline,endline; int nextstart,path; - struct object rob,ob; + struct object rob = OINIT; + struct object ob = OINIT; ssize = strlen(s); nOfPairs = 0; startbody = -1; /* state==0 : readline and set startline and endline; state = 1; @@ -456,7 +462,9 @@ char *cgiKeyValuePairToHttp(struct object ob,int *size int cgiKeyValuePairToHttpFile2(struct object ob,FILE2 *fp) { int n,i; - struct object eob,eob0,eob1; + struct object eob = OINIT; + struct object eob0 = OINIT; + struct object eob1 = OINIT; char *key, *s; checkKeyValuePairFormat(ob,"cgiKeyValuePairToHttpFile2"); n = getoaSize(ob); @@ -490,9 +498,9 @@ int cgiKeyValuePairToHttpFile2(struct object ob,FILE2 } -static test3() { +static void test3() { char *s; - struct object ob; + struct object ob = OINIT; s = "Pragma: no-cache\nContent-Length: 2915\nContent-Type: text/html\nConnection: close\n\n
\n

 \n

"; ob=cgiHttpToKeyValuePair(s,strlen(s)); @@ -553,4 +561,74 @@ struct object KooUrlEncodedStringToObj(struct object s n = getByteArraySize(sob); }else errorKan1("%s\n","KooUrlEncodedStringToObj: argument must be a string."); return urlEncodedStringToObj(s,0,n-1,0); +} + +static struct object toTokens(char *s,int *sep,int nsep) { + /* s is the input, and sep are the separators. */ + /* -1 means <=' ' are separators */ + int nOfTokens,n,i,done,k,start,sav; + struct object rob = OINIT; + char *t; + + rob = NullObject; + if (nsep < 1) return rob; + if (sep[0] != -1) { + fprintf(stderr,"cgiToTokens: Not implemeted for this separator.\n"); + return rob; + } + + /* Count the number of tokens */ + n = strlen(s); i = 0; nOfTokens=0; + while (i < n) { + done = 0; + while (s[i] <= ' ') { + i++; if (i >= n) { done=1; break;} + } + if (done==1) break; + nOfTokens++; + while (s[i] > ' ') { + i++; if (i >= n) { done=1; break; } + } + if (done == 1) break; + } + + rob = newObjectArray(nOfTokens); + n = strlen(s); i = 0; k = 0; + while (i < n) { + done = 0; + while (s[i] <= ' ') { + i++; if (i >= n) { done=1; break;} + } + if (done==1) break; + start = i; + while (s[i] > ' ') { + i++; if (i >= n) { done=1; break; } + } + t = (char *) GC_malloc(i-start+1); + if (t == NULL) { fprintf(stderr,"No more memory.\n"); exit(10); } + t[i-start] = 0; + strncpy(t,&(s[start]),i-start); + putoa(rob,k,KpoString(t)); + k++; + if (done == 1) break; + } + + return rob; +} + +struct object KooToTokens(struct object ob,struct object sep) { + char *s; + int n; + int tmp[1]; + tmp[0] = -1; + if (ob.tag == Sdollar) { + s = KopString(ob); + n = strlen((char *)s); + }else errorKan1("%s\n","KooToTokens: the first argument must be a string."); + if (sep.tag == Sarray) { + if (getoaSize(sep) != 0) { + errorKan1("%s\n","This separators have not been implemented."); + } + }else errorKan1("%s\n","KooToTokens: the second argument(separators) must be an array."); + return toTokens(s,tmp,1); }