WebSVN – wimsdev – Diff – /trunk/wims/src/Misc/symtext/compile.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.
  */
+#include "symtext.h"
 char cpbuf[MAX_LINELEN+1];
 char *cpnext;
 int noaddw=0;
     listtype *list;
 } clist;
 void cp_oneblock(char *p, struct block *blk, int next);
-        /* debugger: show the detail of blocks */
+/* debugger: show the detail of blocks */
 void showblocks(void)
+{
     int i, j, k;
     struct block *blk;
     if(!debug) return;
     for(i=0;i<nextblock;i++) {
-        blk=blockbuf+i;
+      blk=blockbuf+i;
-        fprintf(stderr,"Block %2d: next=%2d.    ",i,blk->nextblock);
+      fprintf(stderr,"Block %2d: next=%2d.      ",i,blk->nextblock);
-        if(blk->fn==mt_string) {
+      if(blk->fn==mt_string) {
-            fprintf(stderr,"String %s.\n",blk->string);
+          fprintf(stderr,"String %s.\n",blk->string);
-            continue;
+          continue;
-        }
+      }
-        if(blk->fn==mt_permpick) {
+      if(blk->fn==mt_permpick) {
-            fprintf(stderr,"Permpick %d items %d lists starting %d\n",
+          fprintf(stderr,"Permpick %d items %d lists starting %d\n",
-                   blk->len, blk->lcnt, blk->sublock);
+               blk->len, blk->lcnt, blk->sublock);
-            for(j=0;j<blk->lcnt;j++) {
+          for(j=0;j<blk->lcnt;j++) {
-                fprintf(stderr,"        list %d: ", j);
+            fprintf(stderr,"    list %d: ", j);
-                for(k=0;k<blk->listlen[j];k++)
+            for(k=0;k<blk->listlen[j];k++)
-                  fprintf(stderr,"%d ",blk->lists[j][k]);
+              fprintf(stderr,"%d ",blk->lists[j][k]);
-                fprintf(stderr,"\n");
+            fprintf(stderr,"\n");
-            }
+          }
-            continue;
+          continue;
-        }
+      }
-        if(blk->fn==mt_m) {
+      if(blk->fn==mt_m) {
-            fprintf(stderr,"Macro starting %d ending %d\n", blk->sublock,
+          fprintf(stderr,"Macro starting %d ending %d\n", blk->sublock,
-                    blockbuf[blk->sublock].mend);
+                blockbuf[blk->sublock].mend);
-            continue;
+          continue;
-        }
+      }
-        if(blk->fn==mt_neg) {
+      if(blk->fn==mt_neg) {
-            fprintf(stderr,"Neg starting %d\n", blk->sublock);
+          fprintf(stderr,"Neg starting %d\n", blk->sublock);
-            continue;
+          continue;
-        }
+      }
-        if(blk->fn==mt_dic) {
+      if(blk->fn==mt_dic) {
-            fprintf(stderr,"Dic %s.\n", blk->string);
+          fprintf(stderr,"Dic %s.\n", blk->string);
-            continue;
+          continue;
-        }
+      }
-        if(blk->fn==mt_w) {
+      if(blk->fn==mt_w) {
-            fprintf(stderr,"Word list.\n");
+          fprintf(stderr,"Word list.\n");
-            continue;
+          continue;
-        }
+      }
-        if(blk->fn==mt_wild) {
+      if(blk->fn==mt_wild) {
-            fprintf(stderr,"Wild min=%d, max=%d.\n", blk->lstart, blk->len+blk->lstart);
+          fprintf(stderr,"Wild min=%d, max=%d.\n", blk->lstart, blk->len+blk->lstart);
-            continue;
+          continue;
-        }
+      }
-        if(blk->fn==mt_out) {
+      if(blk->fn==mt_out) {
-            fprintf(stderr,"Output for \"%s\", sub=%d.\n", blk->string,blk->sublock);
+          fprintf(stderr,"Output for \"%s\", sub=%d.\n", blk->string,blk->sublock);
-            continue;
+          continue;
-        }
+      }
-        fprintf(stderr,"Unknown type!\n");
+      fprintf(stderr,"Unknown type!\n");
+    }
+}
-        /* remove punctuations */
+/* remove punctuations */
 void depunct(char *p,char *str)
