cgi_js.c File Reference

#include "cgi.h"

Include dependency graph for cgi_js.c:

Go to the source code of this file.

Functions
int	RunScriptFunction (ScriptEnvironment *Env, FILE *script, int end, char *name, CGINameValue *Variables, char **outstr)
int	SkipWhitespace (FILE *source, int end)
int	SpecialWord (FILE *source, char *buf, int size, int end)
int	ReadNextToken (FILE *source, char *buf, int size, int end, int *isSyntax)
char *	JSReport (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSGetEnv (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSToNumber (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSHTMLEscape (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSTimeStamp (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSHasRecord (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSRandom (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSEval (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JStoFixed (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSstrlen (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSsubstr (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSIndexOf (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
char *	JSPrint (ScriptEnvironment *Env, char *cmd, int argc, char **argv, CGINameValue *Params)
int	RunScriptObject (ScriptEnvironment *Env, FILE *script, int end, char *name, CGINameValue *Variables, char **outstr)
int	EvaluateArgument (ScriptEnvironment *Env, FILE *script, int *e, CGINameValue *Variables, char *endchars, char **outstr, int asNumber)
int	DelimitedSection (FILE *script, char *out, size_t length, int end, char *open, char *close, int errbase)
int	RunScript (ScriptEnvironment *Env, FILE *script, CGINameValue *Variables)
Variables
static unsigned int	random_seed

---

Function Documentation

int DelimitedSection (  FILE *  script, char *  out, size_t  length, int  end, char *  open, char *  close, int  errbase )

Definition at line 689 of file cgi_js.c. References ReadNextToken(). Referenced by RunScript(). { char word[8]; char c; int count = 1; size_t i=0; word[0] = '\n'; while (word[0] == '\n') end = ReadNextToken(script,word,sizeof(word),end,0); if (!strchr(open,word[0])) return errbase; while (count && fread(&c,1,1,script)) { if (strchr(open,c)) count++; else if (strchr(close,c)) count--; if (count && out && i< length) out[i++]=c; } if (out && i<length) out[i]=0; if (!strchr(close,c)) return errbase+1; /* unterminated end of line */ return 0; }

int EvaluateArgument (  ScriptEnvironment *  Env, FILE *  script, int *  e, CGINameValue *  Variables, char *  endchars, char **  outstr, int  asNumber )

Arithmetic or string concatenation? Decide based on the first object. If the first symbol is a variable name that is null, then do string concatenation. Otherwise, if the first symbol evaluates to a number, do arithmetic. Construct a text buffer before evaluating algebra. Functions and objects are evaluated as necessary. Definition at line 520 of file cgi_js.c. References BufferWrite(), CGIFREE, CopyBuffer(), DeleteBuffer(), EvaluateExpression(), GetFieldValue, IsNumber(), NewBuffer(), ReadNextToken(), RunScriptFunction(), and RunScriptObject(). Referenced by RunScript(), and RunScriptFunction(). { char word[4096]; int mode = asNumber; /*0=unknown, 1=number, 2=text */ int ret = 0; char* value; int parity = 0; /* 1=syntax expected */ int end = *e; TextBuffer* m = NewBuffer(1024); while(!ret && end != -1 && !strchr(endchars,end)) { int isSyntax = 0; value = 0; end = ReadNextToken(script,word,sizeof(word),end,&isSyntax); if (word[0] == 0) continue; if (strchr(endchars,word[0])) { end = word[0]; break; } if (isSyntax) /*adjacent symbols are ok, but not adjacent expressions */ { if (mode != 2) BufferWrite(m,word); parity = 0; continue; } if (mode && parity) ret = 47; if (!strcmp(word,"(")) { ret = EvaluateArgument(Env,script,&end,Variables,")",&value,1); } else if (word[0] == '\'') { BufferWrite(m,word+1); if (mode == 0) mode = 2; /* a string */ } else if (end == '(') /* function call */ { ret = RunScriptFunction(Env,script,' ',word,Variables,&value); end = ' '; } else if (end == '[') /* object variable */ { ret = RunScriptObject(Env,script,' ',word,Variables,&value); end = ' '; } else if (IsNumber(word,0)) { BufferWrite(m,word); if (mode == 0) mode = 1; } else { char* x = GetFieldValue(Variables,word); BufferWrite(m,x); if (mode == 0) mode = (x[0] && IsNumber(x,0)) ? 1 : 2; } parity = 1; if (ret) break; if (value) { if (mode == 0) mode = (value[0] && IsNumber(value,0)) ? 1 : 2; BufferWrite(m,value); CGIFREE(value); } else if (mode == 0) mode = 2; /* function returned null, shorthand for empty string */ } /* while */ if (ret == 0 && mode==0) /* empty line, no symbols */ ret = 49; if (!ret) { value = CopyBuffer(m); if (mode == 1) { *outstr = EvaluateExpression(Variables,0,value); CGIFREE(value); } else *outstr = value; } DeleteBuffer(m); *e = end; return ret; }

char* JSEval (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 338 of file cgi_js.c. References EvaluateExpression(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { if (!argc) return 0; return EvaluateExpression(Params,0,argv[0]); }

char* JSGetEnv (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 215 of file cgi_js.c. References GetEnvironment(), ScriptEnvironment::htmlout, and strdup(). Referenced by CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), and ValidatePage(). { #ifndef VPWSCGI char* c; if (argc == 0) return 0; c = GetEnvironment(Env->htmlout,argv[0]); if (c) return strdup(c); #endif return 0; }

char* JSHasRecord (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 290 of file cgi_js.c. References ScriptEnvironment::argv0, DatabaseClose(), DatabaseFindNextRecord(), DatabaseOpen(), ExpandLocalPath(), MAXPATH, and strdup(). Referenced by CGImain(), RunReportF(), and WFmain(). { FILE* database; CGINameValue* header; char dbfile[MAXPATH]; int r = 0; if (argc < 2) return 0; if (strlen(argv[0]) > MAXPATH) return 0; dbfile[0] =0; if (Env->argv0) if (strlen(argv[0]) + strlen(Env->argv0) < MAXPATH ) ExpandLocalPath(Env->argv0,dbfile,argv[0],0); if (DatabaseOpen(*dbfile?dbfile:argv[0],&database,&header,0,0)) { r = DatabaseFindNextRecord(database,header,Params,argv[1]); DatabaseClose(database,header); } return strdup(r?"1":"0"); }

char* JSHTMLEscape (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

in: jack & jill have < 2 broken heads out: jack & jill have < 2 broken heads Definition at line 236 of file cgi_js.c. References CGIMALLOC, NULL, and UTF8ToUCS2C(). Referenced by CGImain(), RunReportF(), and WFmain(). { int c=0; size_t i,j,k=1; char *in; char *out; j=0; if (argc != 1) return NULL; in = argv[0]; for (i=0; in[i]; i++) { j++; //2 chars, 11 bits. max 4095 -> 4 + 3 = 7 //3 chars, 16 bits. max 65535 -> 5 + 3 = 8 //4 chars, 23 bits. max 16777215 -> 8 + 3 = 11 if (in[i] & 0x80) j+= 3; else if (strchr("<>&\"",in[i])) j += 5; } out = CGIMALLOC(strlen(in) + j); j = 0; for (i=0; in[i]; ) { k = UTF8ToUCS2C(in+i,&c); if (k > 1) { j += sprintf(out+j,"&#%d;",c); i += k; } else { switch(in[i]) { case '<': memcpy(out+j,"&lt;",4); j+=4; break; case '>': memcpy(out+j,"&gt;",4); j+=4; break; case '&': memcpy(out+j,"&amp;",5); j+=5; break; case '\"': memcpy(out+j,"&quot;",6); j+=6; break; default: out[j++] = in[i]; } i++; } } return out; }

char* JSIndexOf (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

indexOf(string,substring,startpos,reverse) Definition at line 399 of file cgi_js.c. References strdup(), and stristr(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { char* str; char* sub; int start=0; int dir=0; int length; char*c=0; char temp[32]; if (argc < 2) return strdup("-1"); str = argv[0]; sub = argv[1]; if (argc > 2) start = atoi(argv[2]); if (argc > 3) dir = atoi(argv[3]); length = strlen(str); if (start < 0) start = length - start; if (start < 0) start = 0; if (sub && start < length) { if (dir) { int i = length - strlen(sub); while (i > start && c == 0) { c = (char*)stristr(str + i,sub); i--; } } if (!c) c = (char*)stristr(str + start,sub); } if (!c) return strdup("-1"); start = c - str; sprintf(temp,"%d",start); return strdup(temp); }

char* JSPrint (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 438 of file cgi_js.c. References ScriptEnvironment::htmlout, HTMLWrite(), NULL, and stristr(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { int i; for (i=0; i<argc; i++) { HTMLWrite(Env->htmlout,argv[i]); } if (stristr(cmd,"ln")) HTMLWrite(Env->htmlout,"\r\n"); return NULL; }

char* JSRandom (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 319 of file cgi_js.c. References CGIMALLOC, and random_seed. Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { unsigned int x; char* result = (char*)CGIMALLOC(32); #ifdef __WINCE__ random_seed += GetTickCount(); #else random_seed += time(0); #endif if (argc == 0) x = random_seed; else { x = atoi(argv[0]); if (!x ) x = random_seed; else x = random_seed % x; } sprintf(result,"%d",x); return result; }

char* JSReport (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 173 of file cgi_js.c. References ScriptEnvironment::argv0, CGIFCLOSE, CGIFOPEN, ScriptEnvironment::config, CopyBuffer(), DeleteBuffer(), ExpandLocalPath(), MAXPATH, NewBuffer(), NULL, and RunReport(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { EZSSTREAM result; int i; char*c = 0; if (!Env->config || !argc) return 0; memset(&result,0,sizeof(result)); result.t = NewBuffer(1024); for (i=0; i< argc; i ++) { if (*argv[i]) { char filename[MAXPATH]; FILE* script = 0; if (Env->argv0) if (strlen(argv[i]) + strlen(Env->argv0) < MAXPATH ) { ExpandLocalPath(Env->argv0,filename,argv[i],0); script = CGIFOPEN(filename,"rb"); } if (!script) script = CGIFOPEN(argv[i],"rb"); if (script) { RunReport(Env->argv0,&result,script,Params,NULL,NULL,0,NULL); CGIFCLOSE(script); } } } if (argc) { c = CopyBuffer(result.t); } DeleteBuffer(result.t); return c; }

char* JSstrlen (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

length(string) Definition at line 363 of file cgi_js.c. References strdup(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { char temp[32]; sprintf(temp,"%d",argc ? strlen(argv[0]) : 0); return strdup(temp); }

char* JSsubstr (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

substr(string,start,length) Definition at line 370 of file cgi_js.c. References NULL, strdup(), and strndup(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { char* str; int start=0; int delta=65535; int length; int end; if (!argc) return NULL; str = argv[0]; if (argc > 1) start = atoi(argv[1]); if (argc > 2) delta= atoi(argv[2]); length = strlen(str); if (start < 0) start = length + start; if (start < 0) start = 0; end = start + delta; if (end == start || start >= length) return strdup(""); if (end >= length) end = length; length = abs(start - end); if (end < start) start = end; return strndup(str + start, length); }

char* JSTimeStamp (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 283 of file cgi_js.c. References GetTime(), and strdup(). { char datetime[16]; GetTime(datetime,datetime+8,0); return strdup(datetime); }

char* JStoFixed (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 344 of file cgi_js.c. References NULL, and strdup(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { double d; int x; char format[32]; char result[128]; if (argc == 0) return 0; d = strtod(argv[0],NULL); if (argc == 2) x = atoi(argv[1]); else x = 0; sprintf(format,"%%.%df",x); sprintf(result,format,d); return strdup(result); }

char* JSToNumber (  ScriptEnvironment *  Env, char *  cmd, int  argc, char **  argv, CGINameValue *  Params )

Definition at line 226 of file cgi_js.c. References IsNumber(), and strdup(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), ValidateBack(), ValidatePage(), and WFmain(). { if (argc == 0) return 0; if (!IsNumber(argv[0],0)) return 0; return strdup(argv[0]); }

int ReadNextToken (  FILE *  source, char *  buf, int  size, int  end, int *  isSyntax )

read the next token from the file stream. Punctuation such as { } ; count as words. Strings may be ' or " delimited Definition at line 116 of file cgi_js.c. References ReadUntilChar(), SkipWhitespace(), and SpecialWord(). Referenced by DelimitedSection(), EvaluateArgument(), RunScript(), and RunScriptObject(). { /* <= >= += -= *= /= == are awkward */ buf[0]=0; if (end == -1) return -1; /* already hit the EOF */ buf[0] = (char)SkipWhitespace(source,end); while (1) { if (strchr("\r\n#*-/^,;{}()[]<>+=",buf[0])) /* 1 or 2 character word */ { if (isSyntax) *isSyntax = 1; if (buf[0] == '\r') buf[0] = '\n'; if (buf[0] && strchr("<>+=/",buf[0])) /* check for 2-character operators */ return SpecialWord(source,buf,size,buf[0]); /* syntax char -- don't need to check the next word */ buf[1]=0; return ' '; /* pretend that whitespace stopped the scan */ } if (buf[0] == '%') /* %> ends an inline script, and % is a modulus */ { if (!fread(buf+1,1,1,source)) return -1; if (buf[1] == '>') {buf[0]=0; return -1;} else {end=buf[1]; buf[1]=0; return end;} } if (buf[0] == '\"' || buf[0] == '\'') /* read a string */ { int i = 1; end = buf[0]; buf[0] = '\''; /* mark as a string by setting the first character */ while (1) { if (!fread(buf+i,1,1,source)) return -1; if (buf[i] == '\\') { if (!fread(buf+i,1,1,source)) return -1; if (buf[i] == 'n') buf[i] = '\n'; /* special replacement codes */ else if (buf[i] == 'r') buf[i] = '\r'; else if (buf[i] == 't') buf[i] = '\t'; } else if (buf[i] == end) break; if (i < size-1) i++; } buf[i] = 0; /* terminate the string */ return ' '; /* Done! Treat as whitespace termination */ } else /* ordinary word -- read until whitespace or grammar*/ { /* if whitespace stopped the scan, keep reading until the next char */ end = ReadUntilChar(source,buf+1,size-1," \t\r\n#*-/,;{}()[]<>+=",0); return SkipWhitespace(source,end); } } /* while */ }

int RunScript (  ScriptEnvironment *  Env, FILE *  script, CGINameValue *  Variables )

return values are 0: OK nonzero: error. see cgi.j for error codes Definition at line 719 of file cgi_js.c. References CGIFREE, CGIMALLOC, ScriptEnvironment::curpos, DelimitedSection(), ScriptEnvironment::endchar, EvaluateArgument(), EvaluateLogic(), ExtendNVP(), GetFieldValue, HasTokenI(), IsNumber(), ScriptEnvironment::lastLine, ReadNextToken(), ReadUntilChar(), ReadUntilWord(), RenameField(), RunScript(), RunScriptFunction(), SetFieldValue(), strdup(), strdup3(), and stricmp(). Referenced by AdminRunScript(), CGImain(), ODBCRunScript(), RunReportF(), RunScript(), ValidateBack(), ValidatePage(), and WFmain(). { char* name; char word[4096]; /* int end = 0; */ int inif = 0; int CurrentTruth = 0; int ret = 0; int end = ' '; /* start with a clean slate */ /* HTMLPrintf(htmlout,"<P>Q3=%s\n",GetFieldValue(Variables,"Q3")); */ name = 0; while (ret==0 && Env->endchar != -1) { Env->lastLine = ftell(script); end = ReadNextToken(script,word,sizeof(word),end,0); if (end <= 0) break; if (word[0] == '#') /* Perl comments */ { end = ReadUntilChar(script,0,0,"\n",'\r'); continue; } if (word[0] == 0) continue; /* oops, between words. ignore it. */ if (word[0] == ';' || word[0] == '\n' || word[0] == ',') continue; /* comma or space can be delimiters, we don't care */ if (word[0] == '\'') ret = 43; /* misplaced string constant */ if (word[0] == '}') break; if (word[0] == '{') { ret = RunScript(Env,script,Variables); if (ret) break; end = Env->endchar; continue; } /* C++ comments */ if (!strcmp(word,"//") && (end != '\n' && end != '\r')) { end = ReadUntilChar(script,0,0,"\r\n",0); continue; } if (word[0] == '/') /* C comments */ if (word[1] == '*' && !strstr(word+2,"*/")) { ReadUntilWord(script,0,0,"*/"); end = ' '; continue; } if (!stricmp(word,"var")) continue; if (HasTokenI("</script>,&exit,quit,exit,&end,&return,%>",word,0)) {end = -1; break;} // delete variable_name if (!stricmp(word,"delete")) { end = ReadNextToken(script,word,sizeof(word),end,0); if (*word) RenameField(Variables,word,0); if (end < 0) break; continue; } if (!stricmp(word,"if")) /*evaluate a condition, and run the child code */ {/* end resets after DelimitedSection() */ startif: ret = DelimitedSection(script,word,sizeof(word),end,"(",")",41); if (ret) break; CurrentTruth = EvaluateLogic(word,Variables,0); inif = 1; if (CurrentTruth) { word[0] = '\n'; while (word[0] == '\n') end = ReadNextToken(script,word,sizeof(word),0,0); if (word[0] != '{') {ret = 70; break;} ret = RunScript(Env,script,Variables); if (ret) break; end = Env->endchar; } else { ret = DelimitedSection(script,0,0,0,"{","}",70); if (ret) break; end = ' '; } continue; } if (!stricmp(word,"else")) /* finish an if condition */ { if (!inif) {ret = 44; break; } if (end != '{') { end = ReadNextToken(script,word,sizeof(word),end,0); if (!stricmp(word,"if")) /* else if {foo()} , next token = if*/ goto elsif; else if (end < 0) break; else /* else {foo()}, next token = { */ end=word[0]; } inif = 0; if (!CurrentTruth) { if (end != '{') { ret = 70; break; } ret = RunScript(Env,script,Variables); if (ret) break; end = Env->endchar; } else { skip: ret = DelimitedSection(script,0,0,end,"{","}",70); if (ret) break; end = ' '; } continue; } if (!stricmp(word,"elif") || !stricmp(word,"elsif")) /*evaluate a condition, and run the child code*/ { elsif: if (!inif) {ret = 44; break; } if (CurrentTruth) goto skip; /* previous was false, so OK to evaluate this section */ else goto startif; /* evaluate this section */ } /* out of an if section */ inif = 0; /* variable assignment or function call*/ CGIFREE(name); name = strdup(word); end = ReadNextToken(script,word,sizeof(word),end,0); /* email = email + "@" "caltech.edu" */ /* total = Q1 + Q2 + Q3 + (Q4 * 4) */ if (!strcmp(word,"=") || !stricmp(word,"+=")) /* variable assignment */ { char* value = 0; ret = EvaluateArgument(Env,script,&end,Variables,"\r\n;}",&value,0); if (ret) break; if (word[0] == '+') { char * c = GetFieldValue(Variables,name); if (IsNumber(c,0) && IsNumber(value,0)) { char* x=0; double a = strtod(c,&x); if (*x) goto concat; a += strtod(value,&x); if (*x) goto concat; CGIFREE(value); value = CGIMALLOC(64); sprintf(value,"%f",a); } else { concat: c = strdup3(c,value,""); CGIFREE(value); value = c; } } if (!SetFieldValue(Variables,name,value)) { ExtendNVP(Variables,128); SetFieldValue(Variables,name,value); /* add to the list of 'shadow variables' that won't get saved */ } CGIFREE(value); } else if (!strcmp(word,"++")) /* numeric increment */ { char * c = GetFieldValue(Variables,name); char value[128]; sprintf(value,"%f",strtod(c,0) + 1.0); SetFieldValue(Variables,name,value); } else if (!strcmp(word,"(")) /* command, no lvalue */ { ret = RunScriptFunction(Env,script,end,name,Variables,0); end = ' '; /* eat the paren */ } else { ret = 46; /* unknown command */ break; } } /* while */ CGIFREE(name); Env->endchar = end; Env->curpos = ftell(script); if (ret == -1) ret = 0; /* -1 is OK */ return ret; } /* RunScript */

int RunScriptFunction (  ScriptEnvironment *  Env, FILE *  script, int  end, char *  name, CGINameValue *  Variables, char **  outstr )

Definition at line 627 of file cgi_js.c. References CGIMALLOC, EvaluateArgument(), ScriptEnvironment::F2, ScriptEnvironment::Functions, ScriptFunction::name, NULL, ScriptFunction::parameters, ScriptFunction::run, and stricmp(). Referenced by EvaluateArgument(), and RunScript(). { /* char word[4096];*/ ScriptFunction * fn = NULL; char ** argv = {NULL}; int argc = 0; int ret = 0; int i; if (!Env->Functions && !Env->F2) return 48; if (name[0] == '&') name ++; /* looks like perl */ if (Env->Functions) for (i=0; fn == NULL && Env->Functions[i].run != NULL; i++) if (!stricmp(Env->Functions[i].name,name)) fn = Env->Functions + i; if (Env->F2) for (i=0; fn == NULL && Env->F2[i].run != NULL; i++) if (!stricmp(Env->F2[i].name,name)) fn = Env->F2 + i; if (fn == NULL) return 48; if (end != ';' && end != '\n') { argv = (char**) CGIMALLOC (sizeof(char*) * (1+fn->parameters)); memset(argv,0,sizeof(char*) * (1+fn->parameters)); while(!ret && end != ')') { char* value; ret = EvaluateArgument(Env, script, &end, Variables, ",)}",&value,0); if (!ret && value != NULL && argc < fn->parameters) argv[argc++] = value; if (end == ',') end = ' '; } } if (!ret) { char* result = fn->run(Env,name,argc,argv,Variables); if (outstr != NULL) *outstr = result; else if (result != NULL) CGIFREE(result); } for (i=0; i< argc; i++) { CGIFREE(argv[i]); } if (argv) CGIFREE(argv); return ret; }

int RunScriptObject (  ScriptEnvironment *  Env, FILE *  script, int  end, char *  name, CGINameValue *  Variables, char **  outstr )

Definition at line 450 of file cgi_js.c. References ScriptObject::data, GetFieldValue, ScriptObject::name, NULL, ScriptEnvironment::Objects, ReadNextToken(), ReadUntilChar(), strdup(), and stricmp(). Referenced by EvaluateArgument(). { char word[4096]; ScriptObject * ob = NULL; char* value; int i; if (outstr) *outstr = NULL; if (!Env->Objects) return 45; for (i=0; Env->Objects[i].name != NULL; i++) { if (!stricmp(Env->Objects[i].name,name)) { ob = Env->Objects + i; break; } } if (ob == NULL) return 45; end = ReadNextToken(script,word,sizeof(word),end,0); if (word[0] == '[') end = ReadNextToken(script,word,sizeof(word),end,0); if (word[0] == 0) return 45; if (word[0] == '\'' ) { if (end == -1 || strchr(word,'\n')) return 40; value = word + 1; } else { value = GetFieldValue(Variables,word); } if (end != ']') ReadUntilChar(script,0,0,"]",0); if (outstr) *outstr = strdup(GetFieldValue(ob->data,value)); return 0; }

int SkipWhitespace (  FILE *  source, int  end )

and are meaningful tokens, so don't skip them. End should generally not be zero Definition at line 43 of file cgi_js.c. Referenced by ReadNextToken(), and SpecialWord(). { char temp; while (end != -1 && (end == ' ' || end == '\t' || end == 0)) { if (!fread(&temp,1,1,source)) return -1; end = temp; } return end; }

int SpecialWord (  FILE *  source, char *  buf, int  size, int  end )

Definition at line 54 of file cgi_js.c. References ReadUntilChar(), and SkipWhitespace(). Referenced by ReadNextToken(). { if (!fread(buf,1,1,source)) return -1; if (end == '<' && buf[0] == '/') /* xml end tag */ { buf[0]='<'; buf[1]='/'; end = ReadUntilChar(source,buf+2,size-2,">",0); if (end == '>') strcat(buf,">"); return ' '; } if (end == '/' && (buf[0] == '/' || buf[0] == '*')) { buf[1]=buf[0]; buf[0]=(char) end; buf[2]=0; return ' '; } if (buf[0] == '=') { buf[0] = (char) end; buf[1] = '='; /* == */ buf[2] = 0; if (end != '=') return ' '; /* += */ if (!fread(buf+2,1,1,source)) return -1; if (buf[2] == '=') /* === */ { buf[3]=0; return ' '; } else { end = buf[2]; buf[2] = 0; return end; } } else if (buf[0] == '+' && end == '+') /* ++ */ { buf[1] = buf[0]; buf[2] = 0; return ' '; } else { buf[1] = buf[0]; buf[0] = (char)end; end = buf[1]; buf[1] = 0; return SkipWhitespace(source,end); } }

---

Variable Documentation

unsigned int random_seed [static]

Definition at line 317 of file cgi_js.c. Referenced by JSRandom().

Raosoft EZReport, EZSurvey, InterForm, RapidReport, Raosoft, and SurveyWin are registered trademarks of Raosoft, Inc. Page contents © 1996-2007 by Raosoft, Inc. You may use and modify this file for your own use, but may not distribute it or derivative works without the prior written consent of Raosoft, Inc. This software is provided "as is," and Raosoft makes no warranty, express or implied, of fitness for a particular application. Every measure has been taken to anticipate risks inherent to computer networks, but we cannot guarantee safety or reliability of this program in every situation.

Tel: 206-525-4025 (US) Email: raosoft@raosoft.com
http://www.raosoft.com/