Subversion Repositories wimsdev

Rev

Rev 8367 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8367 Rev 8871
Line 29... Line 29...
29 
    char buf[MAX_LINELEN+1];
 29 
    char buf[MAX_LINELEN+1];
30 
    p1=find_word_start(p); if(*p1!='{') return p;
 30 
    p1=find_word_start(p); if(*p1!='{') return p;
31 
    p2=find_matching(p1+1,'}'); if(p2==NULL) return p;
 31 
    p2=find_matching(p1+1,'}'); if(p2==NULL) return p;
32 
    p3=find_word_start(p2+1); if(*p3!='{') return p;
 32 
    p3=find_word_start(p2+1); if(*p3!='{') return p;
33 
    p4=find_matching(p3+1,'}'); if(p4==NULL) return p;
 33 
    p4=find_matching(p3+1,'}'); if(p4==NULL) return p;
34 
    *p2=0; snprintf(buf,sizeof(buf),"%s",p1+1); subst(buf);
 34 
    *p2=0; snprintf(buf,sizeof(buf),"%s",p1+1); substdoc(buf);
35 
    prepcnt=0; parmprep(buf,pt_text);
 35 
    prepcnt=0; parmprep(buf,pt_text);
36 
    switch(type) {
 36 
    switch(type) {
37 
          case 0: fprintf(outf," \n!if %s \n",buf); break;
 37 
          case 0: fprintf(outf," \n!if %s \n",buf); break;
38 
          case 1: fprintf(outf," \n!ifval %s \n",buf);
 38 
          case 1: fprintf(outf," \n!ifval %s \n",buf);
39 
    }
 39 
    }
Line 54... Line 54...
54 
    char buf[MAX_LINELEN+1];
 54 
    char buf[MAX_LINELEN+1];
55 
    p1=find_word_start(p); if(*p1!='{') return p;
 55 
    p1=find_word_start(p); if(*p1!='{') return p;
56 
    p2=find_matching(p1+1,'}'); if(p2==NULL) return p;
 56 
    p2=find_matching(p1+1,'}'); if(p2==NULL) return p;
57 
    p3=find_word_start(p2+1); if(*p3!='{') return p;
 57 
    p3=find_word_start(p2+1); if(*p3!='{') return p;
58 
    p4=find_matching(p3+1,'}'); if(p4==NULL) return p;
 58 
    p4=find_matching(p3+1,'}'); if(p4==NULL) return p;
59 
    *p2=0; snprintf(buf,sizeof(buf),"%s",p1+1); subst(buf);
 59 
    *p2=0; snprintf(buf,sizeof(buf),"%s",p1+1); substdoc(buf);
60 
    prepcnt=0; parmprep(buf,pt_text);
 60 
    prepcnt=0; parmprep(buf,pt_text);
61 
    fprintf(outf," \n!while %s \n",buf);
 61 
    fprintf(outf," \n!while %s \n",buf);
62 
    *p4=whilechar;
 62 
    *p4=whilechar;
63 
    return p3+1;
 63 
    return p3+1;
64 
}
 64 
}
Line 69... Line 69...
69 
    char buf[MAX_LINELEN+1];
 69 
    char buf[MAX_LINELEN+1];
70 
    p1=find_word_start(p); if(*p1!='{') return p;
 70 
    p1=find_word_start(p); if(*p1!='{') return p;
71 
    p2=find_matching(p1+1,'}'); if(p2==NULL) return p;
 71 
    p2=find_matching(p1+1,'}'); if(p2==NULL) return p;
72 
    p3=find_word_start(p2+1); if(*p3!='{') return p;
 72 
    p3=find_word_start(p2+1); if(*p3!='{') return p;
73 
    p4=find_matching(p3+1,'}'); if(p4==NULL) return p;
 73 
    p4=find_matching(p3+1,'}'); if(p4==NULL) return p;
74 
    *p2=0; snprintf(buf,sizeof(buf),"%s",p1+1); subst(buf);
 74 
    *p2=0; snprintf(buf,sizeof(buf),"%s",p1+1); substdoc(buf);
75 
    fprintf(outf," \n!for m_%s \n",find_word_start(buf));
 75 
    fprintf(outf," \n!for m_%s \n",find_word_start(buf));
76 
    *p4=nextchar;
 76 
    *p4=nextchar;
77 
    return p3+1;
 77 
    return p3+1;
78 
}
 78 
}
79 
 
 79