+{
     char *pp;
     for(pp=p; *pp; pp++) {
-        if(strchr(str,*pp)==NULL) continue;
+      if(strchr(str,*pp)==NULL) continue;
-        if(*pp=='.' && pp>p && isdigit(pp[-1]) && isdigit(pp[1])) continue;
+      if(*pp=='.' && pp>p && isdigit(pp[-1]) && isdigit(pp[1])) continue;
-        *pp=' ';
+      *pp=' ';
     }
+}
-        /* p must have MAX_LINELEN */
+/* p must have MAX_LINELEN */
 void isolate_punct(char *p)
+{
     char buf[MAX_LINELEN+1];
     char *p1, *p2;
     for(p1=p, p2=buf; *p1 && p2<buf+MAX_LINELEN; p1++) {
-        if(myisalnum(*p1) || (*p1&128) || *p1==' ' || *p1=='_') {
+      if(myisalnum(*p1) || (*p1&128) || *p1==' ' || *p1=='_') {
-            *p2++=*p1; continue;
+          *p2++=*p1; continue;
-        }
+      }
-        if((*p1=='.' || *p1==',') && p1>p && isdigit(p1[-1]) && isdigit(p1[1])) {
+      if((*p1=='.' || *p1==',') && p1>p && isdigit(p1[-1]) && isdigit(p1[1])) {
-            *p2++=*p1; continue;
+          *p2++=*p1; continue;
-        }
+      }
-        if(p2>buf && !myisspace(p2[-1])) *p2++=' ';
+      if(p2>buf && !myisspace(p2[-1])) *p2++=' ';
-        *p2++=*p1;
+      *p2++=*p1;
-        if(p1[1] && !myisspace(p1[1])) *p2++=' ';
+      if(p1[1] && !myisspace(p1[1])) *p2++=' ';
+    }
     if(p2>=buf+MAX_LINELEN) error("string_too_long");
     *p2=0;
     snprintf(p,MAX_LINELEN,"%s",buf);
 }
 void alphaonly(char *p)
+{
     char *pp;
     for(pp=p; *pp; pp++) if(!myisalpha(*pp)) *pp=' ';
 }
 void alnumonly(char *p)
+{
     char *pp;
     for(pp=p; *pp; pp++) if(!myisalnum(*pp)) *pp=' ';
+}
-        /* buffer must have MAX_LINELEN */
+/* buffer must have MAX_LINELEN */
 void strfold(char *p)
+{
     char *pp;
     singlespace(p);
     if(noaddw&2) goto fend;
     if(options&op_noparenth) depunct(p,char_parenth);
     if(options&op_nocs) depunct(p,char_cs);
     if(options&op_noquote) depunct(p,char_quote);
     if(suffixcnt>0) suffix_translate(p);
     _translate(p,transdic);
 fend:
     singlespace(p);strip_trailing_spaces(p);
     if(myisspace(*p)) ovlstrcpy(p,find_word_start(p));
+}
-        /* at entry p must point to an atom start! */
+/* at entry p must point to an atom start! */
 char *find_atom_end(char *p)
+{
     char *pp;
     if(*p=='[') {
-        pp=find_matching(p+1,']');
+      pp=find_matching(p+1,']');
-        if(pp!=NULL) return pp+1;
+      if(pp!=NULL) return pp+1;
-        else error("unmatched_parentheses %.20s",p);
+      else error("unmatched_parentheses %.20s",p);
+    }
     return find_word_end(p);
+}
 #define find_atom_start(x) find_word_start(x)
 #define next_atom(x) find_atom_start(find_atom_end(x))
-        /* p must have MAX_LINELEN */
+/* p must have MAX_LINELEN */
 void macro_trans(char *p)
