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 |
|
174 | if(primcnt>0) { |
| 176 |
|
175 | pe=doccheck(p); |
| 177 |
|
176 | if(pe>p) {p=pe-1; break;} |
| 178 |
|
177 | } |
| 179 |
|
178 | for(pe=p;isalnum(*pe) || *pe=='_';pe++); |
| 180 |
|
179 | if(*pe=='[') { |
| 181 |
|
180 | char *pv=find_matching(pe+1,']'); |
| 182 |
|
181 | if(pv!=NULL) { |
| 183 |
|
182 | char c=*p; |
| 184 |
|
183 | memmove(p,p+1,pv-p); *pv=')'; |
| 185 |
|
184 | fprintf(outf,"$(m_%c",c); p--; break; |
| 186 |
|
185 | } |
| 187 |
|
186 | } |
| 188 |
|
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 '(': { |