Subversion Repositories wimsdev

Rev

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

Rev 17221 Rev 17864
Line 154... Line 154...
154
        p++; fputs("\n<br>\n",outf);
154
        p++; fputs("\n<br>\n",outf);
155
        while(*(p+1)=='\n') p++;
155
        while(*(p+1)=='\n') p++;
156
        if(*(p+1)=='>') goto pre;
156
        if(*(p+1)=='>') goto pre;
157
        break;
157
        break;
158
      }
158
      }
159
 
-
 
160
      case '<': {
159
      case '<': {
161
        char *p2;
160
        char *p2;
162
        if(tend>p || (!isalpha(*(p+1)) && *(p+1)!='!')) {
161
        if(tend>p || (!isalpha(*(p+1)) && *(p+1)!='!')) {
163
          fputc(*p,outf); break;
162
          fputc(*p,outf); break;
164
        }
163
        }
Line 167... Line 166...
167
        tend=p2;
166
        tend=p2;
168
        fputc(*p, outf); break;
167
        fputc(*p, outf); break;
169
      }
168
      }
170
      /* interpretation of variables */
169
      /* interpretation of variables */
171
      case '\\': {
170
      case '\\': {
172
       char *pe;
171
        char *pe;
173
        p++;
172
        p++;
174
        if(isalpha(*p)) {
173
        if(isalpha(*p)) {
175
           if(primcnt>0) {
174
          if(primcnt>0) {
176
             pe=doccheck(p);
175
            pe=doccheck(p);
177
             if(pe>p) {p=pe-1; break;}
176
            if(pe>p) {p=pe-1; break;}
178
           }
177
          }
179
           for(pe=p;isalnum(*pe) || *pe=='_';pe++);
178
          for(pe=p;isalnum(*pe) || *pe=='_';pe++);
180
           if(*pe=='[') {
179
          if(*pe=='[') {
181
             char *pv=find_matching(pe+1,']');
180
            char *pv=find_matching(pe+1,']');
182
             if(pv!=NULL) {
181
            if(pv!=NULL) {
183
               char c=*p;
182
              char c=*p;
184
               memmove(p,p+1,pv-p); *pv=')';
183
              memmove(p,p+1,pv-p); *pv=')';
185
               fprintf(outf,"$(m_%c",c); p--; break;
184
              fprintf(outf,"$(m_%c",c); p--; break;
186
             }
185
            }
187
           }
186
          }
188
           fprintf(outf,"$m_%c",*p); break;
187
          fprintf(outf,"$m_%c",*p); break;
189
        }
188
        }
190
        switch(*p) {
189
        switch(*p) {
191
          case '\\': fputc(*p,outf); break;
190
          case '\\': fputc(*p,outf); break;
192
          case '{':
191
          case '{':
193
          case '(': {
192
          case '(': {