+{
     char *atoms[MAX_BLOCKS], *atom2[MAX_BLOCKS];
     char tbuf[MAX_LINELEN+1], ttbuf[MAX_LINELEN+1], vbuf[8];
     char *pt, *pp, *pe, *p1, *p2, *p3;
     char *pt1, *pt2;
     int i,k,m,n,repcnt,start,min;
     if(dic[macrodic].len<=0) return;
     repcnt=start=0; pt=p;
     recalc:
     repcnt++;
     if(repcnt>=MAX_BLOCKS) error("macro_level_overflow %.20s",p);
     for(i=start, pp=find_atom_start(pt); i<MAX_BLOCKS && *pp; pp=next_atom(pp), i++)
       atoms[i]=pp;
     if(i>=MAX_BLOCKS-1) error("block_overflow %.20s",p);
     atoms[i]=pp+strlen(pp);
     for(k=0;k<i;k++) {
-        pp=atoms[k]; switch(*pp) {
+      pp=atoms[k]; switch(*pp) {
-            case '[': {
+          case '[': {
-                pe=find_atom_end(pp); pp++;
+            pe=find_atom_end(pp); pp++;
-                if(pe[-1]!=']') break;
+            if(pe[-1]!=']') break;
-                if(myislower(*pp)) {
+            if(myislower(*pp)) {
-                    for(p1=pp;myisalnum(*p1) || *p1=='_'; p1++);
+                for(p1=pp;myisalnum(*p1) || *p1=='_'; p1++);
-                    if(*p1!=':') break;
+                if(*p1!=':') break;
-                    *p1++=0; pe[-1]=0;
+                *p1++=0; pe[-1]=0;
-                    for(m=0,p2=p1;*p2;m++,p2=p3) {
+                for(m=0,p2=p1;*p2;m++,p2=p3) {
-                        p3=find_item_end(p2); if(*p3) *p3++=0;
+                  p3=find_item_end(p2); if(*p3) *p3++=0;
-                        atom2[m]=p2;
+                  atom2[m]=p2;
-                    }
+                }
-                    if(m==0) m=1;
+                if(m==0) m=1;
-                    snprintf(tbuf,sizeof(tbuf),"%s",pp);
+                snprintf(tbuf,sizeof(tbuf),"%s",pp);
-                    _translate(tbuf,macrodic);
+                _translate(tbuf,macrodic);
-                    if(tbuf[0]==0) error("bad_macro %.50s",pp);
+                if(tbuf[0]==0) error("bad_macro %.50s",pp);
-                    for(p1=strchr(tbuf,'@'); p1; p1=strchr(p1,'@')) {
+                for(p1=strchr(tbuf,'@'); p1; p1=strchr(p1,'@')) {
-                        for(p2=p1+1;isdigit(*p2) || *p2=='-';p2++);
+                  for(p2=p1+1;isdigit(*p2) || *p2=='-';p2++);
-                        if(p2==p1+1 || p2>p1+6) error("syntax_error %.20s",p1);
+                  if(p2==p1+1 || p2>p1+6) error("syntax_error %.20s",p1);
-                        memmove(vbuf,p1,p2-p1); vbuf[p2-p1]=0;
+                  memmove(vbuf,p1,p2-p1); vbuf[p2-p1]=0;
-                        n=atoi(vbuf+1);
+                  n=atoi(vbuf+1);
-                        if(n<=0 || n>m) error("wrong_parmcnt macro %.50s",pp);
+                  if(n<=0 || n>m) error("wrong_parmcnt macro %.50s",pp);
-                        string_modify(tbuf,p1,p2,atom2[n-1]);
+                  string_modify(tbuf,p1,p2,atom2[n-1]);
-                    }
+                }
-                    n=strlen(tbuf); if(n<MAX_LINELEN) {
+                n=strlen(tbuf); if(n<MAX_LINELEN) {
-                        tbuf[n++]=' '; tbuf[n]=0;
+                  tbuf[n++]=' '; tbuf[n]=0;
-                    }
+                }
-                    string_modify(p,pp-1,pe,tbuf); pt=pp-1; start=k;
+                string_modify(p,pp-1,pe,tbuf); pt=pp-1; start=k;
-                    goto recalc;
+                goto recalc;
-                }
+            }
-                break;
+            break;
-            }
+          }
-            case '_': {
+          case '_': {
-                pe=find_word_end(pp);
+            pe=find_word_end(pp);
-                if(pe-pp>MAX_NAMELEN) error("name_too_long %.20s",pp);
+            if(pe-pp>MAX_NAMELEN) error("name_too_long %.20s",pp);
-                memmove(tbuf,pp,pe-pp); tbuf[pe-pp]=0;
+            memmove(tbuf,pp,pe-pp); tbuf[pe-pp]=0;
-                _translate(tbuf,macrodic);
+            _translate(tbuf,macrodic);
-                if(tbuf[0]==0) break;
+            if(tbuf[0]==0) break;
-                pt1=pp; pt2=find_atom_end(pt1); min=k;
+            pt1=pp; pt2=find_atom_end(pt1); min=k;
-                for(p1=strchr(tbuf,'@'); p1; p1=strchr(p1,'@')) {
+            for(p1=strchr(tbuf,'@'); p1; p1=strchr(p1,'@')) {
-                    for(p2=p1+1;isdigit(*p2) || *p2=='-';p2++);
+                for(p2=p1+1;isdigit(*p2) || *p2=='-';p2++);
-                    if(p2==p1+1 || p2>p1+6) error("syntax_error %.20s",p1);
+                if(p2==p1+1 || p2>p1+6) error("syntax_error %.20s",p1);
-                    memmove(vbuf,p1,p2-p1); vbuf[p2-p1]=0;
+                memmove(vbuf,p1,p2-p1); vbuf[p2-p1]=0;
-                    n=atoi(vbuf+1);
+                n=atoi(vbuf+1);
-                    if(n<-4 || n==0 || n>4) error("bad_macro %.20s",atoms[k]);
+                if(n<-4 || n==0 || n>4) error("bad_macro %.20s",atoms[k]);
-                    n+=k;
+                n+=k;
-                    if(n<0 || n>=i) error("bad_macro_position %.20s",atoms[k]);
+                if(n<0 || n>=i) error("bad_macro_position %.20s",atoms[k]);
-                    p3=find_atom_end(atoms[n]);
+                p3=find_atom_end(atoms[n]);
-                    if(p3>pt2) pt2=p3;
+                if(p3>pt2) pt2=p3;
-                    if(atoms[n]<pt1) {min=n;pt1=atoms[n];}
+                if(atoms[n]<pt1) {min=n;pt1=atoms[n];}
-                    memmove(ttbuf,atoms[n],p3-atoms[n]); ttbuf[p3-atoms[n]]=' ';
+                memmove(ttbuf,atoms[n],p3-atoms[n]); ttbuf[p3-atoms[n]]=' ';
-                    ttbuf[p3-atoms[n]+1]=0;
+                ttbuf[p3-atoms[n]+1]=0;
-                    string_modify(tbuf,p1,p2,ttbuf);
+                string_modify(tbuf,p1,p2,ttbuf);
-                }
+            }
-                string_modify(p,pt1,pt2,tbuf); pt=pt1; start=min;
+            string_modify(p,pt1,pt2,tbuf); pt=pt1; start=min;
-                goto recalc;
+            goto recalc;
-            }
+          }
-            default: break;
+          default: break;
-        }
+      }
+    }
+}
 char *add2cp(char *p)
