WebSVN – wimsdev – Diff – /trunk/wims/src/var.c

  *  You should have received a copy of the GNU General Public License
  *  along with this program; if not, write to the Free Software
  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  */
-        /* Low-level variable management routines. */
+/* Low-level variable management routines. */
-#define VARBUF_LEN      (256*1024)
+#define VARBUF_LEN (256*1024)
-#define VARBUF_NUM      16
+#define VARBUF_NUM 16
-#define VARNAME_LEN     32768
+#define VARNAME_LEN 32768
-#define VARNUM_LIMIT    4096
+#define VARNUM_LIMIT 4096
-#define vb_internal     1
+#define vb_internal 1
-#define vb_ro           2
+#define vb_ro 2
-#define vb_dirty        4
+#define vb_dirty 4
-#define vb_noexport     8
+#define vb_noexport 8
-#define vb_hacked       16
+#define vb_hacked 16
-char *_varbuf[VARBUF_NUM];      /* main variable value buffer */
+char *_varbuf[VARBUF_NUM]; /* main variable value buffer */
 char *_varptr;
 int _varbufcurr;
 char *_varnamebuf, *_varnameptr; /* variable name buffer */
-        /* wims_ variables that should be exported */
+/* wims_ variables that should be exported */
 char *exportvars[]={
       "class",
       "deposit",
       "home",
       "inssub",
     char *name, *val;
     unsigned short int vlen;
     char tag,lvl;
 } fastvartab[128], mainvartab[VARNUM_LIMIT];
-/* int vlenmin[]={0,1,20,45,    100,200,400,800,        1500,3000,6000}; */
+/* int vlenmin[]={0,1,20,45,100,200,400,800,1500,3000,6000}; */
-int vlenmax[]={1,32,64,128,     256,512,1024,2048,      4096,8192,MAX_LINELEN+1};
+int vlenmax[]={1,32,64,128, 256,512,1024,2048, 4096,8192,MAX_LINELEN+1};
-int freelim[]={1,500,500,300,   200,150,100,80,         60,50,30};
+int freelim[]={1,500,500,300, 200,150,100,80, 60,50,30};
 #define lvlno (sizeof(vlenmax)/sizeof(vlenmax[0]))
 #define freevtot (1+500+500+300 +200+150+100+80        +60+50+30)
 int freevars[lvlno], freevstart[lvlno];
 int freevcnt=0,bufvcnt=0;
     var_nw=getvar("wims_nw");
     var_pfx=getvar("wims_prefix");
     untrust=sav;
+}
-        /* Returns 1 if rights OK. Else 0. */
+/* Returns 1 if rights OK. Else 0. */
 int var_checkright(char *name, char *allow, char *deny, char *prefix)
+{
     if(strcmp(name,"wims_read_parm")==0) return 1;
     if(allow!=NULL && allow[0]!=0 && wordchr(allow,name)!=NULL) return 1;
     if(deny!=NULL && deny[0]!=0 && wordchr(deny,name)!=NULL) return 0;
     if(prefix!=NULL && prefix[0]!=0) {
-        char *p, buf[MAX_NAMELEN+1];
+     char *p, buf[MAX_NAMELEN+1];
-        for(p=name; *p!=0 && *p!='_'; p++);
+     for(p=name; *p!=0 && *p!='_'; p++);
-        if(*p!='_' || p-name>=MAX_NAMELEN) return 0;
+     if(*p!='_' || p-name>=MAX_NAMELEN) return 0;
-        memmove(buf,name,p-name); buf[p-name]=0;
+     memmove(buf,name,p-name); buf[p-name]=0;
-        if(wordchr(prefix,buf)==NULL) return 0;
+     if(wordchr(prefix,buf)==NULL) return 0;
+    }
     return 1;
+}
-        /* initialisation */
+/* initialisation */
 void var_init(void)
