WebSVN – wimsdev – Diff – /trunk/wims/src/OefMsg2wims/def.c

 int dollar_subst=1;
 /* variable substitution. buffer p must have MAX_LINELEN */
 void substdoc(char *p)
+{
-    char *pp, *pe;
+  char *pp, *pe;
-    for(pp=p;pp-p<MAX_LINELEN && *pp; pp++) {
+  for(pp=p;pp-p<MAX_LINELEN && *pp; pp++) {
-      if(*pp==' ') *pp=' ';
+    if(*pp=='   ') *pp=' ';
-      if(*pp=='\n') *pp='       ';
+    if(*pp=='\n') *pp=' ';
-      if(*pp=='$' && dollar_subst) {
+    if(*pp=='$' && dollar_subst) {
-          string_modify(p,pp,pp+1,"&#36;");
+      string_modify(p,pp,pp+1,"&#36;");
-          pp++; continue;
+      pp++; continue;
-      }
+    }
-      if(*pp=='!' && isalnum(*(pp+1)) && dollar_subst) {
+    if(*pp=='!' && isalnum(*(pp+1)) && dollar_subst) {
-          string_modify(p,pp,pp+1,"&#33;");
+      string_modify(p,pp,pp+1,"&#33;");
-          pp++; continue;
+      pp++; continue;
-      }
+    }
-      if(*pp!='\\') continue;
+    if(*pp!='\\') continue;
-      if(*(pp+1)=='\\') {
+    if(*(pp+1)=='\\') {
-          pp++; continue;
+      pp++; continue;
-      }
+    }
-      if(!isalpha(*(pp+1))) continue;
+    if(!isalpha(*(pp+1))) continue;
-      for(pe=pp+1;isalnum(*pe) || *pe=='_'; pe++);
+    for(pe=pp+1;isalnum(*pe) || *pe=='_'; pe++);
-      if(pe-pp<MAX_NAMELEN && *pe=='[') {
+    if(pe-pp<MAX_NAMELEN && *pe=='[') {
-          char *pt;
+      char *pt;
-          pt=find_matching(pe+1,']'); if(pt!=NULL && pt-pe<MAX_LINELEN) {
+      pt=find_matching(pe+1,']'); if(pt!=NULL && pt-pe<MAX_LINELEN) {
-            string_modify(p,pt+1,pt+1,")");
+        string_modify(p,pt+1,pt+1,")");
-            string_modify(p,pp,pp+1,"$(m_");
+        string_modify(p,pp,pp+1,"$(m_");
-          }
+      }
-          else goto nobrack;
+      else goto nobrack;
-      }
+    }
-      else {
+    else {
-          nobrack: string_modify(p,pp,pp+1,"$m_");
+      nobrack: string_modify(p,pp,pp+1,"$m_");
-      }
+    }
+  }
+}
+void putval(char *p, char *name, int ptype)
+{
+  switch(ptype) {
+    case pt_int: {
+      fprintf(outf,"%sm_%s=$[rint(%s)]\n",setpre,name,p);
+      break;
+    }
-}
-void putval(char *p, char *name, int ptype)
-{
-    switch(ptype) {
-      case pt_int: {
-          fprintf(outf,"%sm_%s=$[rint(%s)]\n",setpre,name,p);
-          break;
-      }
-      case pt_real: {
+    case pt_real: {
-          fprintf(outf,"%sm_%s=$[%s]\n",setpre,name,p);
+      fprintf(outf,"%sm_%s=$[%s]\n",setpre,name,p);
-          break;
+      break;
-      }
+    }
-      case pt_func: {
+    case pt_func: {
-          fprintf(outf,"%sm_%s=!rawmath %s \n",setpre,name,p);
+      fprintf(outf,"%sm_%s=!rawmath %s \n",setpre,name,p);
-          break;
+      break;
-      }
+    }
-      case pt_complex: {
+    case pt_complex: {
-          fprintf(outf,"%st_=!rawmath %s \n%st_=!exec pari print($t_)\n\
+      fprintf(outf,"%st_=!rawmath %s \n%st_=!exec pari print($t_)\n\
 %sm_%s=!mathsubst I=i in $t_\n",
                 setpre,p,setpre,setpre,name);
-          break;
+      break;
-      }
+    }
-      case pt_matrix: {
+    case pt_matrix: {
-          fprintf(outf,"%stmp=!trim %s \n\
+      fprintf(outf,"%stmp=!trim %s \n\
 %sm_%s=!translate internal $    $ to ; in $tmp\n",setpre,p,setpre,name);
-          break;
+      break;
-      }
+    }
-      case pt_rat: {
+    case pt_rat: {
-          fprintf(outf,"%st_=!rawmath %s \n%sm_%s=!exec pari print($t_)\n",
+      fprintf(outf,"%st_=!rawmath %s \n%sm_%s=!exec pari print($t_)\n",
                 setpre,p,setpre,name);
-          break;
+      break;
-      }
+    }
-      default: {
+    default: {
-          fprintf(outf,"%sm_%s=%s\n\n",setpre,name,p);
+      fprintf(outf,"%sm_%s=%s\n\n",setpre,name,p);
-          break;
+      break;
-      }
+    }
+  }
+}
 void parm(char *p[MAX_PARM], int ptype)
+{
-    char *pp, *p2;
+  char *pp, *p2;
-    char vbuf[MAX_LINELEN+1];
+  char vbuf[MAX_LINELEN+1];
-    setpre="!set ";
+  setpre="!set ";
-    p[0]=find_word_start(p[0]);
+  p[0]=find_word_start(p[0]);
-    if(*p[0]=='\\') p[0]++;
+  if(*p[0]=='\\') p[0]++;
 /* bad name */
-    if(!isalpha(*p[0])) return;
+  if(!isalpha(*p[0])) return;
-    strip_trailing_spaces(p[0]);
+  strip_trailing_spaces(p[0]);
-    for(pp=p[0];*pp;pp++) if(!isalnum(*pp) && *pp!='_') {
+  for(pp=p[0];*pp;pp++) if(!isalnum(*pp) && *pp!='_') {
 /* bad name and security risk */
-      if(!isspace(*pp)) return;
+    if(!isspace(*pp)) return;
-      ovlstrcpy(pp,pp+1); pp--;
+    ovlstrcpy(pp,pp+1); pp--;
-    }
+  }
-    p[1]=find_word_start(p[1]);
+  p[1]=find_word_start(p[1]);
-    snprintf(vbuf,sizeof(vbuf),"%s",p[1]); substdoc(vbuf);
+  snprintf(vbuf,sizeof(vbuf),"%s",p[1]); substdoc(vbuf);
-    fprintf(outf,"\n");
+  fprintf(outf,"\n");
-    if((pp=strparchr(vbuf,'?'))!=NULL && pp[1]!='?' && check_compare(vbuf)) {
+  if((pp=strparchr(vbuf,'?'))!=NULL && pp[1]!='?' && check_compare(vbuf)) {
-      char buf[MAX_LINELEN+1];
+    char buf[MAX_LINELEN+1];
-      p2=strparchr(pp,':'); *pp++=0; if(p2!=NULL) *p2++=0;
+    p2=strparchr(pp,':'); *pp++=0; if(p2!=NULL) *p2++=0;
-      snprintf(buf,sizeof(buf),"%s",vbuf);
+    snprintf(buf,sizeof(buf),"%s",vbuf);
-      prepcnt=0; fprintf(outf,"!ifval %s \n",vbuf);
+    prepcnt=0; fprintf(outf,"!ifval %s \n",vbuf);
+    snprintf(buf,sizeof(buf),"%s",pp);
+    parmprep(buf, ptype); putval(buf,p[0],ptype);
+    if(p2!=NULL) {
-      snprintf(buf,sizeof(buf),"%s",pp);
+      snprintf(buf,sizeof(buf),"%s",p2);
+      fprintf(outf,"!else\n");
       parmprep(buf, ptype); putval(buf,p[0],ptype);
-      if(p2!=NULL) {
-          snprintf(buf,sizeof(buf),"%s",p2);
-          fprintf(outf,"!else\n");
-          parmprep(buf, ptype); putval(buf,p[0],ptype);
-      }
-      fprintf(outf,"!endif\n");return;
+    }
+    fprintf(outf,"!endif\n");return;
+  }
-    prepcnt=0; parmprep(vbuf, ptype);
+  prepcnt=0; parmprep(vbuf, ptype);
-    putval(vbuf,p[0],ptype);
+  putval(vbuf,p[0],ptype);
+}
 void p_int(char *p[MAX_PARM]) {parm(p,pt_int);}
 void p_rational(char *p[MAX_PARM]) {parm(p,pt_rat);}
 void p_real(char *p[MAX_PARM]) {parm(p,pt_real);}
 void p_text(char *p[MAX_PARM]) {parm(p,pt_text);}
 void p_matrix(char *p[MAX_PARM]) {parm(p,pt_matrix);}
 void p_parm(char *p[MAX_PARM])
+{
-    parm(p,pt_real);
+  parm(p,pt_real);
+}
 struct {
     char *name;
     void (*processor) (char *p[MAX_PARM]);
 } ptype[]={
-    {"complex",  p_complex},
+  {"complex",  p_complex},
-    {"function", p_func},
+  {"function", p_func},
-    {"int",  p_int},
+  {"int",  p_int},
-    {"integer",  p_int},
+  {"integer",  p_int},
-    {"matrix",  p_matrix},
+  {"matrix",  p_matrix},
-    {"parameter", p_parm},
+  {"parameter", p_parm},
-    {"rational", p_rational},
+  {"rational", p_rational},
-    {"real",  p_real},
+  {"real",  p_real},
-    {"text",  p_text},
+  {"text",  p_text},
-    {"variable", p_parm}
+  {"variable", p_parm}
 };
 #define ptypeno (sizeof(ptype)/sizeof(ptype[0]))
 void def(char *p)
+{
-    char *p1,*p2,*pp[2];
+  char *p1,*p2,*pp[2];
-    int i;
+  int i;
-    p1=find_word_start(p);
+  p1=find_word_start(p);
-    pp[1]=strchr(p1,'='); if(*pp[1]==0) return;
+  pp[1]=strchr(p1,'='); if(*pp[1]==0) return;
-    *pp[1]=0; pp[1]++;
+  *pp[1]=0; pp[1]++;
-    p2=find_word_start(find_word_end(p1));
+  p2=find_word_start(find_word_end(p1));
-    if(*p2==0) {pp[0]=p1; p_parm(pp); return;}
+  if(*p2==0) {pp[0]=p1; p_parm(pp); return;}
-    pp[0]=p2; *find_word_end(p1)=0;
+  pp[0]=p2; *find_word_end(p1)=0;
-    for(p2=p1; *p2; p2++) *p2=tolower(*p2);
+  for(p2=p1; *p2; p2++) *p2=tolower(*p2);
-    for(i=0;i<ptypeno;i++) if(strcmp(p1,ptype[i].name)==0) break;
+  for(i=0;i<ptypeno;i++) if(strcmp(p1,ptype[i].name)==0) break;
-    if(i<ptypeno) ptype[i].processor(pp);
+  if(i<ptypeno) ptype[i].processor(pp);
-    else p_parm(pp);
+  else p_parm(pp);
+}

Subversion Repositories wimsdev

(root)/trunk/wims/src/OefMsg2wims/def.c – Rev 8871 → 12247