+{
     int l;
     snprintf(buf,sizeof(buf),"%s",p); strfold(buf); l=strlen(buf);
     if((cpnext-cpbuf)+l>=MAX_LINELEN) error("string_too_long");
     pp=cpnext; memmove(pp,buf,l+1); cpnext+=l+1;
     if(!noaddw) for(p1=find_word_start(buf); *p1; p1=find_word_start(p2)) {
-        p2=find_word_end(p1); l=p2-p1;
+      p2=find_word_end(p1); l=p2-p1;
-        if(*p2) *p2++=0;
+      if(*p2) *p2++=0;
-        if(wordchr(wbuf,p1)!=NULL) continue;
+      if(wordchr(wbuf,p1)!=NULL) continue;
-        if(wptr-wbuf>=sizeof(wbuf)-l-2) continue;
+      if(wptr-wbuf>=sizeof(wbuf)-l-2) continue;
-        if(wptr>wbuf) *wptr++=' ';
+      if(wptr>wbuf) *wptr++=' ';
-        memmove(wptr,p1,l); wptr+=l; *wptr=0;
+      memmove(wptr,p1,l); wptr+=l; *wptr=0;
+    }
     return pp;
+}
 void cp_string(char *p, struct block *blk, int next)
     blk->len=strlen(blk->string);
     blk->nextblock=next;
     if(blk==blockbuf+nextblock) nextblock++;
+}
-        /* p must have MAX_LINELEN */
+/* p must have MAX_LINELEN */
 void cp_cutline(char *p, struct block *blk, int next)