+{
     int i,j;
     memset(freevars,0,sizeof(freevars));
     _varbufcurr=0;
     int i, j, tag; char buf[MAX_NAMELEN+17];
     char *p, *p1, *p2;
     char *noexpword[1024];
     int noexplen[1024];
     int noexpcnt;
     noexpcnt=0;
     p=getvar("wims_noexport"); if(p==NULL) p="";
     for(p1=find_word_start(p),noexpcnt=0;
-        *p1 && noexpcnt<1024;
+     *p1 && noexpcnt<1024;
-        p1=find_word_start(p2)) {
+     p1=find_word_start(p2)) {
-        p2=find_word_end(p1);
+     p2=find_word_end(p1);
-        noexpword[noexpcnt]=p1; noexplen[noexpcnt]=p2-p1;
+     noexpword[noexpcnt]=p1; noexplen[noexpcnt]=p2-p1;
-        noexpcnt++;
+     noexpcnt++;
     }
     for(i=0;i<mainvarcnt;i++) {
-        tag=mainvartab[i].tag;
+     tag=mainvartab[i].tag;
-        if((tag&vb_dirty)==0 || (tag&vb_noexport)!=0) continue;
+     if((tag&vb_dirty)==0 || (tag&vb_noexport)!=0) continue;
-        p=mainvartab[i].name;
+     p=mainvartab[i].name;
-        for(j=0;j<noexpcnt;j++) if(strncmp(p,noexpword[j],noexplen[j])==0) {
+     for(j=0;j<noexpcnt;j++) if(strncmp(p,noexpword[j],noexplen[j])==0) {
-            mainvartab[i].tag|=vb_noexport;
+         mainvartab[i].tag|=vb_noexport;
-            goto lend;
+         goto lend;
-        }
+     }
-        if(mainvartab[i].tag&vb_hacked) {
+     if(mainvartab[i].tag&vb_hacked) {
-            add_hack(p); mainvartab[i].tag&=~vb_hacked;
+         add_hack(p); mainvartab[i].tag&=~vb_hacked;
-        }
+     }
-        snprintf(buf,sizeof(buf),"%s%s",var_prefix,p);
+     snprintf(buf,sizeof(buf),"%s%s",var_prefix,p);
-        setenv(buf,mainvartab[i].val,1);
+     setenv(buf,mainvartab[i].val,1);
-        mainvartab[i].tag&=~vb_dirty;
+     mainvartab[i].tag&=~vb_dirty;
-lend:   ;
+lend:  ;
     }
+}
 char *vaskbuf(int lvl)
 {
     char *p;
-    if(lvl>=lvlno) {    /* should never occur */
+    if(lvl>=lvlno) {  /* should never occur */
-        module_error("Internal_variable_length_overflow"); return NULL;
+     module_error("Internal_variable_length_overflow"); return NULL;
     }
     if(freevars[lvl]>0) {
-        freevars[lvl]--; freevcnt--;
+     freevars[lvl]--; freevcnt--;
-        return freevbuf[freevstart[lvl]+freevars[lvl]];
+     return freevbuf[freevstart[lvl]+freevars[lvl]];
     }
     if(_varptr+vlenmax[lvl]>=_varbuf[_varbufcurr]+VARBUF_LEN) {
-        if(_varbufcurr>=VARBUF_NUM) {
+     if(_varbufcurr>=VARBUF_NUM) {
-            module_error("variable_buffer_overflow"); return NULL;
+         module_error("variable_buffer_overflow"); return NULL;
-        }
+     }
-        _varbufcurr++; _varptr=_varbuf[_varbufcurr]=xmalloc(VARBUF_LEN);
+     _varbufcurr++; _varptr=_varbuf[_varbufcurr]=xmalloc(VARBUF_LEN);
+    }
     bufvcnt++;
     p=_varptr; _varptr+=vlenmax[lvl]; return p;
+}
-        /* returns 1 if free succeeded. */
+/* returns 1 if free succeeded. */
 int vfreebuf(int lvl, char *p)
+{
     if(p>=_varptr) return 0;
     if(p+vlenmax[lvl]==_varptr) {_varptr=p; bufvcnt--;return 1;}
     if(lvl<=0 || lvl>=lvlno || freevars[lvl]>=freelim[lvl]) return 0;
+{
     int t; char v;
     v=vn[0]; if(vn[1]) t=64; else t=0;
     if(v>='0' && v<='9') return v-'0'+t;
     else {
-        if(v>='A' && v<='Z') return v-'A'+10+t;
+     if(v>='A' && v<='Z') return v-'A'+10+t;
-        else {
+     else {
-            if(v>='a' && v<='z') return v-'a'+10+26+t;
+         if(v>='a' && v<='z') return v-'a'+10+26+t;
-            else return -1;
+         else return -1;
-        }
+     }
+    }
+}
 int var_ins(char *name,int inspoint)
 {
     int i, nlen, tag;
     if(mainvarcnt>=VARNUM_LIMIT) {
-        module_error("too_many_variable_names"); return -1;
+     module_error("too_many_variable_names"); return -1;
+    }
     for(nlen=0;nlen<=MAX_NAMELEN && (myisalnum(name[nlen]) || name[nlen]=='_');nlen++);
     if(nlen<=1 || nlen>MAX_NAMELEN || name[nlen]!=0) return -1;
     if(_varnameptr+nlen+1>_varnamebuf+VARNAME_LEN) {
-        module_error("variable_name_buffer_overflow"); return -1;
+     module_error("variable_name_buffer_overflow"); return -1;
+    }
     tag=0;
     if(search_list(ro_name,RO_NAME_NO,sizeof(ro_name[0]),name)>=0)
       tag|=vb_ro;
     if(nlen<=2 || strncmp(name,mathfont_prefix,strlen(mathfont_prefix))==0 ||
        name[nlen-1]=='_')
       tag|=vb_noexport;
     if(var_noexport) tag|=vb_noexport;
     if(name[0]=='w' && strncmp(name,wims_prefix,wpflen)==0) {
-        if(search_list(exportvars,exportvarcnt,sizeof(exportvars[0]),name+wpflen)<0)
+     if(search_list(exportvars,exportvarcnt,sizeof(exportvars[0]),name+wpflen)<0)
-          tag|=vb_noexport;
+       tag|=vb_noexport;
-        if(strncmp(name+wpflen,"priv_",strlen("priv_"))==0 ||
+     if(strncmp(name+wpflen,"priv_",strlen("priv_"))==0 ||
-           search_list(internal_name,INTERNAL_NAME_NO,sizeof(internal_name[0]),name+wpflen)>=0)
+        search_list(internal_name,INTERNAL_NAME_NO,sizeof(internal_name[0]),name+wpflen)>=0)
-          tag|=vb_internal;
+       tag|=vb_internal;
+    }
     i=inspoint; if(i>mainvarcnt) i=mainvarcnt; if(i<0) i=0;
     memmove(mainvartab+i+1,mainvartab+i,(mainvarcnt-i)*sizeof(mainvartab[0]));
     mainvarcnt++; nlen++;
     memmove(_varnameptr,name,nlen);
+{
     int n;
     n=_char_int(vname); if(n<0) return "";
     if(fastvartab[n].tag&vb_hacked) {
-        add_hack(vname); fastvartab[n].tag&=~vb_hacked;
+     add_hack(vname); fastvartab[n].tag&=~vb_hacked;
+    }
     getvar_len=fastvartab[n].vlen;
     return fastvartab[n].val;
+}
     char *p;
     if(vval) l=strlen(vval); else l=0;
     if(l>MAX_LINELEN) return 1;
     lvl=vtb->lvl;
     if(l==0) {
-        if(lvl>0) {
+     if(lvl>0) {
-            vfreebuf(lvl,vtb->val); vtb->tag|=vb_dirty;
+         vfreebuf(lvl,vtb->val); vtb->tag|=vb_dirty;
-            if(var_hacking) vtb->tag|=vb_hacked; else vtb->tag&=~vb_hacked;
+         if(var_hacking) vtb->tag|=vb_hacked; else vtb->tag&=~vb_hacked;
-            vtb->lvl=0; vtb->vlen=0;
+         vtb->lvl=0; vtb->vlen=0;
-        }
+     }
-        if(vval) vtb->val=""; else vtb->val=NULL;
+     if(vval) vtb->val=""; else vtb->val=NULL;
-        return 0;
+     return 0;
+    }
     if(l>=vlenmax[lvl]) {
-        vfreebuf(lvl,vtb->val);
+     vfreebuf(lvl,vtb->val);
-        do lvl++; while(l>=vlenmax[lvl]);
+     do lvl++; while(l>=vlenmax[lvl]);
-        vtb->lvl=lvl;
+     vtb->lvl=lvl;
-        vtb->val=p=vaskbuf(lvl);
+     vtb->val=p=vaskbuf(lvl);
+    }
     else p=vtb->val;
     vtb->vlen=l; vtb->tag|=vb_dirty;
     if(var_hacking) vtb->tag|=vb_hacked; else vtb->tag&=~vb_hacked;
     memmove(p,vval,++l); return 0;
 }
 int fast_setvar(char *vname, char *vval)
+{
     int n;
     n=_char_int(vname); if(n<0) return 1;
     return _setvar_(fastvartab+n,vval);
+}
-        /* internal constant */
+/* internal constant */
 int setvar_force=0;
-        /* Set a user variable. Now it no longer uses environment.
+/* Set a user variable. Now it no longer uses environment.
-         * Returns 0 if OK. */
+ * Returns 0 if OK. */
 int setvar(char *vname, char *vvalue)
+{
     int i,overwrite,tag;
     if(vname[0]==0) return 1;
     if((vname[1]==0 || (vname[1]=='_' && vname[2]==0)))
       return fast_setvar(vname,vvalue);
     i=search_list(mainvartab,mainvarcnt,sizeof(mainvartab[0]),vname);
     if(i<0) i=var_ins(vname,~i);
-    if(i<0) return 1;   /* error */
+    if(i<0) return 1; /* error */
     overwrite=1; tag=mainvartab[i].tag;
     if(setvar_force==0 && confset==0) {
-                /* user file has no right to modify wims variables. */
+/* user file has no right to modify wims variables. */
-        if((untrust&6)!=0) {
+     if((untrust&6)!=0) {
-            if(var_checkright(vname,var_writable,var_nw,var_pfx)==0)
+         if(var_checkright(vname,var_writable,var_nw,var_pfx)==0)
-              return 1;
+           return 1;
-            if(strncmp(vname,wims_prefix,wpflen)==0 &&
+         if(strncmp(vname,wims_prefix,wpflen)==0 &&
-               strcmp(vname,"wims_read_parm")!=0) return 1;
+            strcmp(vname,"wims_read_parm")!=0) return 1;
-        }
+     }
-        if((tag&vb_ro)!=0) overwrite=0;
+     if((tag&vb_ro)!=0) overwrite=0;
-        else if((tag&vb_internal)!=0 && !trusted_module()) return 1;
+     else if((tag&vb_internal)!=0 && !trusted_module()) return 1;
+    }
     if(!overwrite && mainvartab[i].val!=NULL) return 1;
     _setvar_(mainvartab+i,vvalue);
     if(vname[0]=='w') {
-        if(strcmp(vname,"wims_print_precision")==0) {
+     if(strcmp(vname,"wims_print_precision")==0) {
-            int a=atoi(vvalue);
+         int a=atoi(vvalue);
-            if(a>0 && a<100) print_precision=a;
+         if(a>0 && a<100) print_precision=a;
-        }
+     }
-        if(strcmp(vname,"wims_backslash_insmath")==0) {
+     if(strcmp(vname,"wims_backslash_insmath")==0) {
-            if(strcasecmp(vvalue,"yes")==0) backslash_insmath=1;
+         if(strcasecmp(vvalue,"yes")==0) backslash_insmath=1;
-            else backslash_insmath=0;
+         else backslash_insmath=0;
-        }
+     }
+    }
     return 0;
+}
 int force_setvar(char *vname,char *vvalue)
 void unsetvar(char *vname)
+{
     int i;
     if(vname[0]!=0 && (vname[1]==0 || (vname[1]=='_' && vname[2]==0))) {
-        fast_setvar(vname,NULL); return;
+     fast_setvar(vname,NULL); return;
+    }
     i=search_list(mainvartab,mainvarcnt,sizeof(mainvartab[0]),vname);
     if(i>=0) _setvar_(mainvartab+i,NULL);
+}
 #include "mathfonts.c"
-        /* Get a variable's value. */
+/* Get a variable's value. */
 char *_getvar(char *vname)
+{
     char *val;
     int i;
-    if((untrust&4)!=0 || vname[0]==0) return "";        /* called from !readdef */
+    if((untrust&4)!=0 || vname[0]==0) return ""; /* called from !readdef */
     if(vname[1]==0 || (vname[1]=='_' && vname[2]==0)) return fast_getvar(vname);
     if((untrust&6)!=0) {
-        if(var_checkright(vname,var_readable,var_nr,var_pfx)==0)
+     if(var_checkright(vname,var_readable,var_nr,var_pfx)==0)
-          return "";
+       return "";
+    }
     i=search_list(mainvartab,mainvarcnt,sizeof(mainvartab[0]),vname);
     if(i<0) val=NULL; else {
-        if(mainvartab[i].tag&vb_hacked) {
+     if(mainvartab[i].tag&vb_hacked) {
-            add_hack(vname); mainvartab[i].tag&=~vb_hacked;
+         add_hack(vname); mainvartab[i].tag&=~vb_hacked;
-        }
+     }
-        val=mainvartab[i].val; getvar_len=mainvartab[i].vlen;
+     val=mainvartab[i].val; getvar_len=mainvartab[i].vlen;
+    }
     if(vname[0]=='w' && strcmp(vname,"wims_incremental")==0) {
-        static char buf[32];
+     static char buf[32];
-        if(val==NULL) i=0;
+     if(val==NULL) i=0;
-        else i=atoi(val)+1;
+     else i=atoi(val)+1;
-        mystrncpy(buf,int2str(i),sizeof(buf));
+     mystrncpy(buf,int2str(i),sizeof(buf));
-        force_setvar(vname,buf); getvar_len=strlen(buf); val=buf;
+     force_setvar(vname,buf); getvar_len=strlen(buf); val=buf;
+    }
     return val;
+}
 char *getvar(char *vname)
+{
     char *val;
     getvar_len=0; val=_getvar(vname);
     if(val==NULL && memcmp(vname,mathfont_prefix,strlen(mathfont_prefix))==0) {// mathfont_prefix m_ is add
-        val=mathfont(vname);
+     val=mathfont(vname);
-        if(val) getvar_len=strlen(val); else getvar_len=0;
+     if(val) getvar_len=strlen(val); else getvar_len=0;
+    }
     return val;
+}
-        /* Search variables with numeric subscripts, from beg to end.
+/* Search variables with numeric subscripts, from beg to end.
-         * Store result to pbuf. Returns number of variables found. */
+ * Store result to pbuf. Returns number of variables found. */
 int varsuite(char *stem, int beg, int end, char *pbuf[], int pbuflen)
+{
     int i,t,l,v;
     i=search_list(mainvartab,mainvarcnt,sizeof(mainvartab[0]),stem);
     if(i<0) i=~i;
     for(t=0,l=strlen(stem);i<mainvarcnt && t<pbuflen;i++){
-        if(strncmp(mainvartab[i].name,stem,l)!=0) break;
+     if(strncmp(mainvartab[i].name,stem,l)!=0) break;
-        v=atoi(mainvartab[i].name+l); if(v<beg || v>end) continue;
+     v=atoi(mainvartab[i].name+l); if(v<beg || v>end) continue;
-        if(mainvartab[i].val==NULL || mainvartab[i].val[0]==0) continue;
+     if(mainvartab[i].val==NULL || mainvartab[i].val[0]==0) continue;
-        pbuf[t++]=mainvartab[i].name;
+     pbuf[t++]=mainvartab[i].name;
+    }
     return t;
+}
-        /* output debug information */
+/* output debug information */
 void debug_output(void)
+{
     long int endmtime2, time1;
     struct timeval tv;
     struct rusage us;
     if(gettimeofday(&tv,NULL)) endmtime2=0;
     else endmtime2=((tv.tv_sec%1000)*1000000+tv.tv_usec);
     endmtime2=(endmtime2-startmtime2)/100;
     time1=0;
     if(getrusage(RUSAGE_SELF,&us)==0) {
-        time1+=us.ru_utime.tv_sec*1000+us.ru_utime.tv_usec/1000;
+     time1+=us.ru_utime.tv_sec*1000+us.ru_utime.tv_usec/1000;
-        time1+=us.ru_stime.tv_sec*1000+us.ru_stime.tv_usec/1000;
+     time1+=us.ru_stime.tv_sec*1000+us.ru_stime.tv_usec/1000;
+    }
     if(getrusage(RUSAGE_CHILDREN,&us)==0) {
-        time1+=us.ru_utime.tv_sec*1000+us.ru_utime.tv_usec/1000;
+     time1+=us.ru_utime.tv_sec*1000+us.ru_utime.tv_usec/1000;
-        time1+=us.ru_stime.tv_sec*1000+us.ru_stime.tv_usec/1000;
+     time1+=us.ru_stime.tv_sec*1000+us.ru_stime.tv_usec/1000;
+    }
     snprintf(tmplbuf,sizeof(tmplbuf),"%d,%d,%d,%.4f,%.2f,%d,%d,%d",
-             (int)(_varptr-_varbuf[_varbufcurr])+_varbufcurr*VARBUF_LEN,
+          (int)(_varptr-_varbuf[_varbufcurr])+_varbufcurr*VARBUF_LEN,
-             bufvcnt-freevcnt,freevcnt,
+          bufvcnt-freevcnt,freevcnt,
-             (double) endmtime2/10000, (double) time1/1000,
+          (double) endmtime2/10000, (double) time1/1000,
-             mcachecnt,mfilecnt,execnt);
+          mcachecnt,mfilecnt,execnt);
     setvar("wims_debug_info",tmplbuf);
     lastout_file=-1; phtml_put_base("debug.phtml",0);
+}
-        /* Add to list of hacked variables */
+/* Add to list of hacked variables */
 void add_hack(char *name)
+{
     char buf[MAX_LINELEN+1];
     char *p;
     p=getvar("wims_hacked_variables"); if(p==NULL) buf[0]=0;

Subversion Repositories wimsdev

(root)/trunk/wims/src/var.c – Rev 5335 → 7673