+{
     char *p1, *p2, *p3;
     char buf[MAX_LINELEN+1];
     int l, ll, n, idx, start, end;
     struct block *b;
     if(debug>=3) fprintf(stderr,"Cutline %d/%d for %.15s.\n",
-                         (int)(blk-blockbuf), nextblock, p);
+                   (int)(blk-blockbuf), nextblock, p);
     for(p1=strstr(p,"[|]"); p1; p1=strstr(p1,"[|]")) memmove(p1," | ",3);
     macro_trans(p);
     singlespace(p);
     p=find_word_start(p); strip_trailing_spaces(p);
     l=0; p3=p; do {
-        p1=find_word_start(p3);
+      p1=find_word_start(p3);
-        if(*p1) l++;
+      if(*p1) l++;
-        p2=strparchr(p1,'[');
+      p2=strparchr(p1,'[');
-        if(p2!=NULL) p3=find_matching(p2+1,']');
+      if(p2!=NULL) p3=find_matching(p2+1,']');
-        if(p3==NULL) error("unmatched_parentheses %.20s",p);
+      if(p3==NULL) error("unmatched_parentheses %.20s",p);
-        if(p2!=NULL && p2>p1) l++;
+      if(p2!=NULL && p2>p1) l++;
-        p3++;
+      p3++;
     } while(p2!=NULL);
     if(l==0) {
-        buf[0]=0; cp_string(buf,blk,next);
+      buf[0]=0; cp_string(buf,blk,next);
-        return;
+      return;
+    }
     idx=start=nextblock; nextblock+=l-1; end=nextblock;
     if(nextblock > MAX_BLOCKS) error("block_overflow %.20s",p);
     for(p1=find_word_start(p); *p1; p1=find_word_start(p3)) {
-        p2=strparchr(p1,'[');
+      p2=strparchr(p1,'[');
-        if(p2==NULL) p2=p1+strlen(p1);
+      if(p2==NULL) p2=p1+strlen(p1);
-        ll=p2-p1;
+      ll=p2-p1;
-        if(ll>0) {
+      if(ll>0) {
-            memmove(buf,p1,ll); buf[ll]=0;
+          memmove(buf,p1,ll); buf[ll]=0;
-            if(idx==start) b=blk; else b=blockbuf+idx-1;
+          if(idx==start) b=blk; else b=blockbuf+idx-1;
-            if(idx<end) n=idx; else n=next;
+          if(idx<end) n=idx; else n=next;
-            if(debug>=3) fprintf(stderr,"String block %d/%d for %.15s.\n",
+          if(debug>=3) fprintf(stderr,"String block %d/%d for %.15s.\n",
-                         (int)(b-blockbuf), nextblock, buf);
+                   (int)(b-blockbuf), nextblock, buf);
-            cp_string(buf,b,n);
+          cp_string(buf,b,n);
-            idx++;
+          idx++;
-        }
+      }
-        if(*p2=='[') {
+      if(*p2=='[') {
-            p2++; p3=find_matching(p2,']');
+          p2++; p3=find_matching(p2,']');
-            memmove(buf,p2,p3-p2); buf[p3-p2]=0; p3++;
+          memmove(buf,p2,p3-p2); buf[p3-p2]=0; p3++;
-            if(idx==start) b=blk; else b=blockbuf+idx-1;
+          if(idx==start) b=blk; else b=blockbuf+idx-1;
-            if(idx<end) n=idx; else n=next;
+          if(idx<end) n=idx; else n=next;
-            cp_oneblock(buf,b,n);
+          cp_oneblock(buf,b,n);
-            idx++;
+          idx++;
-        }
+      }
-        else p3=p2;
+      else p3=p2;
+    }
+}
 unsigned int objnum(char *p, char delim)
+{
     int i; char *p1, *p2;
     if(*p==0) return 1;
     i=0;
     for(p1=p; p1; p1=p2, i++) {
-        p2=strparchr(p1,delim); if(p2) p2++;
+      p2=strparchr(p1,delim); if(p2) p2++;
+    }
     return i;
+}
 void _permpick(char *p, int n, struct block *blk, int next, char delim)
+{
     int i, t, idx;
     char buf[MAX_LINELEN+1];
     char *pp, *pe;
     idx=nextblock; nextblock+=n;
     if(nextblock > MAX_BLOCKS) error("block_overflow %.20s",p);
     blk->len=n;
     blk->sublock=idx;
     blk->fn=mt_permpick;
     blk->lcnt=clist.lcnt;
     blk->nextblock=next;
     if(nextlist+n > MAX_LISTS) error("list_overflow %.20s",p);
     blk->listlen=listbuf+nextlist; nextlist+=n;
     for(i=t=0; i<clist.lcnt; i++) {
-        blk->listlen[i]=clist.listlen[i];
+      blk->listlen[i]=clist.listlen[i];
-        blk->lists[i]=listbuf+nextlist+t;
+      blk->lists[i]=listbuf+nextlist+t;
-        t+=clist.listlen[i];
+      t+=clist.listlen[i];
+    }
     if(nextlist+t > MAX_LISTS) error("list_overflow %.20s",p);
     memmove(listbuf+nextlist,clist.list,t*sizeof(listtype));
     nextlist+=t;
     for(i=0, pp=find_word_start(p);i<n;i++,idx++,pp=find_word_start(pe)) {
-        pe=strparchr(pp,delim);
+      pe=strparchr(pp,delim);
-        if(pe==NULL) pe=pp+strlen(pp); else *pe++=0;
+      if(pe==NULL) pe=pp+strlen(pp); else *pe++=0;
-        snprintf(buf,sizeof(buf),"%s",pp);
+      snprintf(buf,sizeof(buf),"%s",pp);
-        cp_cutline(buf,blockbuf+idx,next);
+      cp_cutline(buf,blockbuf+idx,next);
+    }
+}
-        /* alt for two flavours */
+/* alt for two flavours */
 void _alt(char *p, struct block *blk, int next, char delim)
+{
     int n;
     listtype ltab[]={-1};
     listtype len[]={1};
     clist.lcnt=1; clist.listlen=len; clist.list=ltab;
     n=objnum(p,delim); if(n==0) n=1;
     _permpick(p,n,blk,next,delim);
+}
 void cp_dperm(char *p, struct block *blk, int next)
+{
     int n;
     listtype ltab[]={0,1,2,2,3,0};
     listtype len[]={3,3};
     clist.lcnt=2; clist.listlen=len; clist.list=ltab;
     n=objnum(p,',');
     if(n!=4) error("wrong_parmcnt dperm %.20s",p);
     _permpick(p,n,blk,blk-blockbuf,',');
+}
 void cp_m(char *p, struct block *blk, int next)
+{
     int i, idx;
     char buf[MAX_LINELEN+1];
     i=objnum(p,','); if(i!=1) error("wrong_parmcnt m %.20s",p);
     blk->fn=mt_m;
     blk->string=NULL;
     blk->len=1;
     blk->nextblock=next;
     p=find_word_start(p);singlespace(p);strip_trailing_spaces(p);
     for(i=0;i<Mcnt && strcmp(p,Mind[i].Mptr)!=0;i++);
     if(nextblock >= MAX_BLOCKS-2) error("block_overflow %.20s",p);
     if(i<Mcnt) blk->sublock=Mind[i].blkptr;
     else {
-        i=strlen(p);
+      i=strlen(p);
-        if(Mnext-Mbuf+i >= MAX_LINELEN-1) error("Mbuf_overflow %.20s",p);
+      if(Mnext-Mbuf+i >= MAX_LINELEN-1) error("Mbuf_overflow %.20s",p);
-        if(Mcnt >= MAX_BLOCKS) error("Mind_overflow %.20s",p);
+      if(Mcnt >= MAX_BLOCKS) error("Mind_overflow %.20s",p);
-        Mind[Mcnt].Mptr=Mnext; Mind[Mcnt].blkptr=nextblock;
+      Mind[Mcnt].Mptr=Mnext; Mind[Mcnt].blkptr=nextblock;
-        Mcnt++;
+      Mcnt++;
-        memcpy(Mnext,p,i+1); Mnext+=i+1;
+      memcpy(Mnext,p,i+1); Mnext+=i+1;
-        idx=nextblock; blk->sublock=idx; nextblock++;
+      idx=nextblock; blk->sublock=idx; nextblock++;
-        snprintf(buf,sizeof(buf),"%s",p);
+      snprintf(buf,sizeof(buf),"%s",p);
-        cp_cutline(buf,blockbuf+idx,-2);
+      cp_cutline(buf,blockbuf+idx,-2);
-        blockbuf[idx].mend=nextblock;
+      blockbuf[idx].mend=nextblock;
+    }
+}
 void cp_neg(char *p, struct block *blk, int next)
+{
+{
     _pick(p,blk,next,-3);
+}
 void cp_perm(char *p, struct block *blk, int next)
 {
     int i, n;
     listtype ltab[MAX_BLOCKS];
     listtype len;
     n=objnum(p,','); if(n==0) n=1;
     char *pp, *pe;
     n=objnum(p,','); if(n!=1) error("wrong_parmcnt wild %.20s\n",p);
     blk->string="";
     max=min=0;
     for(pp=find_word_start(p); *pp; pp=find_word_start(pe)) {
-        pe=find_word_end(pp);
+      pe=find_word_end(pp);
-        if(pp[0]!='*') error("syntax_error wild %.20s\n",p);
+      if(pp[0]!='*') error("syntax_error wild %.20s\n",p);
-        if(pp[1]!='*') {
+      if(pp[1]!='*') {
-            min++; continue;
+          min++; continue;
-        }
+      }
-        if(isdigit(pp[2])) max+=atoi(pp+2);
+      if(isdigit(pp[2])) max+=atoi(pp+2);
-        else max=MAX_BLOCKS;
+      else max=MAX_BLOCKS;
+    }
     blk->len=max;
     blk->lstart=min;
     blk->fn=mt_wild;
     blk->nextblock=next;
+}
-struct {
-    char *name;
-    void (*fn) (char *p, struct block *blk, int next);
-} builtin[]={
+struct builtin builtin[]={
-        {"Alt",         cp_alt},
+      {"Alt",           cp_alt},
         {"Aperm",       cp_aperm},
         {"Apick",       cp_apick},
         {"Dic",         cp_dic},
         {"Dperm",       cp_dperm},
         {"Ins",         cp_ins},
         {"Rep",         cp_rep},
         {"W",           cp_w},
         {"Wild",        cp_wild},
 };
-#define builtincnt (sizeof(builtin)/sizeof(builtin[0]))
+int builtincnt=(sizeof(builtin)/sizeof(builtin[0]));
-        /* p must have MAX_LINELEN */
+/* p must have MAX_LINELEN */
 void cp_oneblock(char *p, struct block *blk, int next)
+{
     char *pp, *pe;
     int i;
     if(debug>=3) fprintf(stderr,"Oneblock %d/%d for %.15s.\n",
-                         (int)(blk-blockbuf), nextblock, p);
+                   (int)(blk-blockbuf), nextblock, p);
     if(myisupper(*p)) {
-        for(pe=p; pe-p < MAX_BINAME && myisalpha(*pe); pe++);
+      for(pe=p; pe-p < MAX_BINAME && myisalpha(*pe); pe++);
-        if(*pe==':') {
+      if(*pe==':') {
-            *pe++=0;
+          *pe++=0;
-            i=search_list(builtin,builtincnt,sizeof(builtin[0]),p);
+          i=search_list(builtin,builtincnt,sizeof(builtin[0]),p);
-            if(i<0) error("unknown_cmd %.20s",p);
+          if(i<0) error("unknown_cmd %.20s",p);
-            builtin[i].fn(pe,blk,next);
+          builtin[i].fn(pe,blk,next);
-            blk->nextblock=next;
+          blk->nextblock=next;
-            return;
+          return;
-        }
+      }
+    }
     if(*p=='*') {
-        cp_wild(p,blk,next);
+      cp_wild(p,blk,next);
-        return;
+      return;
+    }
     pp=strparchr(p,'|'); if(pp==NULL) {
-        cp_cutline(p,blk,next);
+      cp_cutline(p,blk,next);
+    }
     else cp_alt2(p,blk,next);
+}
-        /* p must have MAX_LINELEN */
+/* p must have MAX_LINELEN */
 void compile(char *p)
+{
     nextblock=1; nextlist=0;
     cpnext=cpbuf;
     memset(blockbuf,0,sizeof(blockbuf));

Subversion Repositories wimsdev

(root)/trunk/wims/src/Misc/symtext/compile.c – Rev 3813 → 8161