Bug Summary

File:src/usr.bin/deroff/deroff.c
Warning:line 1611, column 2
Value stored to 'p' is never read

Annotated Source Code

Press '?' to see keyboard shortcuts

clang -cc1 -cc1 -triple amd64-unknown-openbsd7.4 -analyze -disable-free -clear-ast-before-backend -disable-llvm-verifier -discard-value-names -main-file-name deroff.c -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -ffp-contract=on -fno-rounding-math -mconstructor-aliases -funwind-tables=2 -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/usr.bin/deroff/obj -resource-dir /usr/local/llvm16/lib/clang/16 -internal-isystem /usr/local/llvm16/lib/clang/16/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/usr.bin/deroff/obj -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fcf-protection=branch -fno-jump-tables -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/scan/2024-01-11-140451-98009-1 -x c /usr/src/usr.bin/deroff/deroff.c
1/* $OpenBSD: deroff.c,v 1.18 2023/09/27 21:06:33 millert Exp $ */
2
3/*-
4 * Copyright (c) 1988, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31/*
32 * Copyright (C) Caldera International Inc. 2001-2002.
33 * All rights reserved.
34 *
35 * Redistribution and use in source and binary forms, with or without
36 * modification, are permitted provided that the following conditions
37 * are met:
38 * 1. Redistributions of source code and documentation must retain the above
39 * copyright notice, this list of conditions and the following disclaimer.
40 * 2. Redistributions in binary form must reproduce the above copyright
41 * notice, this list of conditions and the following disclaimer in the
42 * documentation and/or other materials provided with the distribution.
43 * 3. All advertising materials mentioning features or use of this software
44 * must display the following acknowledgement:
45 * This product includes software developed or owned by Caldera
46 * International, Inc.
47 * 4. Neither the name of Caldera International, Inc. nor the names of other
48 * contributors may be used to endorse or promote products derived from
49 * this software without specific prior written permission.
50 *
51 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
52 * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR
53 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
54 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
55 * IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE LIABLE FOR ANY DIRECT,
56 * INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
57 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
58 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
59 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
60 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
61 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
62 * POSSIBILITY OF SUCH DAMAGE.
63 */
64
65#include <err.h>
66#include <limits.h>
67#include <stdio.h>
68#include <stdlib.h>
69#include <string.h>
70#include <unistd.h>
71
72/*
73 * Deroff command -- strip troff, eqn, and Tbl sequences from
74 * a file. Has two flags argument, -w, to cause output one word per line
75 * rather than in the original format.
76 * -mm (or -ms) causes the corresponding macro's to be interpreted
77 * so that just sentences are output
78 * -ml also gets rid of lists.
79 * Deroff follows .so and .nx commands, removes contents of macro
80 * definitions, equations (both .EQ ... .EN and $...$),
81 * Tbl command sequences, and Troff backslash constructions.
82 *
83 * All input is through the Cget macro;
84 * the most recently read character is in c.
85 *
86 * Modified by Robert Henry to process -me and -man macros.
87 */
88
89#define Cget( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) ( (c=getc(infile)(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile) :
(int)(*(infile)->_p++)) : (getc)(infile))) == EOF(-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )
90#define C1get( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) ( (c=getc(infile)(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile) :
(int)(*(infile)->_p++)) : (getc)(infile))) == EOF(-1) ? eof() : c)
91
92#ifdef DEBUG
93# define C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) _C()
94# define C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) _C1()
95#else /* not DEBUG */
96# define C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) Cget( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )
97# define C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) C1get( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c)
98#endif /* not DEBUG */
99
100#define SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n') while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n')
101#define SKIP_TO_COMwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n'); while (( (c=(!__isthreaded ? (--(infile)->
_r < 0 ? __srget(infile) : (int)(*(infile)->_p++)) : (getc
)(infile))) == (-1) ? eof() : ((c==ldelim)&&(filesp==
files) ? skeqn() : c) ) != '\n'); pc=c; while (( (c=(!__isthreaded
? (--(infile)->_r < 0 ? __srget(infile) : (int)(*(infile
)->_p++)) : (getc)(infile))) == (-1) ? eof() : ((c==ldelim
)&&(filesp==files) ? skeqn() : c) ) != '.' || pc != '\n'
|| ( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) > 'Z')pc=c SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n'); SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n'); pc=c; while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '.' || pc != '\n' || C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) > 'Z')pc=c
102
103#define YES1 1
104#define NO0 0
105#define MS0 0 /* -ms */
106#define MM1 1 /* -mm */
107#define ME2 2 /* -me */
108#define MA3 3 /* -man */
109
110#ifdef DEBUG
111char *mactab[] = { "-ms", "-mm", "-me", "-ma" };
112#endif /* DEBUG */
113
114#define ONE1 1
115#define TWO2 2
116
117#define NOCHAR-2 -2
118#define SPECIAL0 0
119#define APOS1 1
120#define PUNCT2 2
121#define DIGIT3 3
122#define LETTER4 4
123
124#define MAXFILES20 20
125
126int iflag;
127int wordflag;
128int msflag; /* processing a source written using a mac package */
129int mac; /* which package */
130int disp;
131int parag;
132int inmacro;
133int intable;
134int keepblock; /* keep blocks of text; normally false when msflag */
135
136char chars[128]; /* SPECIAL, PUNCT, APOS, DIGIT, or LETTER */
137
138size_t linesz;
139char *line;
140char *lp;
141
142int c;
143int pc;
144int ldelim;
145int rdelim;
146
147char fname[PATH_MAX1024];
148FILE *files[MAXFILES20];
149FILE **filesp;
150FILE *infile;
151
152int argc;
153char **argv;
154
155/*
156 * Macro processing
157 *
158 * Macro table definitions
159 */
160typedef int pacmac; /* compressed macro name */
161int argconcat = 0; /* concat arguments together (-me only) */
162
163#define tomac(c1, c2)((((c1) & 0xFF) << 8) | ((c2) & 0xFF)) ((((c1) & 0xFF) << 8) | ((c2) & 0xFF))
164#define frommac(src, c1, c2)(((c1)=((src)>>8)&0xFF),((c2) =(src)&0xFF)) (((c1)=((src)>>8)&0xFF),((c2) =(src)&0xFF))
165
166struct mactab{
167 int condition;
168 pacmac macname;
169 int (*func)(); /* XXX - args */
170};
171
172struct mactab troffmactab[];
173struct mactab ppmactab[];
174struct mactab msmactab[];
175struct mactab mmmactab[];
176struct mactab memactab[];
177struct mactab manmactab[];
178
179/*
180 * Macro table initialization
181 */
182#define M(cond, c1, c2, func){cond, ((((c1) & 0xFF) << 8) | ((c2) & 0xFF)), func
} {cond, tomac(c1, c2)((((c1) & 0xFF) << 8) | ((c2) & 0xFF)), func}
183
184/*
185 * Flags for matching conditions other than
186 * the macro name
187 */
188#define NONE0 0
189#define FNEST1 1 /* no nested files */
190#define NOMAC2 2 /* no macro */
191#define MAC3 3 /* macro */
192#define PARAG4 4 /* in a paragraph */
193#define MSF5 5 /* msflag is on */
194#define NBLK6 6 /* set if no blocks to be kept */
195
196/*
197 * Return codes from macro minions, determine where to jump,
198 * how to repeat/reprocess text
199 */
200#define COMX1 1 /* goto comx */
201#define COM2 2 /* goto com */
202
203int skeqn(void);
204int eof(void);
205int _C1(void);
206int _C(void);
207int EQ(void);
208int domacro(void);
209int PS(void);
210int skip(void);
211int intbl(void);
212int outtbl(void);
213int so(void);
214int nx(void);
215int skiptocom(void);
216int PP(pacmac);
217int AU(void);
218int SH(pacmac);
219int UX(void);
220int MMHU(pacmac);
221int mesnblock(pacmac);
222int mssnblock(pacmac);
223int nf(void);
224int ce(void);
225int meip(pacmac);
226int mepp(pacmac);
227int mesh(pacmac);
228int mefont(pacmac);
229int manfont(pacmac);
230int manpp(pacmac);
231int macsort(const void *, const void *);
232int sizetab(struct mactab *);
233void getfname(void);
234void textline(char *, int);
235void work(void);
236void regline(void (*)(char *, int), int);
237void macro(void);
238void tbl(void);
239void stbl(void);
240void eqn(void);
241void backsl(void);
242void sce(void);
243void refer(int);
244void inpic(void);
245void msputmac(char *, int);
246void msputwords(int);
247void meputmac(char *, int);
248void meputwords(int);
249void noblock(char, char);
250void defcomline(pacmac);
251void comline(void);
252void buildtab(struct mactab **, int *);
253FILE *opn(char *);
254struct mactab *macfill(struct mactab *, struct mactab *);
255__dead__attribute__((__noreturn__)) void usage(void);
256
257int
258main(int ac, char **av)
259{
260 int i, ch;
261 int errflg = 0;
262 int kflag = NO0;
263
264 if (pledge("stdio rpath", NULL((void *)0)) == -1)
265 err(1, "pledge");
266
267 iflag = NO0;
268 wordflag = NO0;
269 msflag = NO0;
270 mac = ME2;
271 disp = NO0;
272 parag = NO0;
273 inmacro = NO0;
274 intable = NO0;
275 ldelim = NOCHAR-2;
276 rdelim = NOCHAR-2;
277 keepblock = YES1;
278
279 while ((ch = getopt(ac, av, "ikpwm:")) != -1) {
280 switch (ch) {
281 case 'i':
282 iflag = YES1;
283 break;
284 case 'k':
285 kflag = YES1;
286 break;
287 case 'm':
288 msflag = YES1;
289 keepblock = NO0;
290 switch (optarg[0]) {
291 case 'm':
292 mac = MM1;
293 break;
294 case 's':
295 mac = MS0;
296 break;
297 case 'e':
298 mac = ME2;
299 break;
300 case 'a':
301 mac = MA3;
302 break;
303 case 'l':
304 disp = YES1;
305 break;
306 default:
307 errflg = 1;
308 break;
309 }
310 if (optarg[1] != '\0')
311 errflg = 1;
312 break;
313 case 'p':
314 parag = YES1;
315 break;
316 case 'w':
317 wordflag = YES1;
318 kflag = YES1;
319 break;
320 default:
321 errflg = 1;
322 }
323 }
324 argc = ac - optind;
325 argv = av + optind;
326
327 if (kflag)
328 keepblock = YES1;
329 if (errflg)
330 usage();
331
332#ifdef DEBUG
333 printf("msflag = %d, mac = %s, keepblock = %d, disp = %d\n",
334 msflag, mactab[mac], keepblock, disp);
335#endif /* DEBUG */
336 if (argc == 0) {
337 infile = stdin(&__sF[0]);
338 } else {
339 infile = opn(argv[0]);
340 --argc;
341 ++argv;
342 }
343 files[0] = infile;
344 filesp = &files[0];
345
346 linesz = LINE_MAX2048;
347 if ((line = malloc(linesz)) == NULL((void *)0))
348 err(1, NULL((void *)0));
349
350 for (i = 'a'; i <= 'z'; ++i)
351 chars[i] = LETTER4;
352 for (i = 'A'; i <= 'Z'; ++i)
353 chars[i] = LETTER4;
354 for (i = '0'; i <= '9'; ++i)
355 chars[i] = DIGIT3;
356 chars['\''] = APOS1;
357 chars['&'] = APOS1;
358 chars['.'] = PUNCT2;
359 chars[','] = PUNCT2;
360 chars[';'] = PUNCT2;
361 chars['?'] = PUNCT2;
362 chars[':'] = PUNCT2;
363 work();
364 exit(0);
365}
366
367int
368skeqn(void)
369{
370
371 while ((c = getc(infile)(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile) :
(int)(*(infile)->_p++)) : (getc)(infile))) != rdelim) {
372 if (c == EOF(-1))
373 c = eof();
374 else if (c == '"') {
375 while ((c = getc(infile)(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile) :
(int)(*(infile)->_p++)) : (getc)(infile))) != '"') {
376 if (c == EOF(-1) ||
377 (c == '\\' && (c = getc(infile)(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile) :
(int)(*(infile)->_p++)) : (getc)(infile))) == EOF(-1)))
378 c = eof();
379 }
380 }
381 }
382 if (msflag)
383 return((c = 'x'));
384 return((c = ' '));
385}
386
387FILE *
388opn(char *p)
389{
390 FILE *fd;
391
392 if ((fd = fopen(p, "r")) == NULL((void *)0))
393 err(1, "fopen %s", p);
394
395 return(fd);
396}
397
398int
399eof(void)
400{
401
402 if (infile != stdin(&__sF[0]))
403 fclose(infile);
404 if (filesp > files)
405 infile = *--filesp;
406 else if (argc > 0) {
407 infile = opn(argv[0]);
408 --argc;
409 ++argv;
410 } else
411 exit(0);
412 return(C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ));
413}
414
415void
416getfname(void)
417{
418 char *p;
419 struct chain {
420 struct chain *nextp;
421 char *datap;
422 } *q;
423 static struct chain *namechain= NULL((void *)0);
424
425 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == ' ')
426 ; /* nothing */
427
428 for (p = fname ; p - fname < sizeof(fname) && (*p = c) != '\n' &&
429 c != ' ' && c != '\t' && c != '\\'; ++p)
430 C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
431 *p = '\0';
432 while (c != '\n')
433 C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
434
435 /* see if this name has already been used */
436 for (q = namechain ; q; q = q->nextp)
437 if (strcmp(fname, q->datap) == 0) {
438 fname[0] = '\0';
439 return;
440 }
441
442 q = malloc(sizeof(struct chain));
443 if (q == NULL((void *)0))
444 err(1, NULL((void *)0));
445 q->nextp = namechain;
446 q->datap = strdup(fname);
447 if (q->datap == NULL((void *)0))
448 err(1, NULL((void *)0));
449 namechain = q;
450}
451
452void
453textline(char *str, int constant)
454{
455
456 if (wordflag) {
457 msputwords(0);
458 return;
459 }
460 puts(str);
461}
462
463void
464work(void)
465{
466
467 for (;;) {
468 C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
469#ifdef FULLDEBUG
470 printf("Starting work with `%c'\n", c);
471#endif /* FULLDEBUG */
472 if (c == '.' || c == '\'')
473 comline();
474 else
475 regline(textline, TWO2);
476 }
477}
478
479void
480regline(void (*pfunc)(char *, int), int constant)
481{
482
483 line[0] = c;
484 lp = line;
485 for (;;) {
486 if (lp - line == linesz - 1) {
487 char *newline = reallocarray(line, linesz, 2);
488 if (newline == NULL((void *)0))
489 err(1, NULL((void *)0));
490 lp = newline + (lp - line);
491 line = newline;
492 linesz *= 2;
493 }
494 if (c == '\\') {
495 *lp = ' ';
496 backsl();
497 }
498 if (c == '\n')
499 break;
500 if (intable && c == 'T') {
501 *++lp = C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
502 if (c == '{' || c == '}') {
503 lp[-1] = ' ';
504 *lp = C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
505 }
506 } else {
507 *++lp = C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
508 }
509 }
510 *lp = '\0';
511
512 if (line[0] != '\0')
513 (*pfunc)(line, constant);
514}
515
516void
517macro(void)
518{
519
520 if (msflag) {
521 do {
522 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
523 } while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )!='.' || C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )!='.' || C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )=='.'); /* look for .. */
524 if (c != '\n')
525 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
526 return;
527 }
528 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
529 inmacro = YES1;
530}
531
532void
533tbl(void)
534{
535
536 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '.')
537 ; /* nothing */
538 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
539 intable = YES1;
540}
541
542void
543stbl(void)
544{
545
546 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '.')
547 ; /* nothing */
548 SKIP_TO_COMwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n'); while (( (c=(!__isthreaded ? (--(infile)->
_r < 0 ? __srget(infile) : (int)(*(infile)->_p++)) : (getc
)(infile))) == (-1) ? eof() : ((c==ldelim)&&(filesp==
files) ? skeqn() : c) ) != '\n'); pc=c; while (( (c=(!__isthreaded
? (--(infile)->_r < 0 ? __srget(infile) : (int)(*(infile
)->_p++)) : (getc)(infile))) == (-1) ? eof() : ((c==ldelim
)&&(filesp==files) ? skeqn() : c) ) != '.' || pc != '\n'
|| ( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) > 'Z')pc=c;
549 if (c != 'T' || C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != 'E') {
550 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
551 pc = c;
552 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '.' || pc != '\n' || C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != 'T' || C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != 'E')
553 pc = c;
554 }
555}
556
557void
558eqn(void)
559{
560 int c1, c2;
561 int dflg;
562 char last;
563
564 last=0;
565 dflg = 1;
566 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
567
568 for (;;) {
569 if (C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) == '.' || c == '\'') {
570 while (C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) == ' ' || c == '\t')
571 ;
572 if (c == 'E' && C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) == 'N') {
573 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
574 if (msflag && dflg) {
575 putchar('x')(!__isthreaded ? __sputc('x', (&__sF[1])) : (putc)('x', (
&__sF[1])));
576 putchar(' ')(!__isthreaded ? __sputc(' ', (&__sF[1])) : (putc)(' ', (
&__sF[1])));
577 if (last) {
578 putchar(last)(!__isthreaded ? __sputc(last, (&__sF[1])) : (putc)(last,
(&__sF[1])));
579 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
580 }
581 }
582 return;
583 }
584 } else if (c == 'd') {
585 /* look for delim */
586 if (C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) == 'e' && C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) == 'l')
587 if (C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) == 'i' && C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) == 'm') {
588 while (C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) == ' ')
589 ; /* nothing */
590
591 if ((c1 = c) == '\n' ||
592 (c2 = C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c)) == '\n' ||
593 (c1 == 'o' && c2 == 'f' && C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c)=='f')) {
594 ldelim = NOCHAR-2;
595 rdelim = NOCHAR-2;
596 } else {
597 ldelim = c1;
598 rdelim = c2;
599 }
600 }
601 dflg = 0;
602 }
603
604 if (c != '\n')
605 while (C1( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c) != '\n') {
606 if (chars[c] == PUNCT2)
607 last = c;
608 else if (c != ' ')
609 last = 0;
610 }
611 }
612}
613
614/* skip over a complete backslash construction */
615void
616backsl(void)
617{
618 int bdelim;
619
620sw:
621 switch (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )) {
622 case '"':
623 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
624 return;
625
626 case 's':
627 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == '\\')
628 backsl();
629 else {
630 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) >= '0' && c <= '9')
631 ; /* nothing */
632 ungetc(c, infile);
633 c = '0';
634 }
635 --lp;
636 return;
637
638 case 'f':
639 case 'n':
640 case '*':
641 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '(')
642 return;
643
644 case '(':
645 if (msflag) {
646 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == 'e') {
647 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == 'm') {
648 *lp = '-';
649 return;
650 }
651 }
652 else if (c != '\n')
653 C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
654 return;
655 }
656 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n')
657 C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
658 return;
659
660 case '$':
661 C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ); /* discard argument number */
662 return;
663
664 case 'b':
665 case 'x':
666 case 'v':
667 case 'h':
668 case 'w':
669 case 'o':
670 case 'l':
671 case 'L':
672 if ((bdelim = C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )) == '\n')
673 return;
674 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n' && c != bdelim)
675 if (c == '\\')
676 backsl();
677 return;
678
679 case '\\':
680 if (inmacro)
681 goto sw;
682
683 default:
684 return;
685 }
686}
687
688void
689sce(void)
690{
691 char *ap;
692 int n, i;
693 char a[10];
694
695 for (ap = a; C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n'; ap++) {
696 *ap = c;
697 if (ap == &a[9]) {
698 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
699 ap = a;
700 break;
701 }
702 }
703 if (ap != a)
704 n = atoi(a);
705 else
706 n = 1;
707 for (i = 0; i < n;) {
708 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == '.') {
709 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == 'c') {
710 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == 'e') {
711 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == ' ')
712 ; /* nothing */
713 if (c == '0') {
714 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
715 break;
716 } else
717 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
718 }
719 else
720 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
721 } else if (c == 'P' || C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == 'P') {
722 if (c != '\n')
723 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
724 break;
725 } else if (c != '\n')
726 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
727 } else {
728 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
729 i++;
730 }
731 }
732}
733
734void
735refer(int c1)
736{
737 int c2;
738
739 if (c1 != '\n')
740 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
741
742 for (c2 = -1;;) {
743 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '.')
744 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
745 else {
746 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != ']')
747 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
748 else {
749 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n')
750 c2 = c;
751 if (c2 != -1 && chars[c2] == PUNCT2)
752 putchar(c2)(!__isthreaded ? __sputc(c2, (&__sF[1])) : (putc)(c2, (&
__sF[1])));
753 return;
754 }
755 }
756 }
757}
758
759void
760inpic(void)
761{
762 int c1;
763 char *p1, *ep;
764
765 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
766 p1 = line;
767 ep = line + sizeof(line) - 1;
768 c = '\n';
769 for (;;) {
770 c1 = c;
771 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == '.' && c1 == '\n') {
772 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != 'P') {
773 if (c == '\n')
774 continue;
775 else {
776 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
777 c = '\n';
778 continue;
779 }
780 }
781 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != 'E') {
782 if (c == '\n')
783 continue;
784 else {
785 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
786 c = '\n';
787 continue;
788 }
789 }
790 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
791 return;
792 }
793 else if (c == '\"') {
794 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\"') {
795 if (c == '\\') {
796 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == '\"')
797 continue;
798 ungetc(c, infile);
799 backsl();
800 } else if (p1 + 1 >= ep) {
801 errx(1, ".PS length exceeds limit");
802 } else {
803 *p1++ = c;
804 }
805 }
806 *p1++ = ' ';
807 }
808 else if (c == '\n' && p1 != line) {
809 *p1 = '\0';
810 if (wordflag)
811 msputwords(NO0);
812 else {
813 puts(line);
814 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
815 }
816 p1 = line;
817 }
818 }
819}
820
821#ifdef DEBUG
822int
823_C1(void)
824{
825
826 return(C1get( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : c));
827}
828
829int
830_C(void)
831{
832
833 return(Cget( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ));
834}
835#endif /* DEBUG */
836
837/*
838 * Put out a macro line, using ms and mm conventions.
839 */
840void
841msputmac(char *s, int constant)
842{
843 char *t;
844 int found;
845 int last;
846
847 last = 0;
848 found = 0;
849 if (wordflag) {
850 msputwords(YES1);
851 return;
852 }
853 while (*s) {
854 while (*s == ' ' || *s == '\t')
855 putchar(*s++)(!__isthreaded ? __sputc(*s++, (&__sF[1])) : (putc)(*s++,
(&__sF[1])));
856 for (t = s ; *t != ' ' && *t != '\t' && *t != '\0' ; ++t)
857 ; /* nothing */
858 if (*s == '\"')
859 s++;
860 if (t > s + constant && chars[(unsigned char)s[0]] == LETTER4 &&
861 chars[(unsigned char)s[1]] == LETTER4) {
862 while (s < t)
863 if (*s == '\"')
864 s++;
865 else
866 putchar(*s++)(!__isthreaded ? __sputc(*s++, (&__sF[1])) : (putc)(*s++,
(&__sF[1])));
867 last = *(t-1);
868 found++;
869 } else if (found && chars[(unsigned char)s[0]] == PUNCT2 &&
870 s[1] == '\0') {
871 putchar(*s++)(!__isthreaded ? __sputc(*s++, (&__sF[1])) : (putc)(*s++,
(&__sF[1])));
872 } else {
873 last = *(t - 1);
874 s = t;
875 }
876 }
877 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
878 if (msflag && chars[last] == PUNCT2) {
879 putchar(last)(!__isthreaded ? __sputc(last, (&__sF[1])) : (putc)(last,
(&__sF[1])));
880 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
881 }
882}
883
884/*
885 * put out words (for the -w option) with ms and mm conventions
886 */
887void
888msputwords(int macline)
889{
890 char *p, *p1;
891 int i, nlet;
892
893 for (p1 = line;;) {
894 /*
895 * skip initial specials ampersands and apostrophes
896 */
897 while (chars[(unsigned char)*p1] < DIGIT3)
898 if (*p1++ == '\0')
899 return;
900 nlet = 0;
901 for (p = p1 ; (i = chars[(unsigned char)*p]) != SPECIAL0 ; ++p)
902 if (i == LETTER4)
903 ++nlet;
904
905 if (nlet > 1 && chars[(unsigned char)p1[0]] == LETTER4) {
906 /*
907 * delete trailing ampersands and apostrophes
908 */
909 while ((i = chars[(unsigned char)p[-1]]) == PUNCT2 ||
910 i == APOS1 )
911 --p;
912 while (p1 < p)
913 putchar(*p1++)(!__isthreaded ? __sputc(*p1++, (&__sF[1])) : (putc)(*p1++
, (&__sF[1])));
914 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
915 } else {
916 p1 = p;
917 }
918 }
919}
920
921/*
922 * put out a macro using the me conventions
923 */
924#define SKIPBLANK(cp)while (*cp == ' ' || *cp == '\t') { cp++; } while (*cp == ' ' || *cp == '\t') { cp++; }
925#define SKIPNONBLANK(cp)while (*cp !=' ' && *cp !='\cp' && *cp !='\0'
) { cp++; } while (*cp !=' ' && *cp !='\cp' && *cp !='\0') { cp++; }
926
927void
928meputmac(char *cp, int constant)
929{
930 char *np;
931 int found;
932 int argno;
933 int last;
934 int inquote;
935
936 last = 0;
937 found = 0;
938 if (wordflag) {
939 meputwords(YES1);
940 return;
941 }
942 for (argno = 0; *cp; argno++) {
943 SKIPBLANK(cp)while (*cp == ' ' || *cp == '\t') { cp++; };
944 inquote = (*cp == '"');
945 if (inquote)
946 cp++;
947 for (np = cp; *np; np++) {
948 switch (*np) {
949 case '\n':
950 case '\0':
951 break;
952
953 case '\t':
954 case ' ':
955 if (inquote)
956 continue;
957 else
958 goto endarg;
959
960 case '"':
961 if (inquote && np[1] == '"') {
962 memmove(np, np + 1, strlen(np));
963 np++;
964 continue;
965 } else {
966 *np = ' '; /* bye bye " */
967 goto endarg;
968 }
969
970 default:
971 continue;
972 }
973 }
974 endarg: ;
975 /*
976 * cp points at the first char in the arg
977 * np points one beyond the last char in the arg
978 */
979 if ((argconcat == 0) || (argconcat != argno))
980 putchar(' ')(!__isthreaded ? __sputc(' ', (&__sF[1])) : (putc)(' ', (
&__sF[1])));
981#ifdef FULLDEBUG
982 {
983 char *p;
984 printf("[%d,%d: ", argno, np - cp);
985 for (p = cp; p < np; p++) {
986 putchar(*p)(!__isthreaded ? __sputc(*p, (&__sF[1])) : (putc)(*p, (&
__sF[1])));
987 }
988 printf("]");
989 }
990#endif /* FULLDEBUG */
991 /*
992 * Determine if the argument merits being printed
993 *
994 * constant is the cut off point below which something
995 * is not a word.
996 */
997 if (((np - cp) > constant) &&
998 (inquote || (chars[(unsigned char)cp[0]] == LETTER4))) {
999 for (; cp < np; cp++)
1000 putchar(*cp)(!__isthreaded ? __sputc(*cp, (&__sF[1])) : (putc)(*cp, (
&__sF[1])));
1001 last = np[-1];
1002 found++;
1003 } else if (found && (np - cp == 1) &&
1004 chars[(unsigned char)*cp] == PUNCT2) {
1005 putchar(*cp)(!__isthreaded ? __sputc(*cp, (&__sF[1])) : (putc)(*cp, (
&__sF[1])));
1006 } else {
1007 last = np[-1];
1008 }
1009 cp = np;
1010 }
1011 if (msflag && chars[last] == PUNCT2)
1012 putchar(last)(!__isthreaded ? __sputc(last, (&__sF[1])) : (putc)(last,
(&__sF[1])));
1013 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
1014}
1015
1016/*
1017 * put out words (for the -w option) with ms and mm conventions
1018 */
1019void
1020meputwords(int macline)
1021{
1022
1023 msputwords(macline);
1024}
1025
1026/*
1027 *
1028 * Skip over a nested set of macros
1029 *
1030 * Possible arguments to noblock are:
1031 *
1032 * fi end of unfilled text
1033 * PE pic ending
1034 * DE display ending
1035 *
1036 * for ms and mm only:
1037 * KE keep ending
1038 *
1039 * NE undocumented match to NS (for mm?)
1040 * LE mm only: matches RL or *L (for lists)
1041 *
1042 * for me:
1043 * ([lqbzcdf]
1044 */
1045void
1046noblock(char a1, char a2)
1047{
1048 int c1,c2;
1049 int eqnf;
1050 int lct;
1051
1052 lct = 0;
1053 eqnf = 1;
1054 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1055 for (;;) {
1056 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '.')
1057 if (c == '\n')
1058 continue;
1059 else
1060 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1061 if ((c1 = C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )) == '\n')
1062 continue;
1063 if ((c2 = C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) )) == '\n')
1064 continue;
1065 if (c1 == a1 && c2 == a2) {
1066 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1067 if (lct != 0) {
1068 lct--;
1069 continue;
1070 }
1071 if (eqnf)
1072 putchar('.')(!__isthreaded ? __sputc('.', (&__sF[1])) : (putc)('.', (
&__sF[1])));
1073 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
1074 return;
1075 } else if (a1 == 'L' && c2 == 'L') {
1076 lct++;
1077 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1078 }
1079 /*
1080 * equations (EQ) nested within a display
1081 */
1082 else if (c1 == 'E' && c2 == 'Q') {
1083 if ((mac == ME2 && a1 == ')')
1084 || (mac != ME2 && a1 == 'D')) {
1085 eqn();
1086 eqnf=0;
1087 }
1088 }
1089 /*
1090 * turning on filling is done by the paragraphing
1091 * macros
1092 */
1093 else if (a1 == 'f') { /* .fi */
1094 if ((mac == ME2 && (c2 == 'h' || c2 == 'p'))
1095 || (mac != ME2 && (c1 == 'P' || c2 == 'P'))) {
1096 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1097 return;
1098 }
1099 } else {
1100 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1101 }
1102 }
1103}
1104
1105int
1106EQ(void)
1107{
1108
1109 eqn();
1110 return(0);
1111}
1112
1113int
1114domacro(void)
1115{
1116
1117 macro();
1118 return(0);
1119}
1120
1121int
1122PS(void)
1123{
1124
1125 for (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ); c == ' ' || c == '\t'; C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ))
1126 ; /* nothing */
1127
1128 if (c == '<') { /* ".PS < file" -- don't expect a .PE */
1129 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1130 return(0);
1131 }
1132 if (!msflag)
1133 inpic();
1134 else
1135 noblock('P', 'E');
1136 return(0);
1137}
1138
1139int
1140skip(void)
1141{
1142
1143 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1144 return(0);
1145}
1146
1147int
1148intbl(void)
1149{
1150
1151 if (msflag)
1152 stbl();
1153 else
1154 tbl();
1155 return(0);
1156}
1157
1158int
1159outtbl(void)
1160{
1161
1162 intable = NO0;
1163 return(0);
1164}
1165
1166int
1167so(void)
1168{
1169
1170 if (!iflag) {
1171 getfname();
1172 if (fname[0]) {
1173 if (++filesp - &files[0] > MAXFILES20)
1174 err(1, "too many nested files (max %d)",
1175 MAXFILES20);
1176 infile = *filesp = opn(fname);
1177 }
1178 }
1179 return(0);
1180}
1181
1182int
1183nx(void)
1184{
1185
1186 if (!iflag) {
1187 getfname();
1188 if (fname[0] == '\0')
1189 exit(0);
1190 if (infile != stdin(&__sF[0]))
1191 fclose(infile);
1192 infile = *filesp = opn(fname);
1193 }
1194 return(0);
1195}
1196
1197int
1198skiptocom(void)
1199{
1200
1201 SKIP_TO_COMwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n'); while (( (c=(!__isthreaded ? (--(infile)->
_r < 0 ? __srget(infile) : (int)(*(infile)->_p++)) : (getc
)(infile))) == (-1) ? eof() : ((c==ldelim)&&(filesp==
files) ? skeqn() : c) ) != '\n'); pc=c; while (( (c=(!__isthreaded
? (--(infile)->_r < 0 ? __srget(infile) : (int)(*(infile
)->_p++)) : (getc)(infile))) == (-1) ? eof() : ((c==ldelim
)&&(filesp==files) ? skeqn() : c) ) != '.' || pc != '\n'
|| ( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) > 'Z')pc=c;
1202 return(COMX1);
1203}
1204
1205int
1206PP(pacmac c12)
1207{
1208 int c1, c2;
1209
1210 frommac(c12, c1, c2)(((c1)=((c12)>>8)&0xFF),((c2) =(c12)&0xFF));
1211 printf(".%c%c", c1, c2);
1212 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n')
1213 putchar(c)(!__isthreaded ? __sputc(c, (&__sF[1])) : (putc)(c, (&
__sF[1])));
1214 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
1215 return(0);
1216}
1217
1218int
1219AU(void)
1220{
1221
1222 if (mac == MM1)
1223 return(0);
1224 SKIP_TO_COMwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n'); while (( (c=(!__isthreaded ? (--(infile)->
_r < 0 ? __srget(infile) : (int)(*(infile)->_p++)) : (getc
)(infile))) == (-1) ? eof() : ((c==ldelim)&&(filesp==
files) ? skeqn() : c) ) != '\n'); pc=c; while (( (c=(!__isthreaded
? (--(infile)->_r < 0 ? __srget(infile) : (int)(*(infile
)->_p++)) : (getc)(infile))) == (-1) ? eof() : ((c==ldelim
)&&(filesp==files) ? skeqn() : c) ) != '.' || pc != '\n'
|| ( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) > 'Z')pc=c;
1225 return(COMX1);
1226}
1227
1228int
1229SH(pacmac c12)
1230{
1231 int c1, c2;
1232
1233 frommac(c12, c1, c2)(((c1)=((c12)>>8)&0xFF),((c2) =(c12)&0xFF));
1234
1235 if (parag) {
1236 printf(".%c%c", c1, c2);
1237 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n')
1238 putchar(c)(!__isthreaded ? __sputc(c, (&__sF[1])) : (putc)(c, (&
__sF[1])));
1239 putchar(c)(!__isthreaded ? __sputc(c, (&__sF[1])) : (putc)(c, (&
__sF[1])));
1240 putchar('!')(!__isthreaded ? __sputc('!', (&__sF[1])) : (putc)('!', (
&__sF[1])));
1241 for (;;) {
1242 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n')
1243 putchar(c)(!__isthreaded ? __sputc(c, (&__sF[1])) : (putc)(c, (&
__sF[1])));
1244 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
1245 if (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == '.')
1246 return(COM2);
1247 putchar('!')(!__isthreaded ? __sputc('!', (&__sF[1])) : (putc)('!', (
&__sF[1])));
1248 putchar(c)(!__isthreaded ? __sputc(c, (&__sF[1])) : (putc)(c, (&
__sF[1])));
1249 }
1250 /*NOTREACHED*/
1251 } else {
1252 SKIP_TO_COMwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n'); while (( (c=(!__isthreaded ? (--(infile)->
_r < 0 ? __srget(infile) : (int)(*(infile)->_p++)) : (getc
)(infile))) == (-1) ? eof() : ((c==ldelim)&&(filesp==
files) ? skeqn() : c) ) != '\n'); pc=c; while (( (c=(!__isthreaded
? (--(infile)->_r < 0 ? __srget(infile) : (int)(*(infile
)->_p++)) : (getc)(infile))) == (-1) ? eof() : ((c==ldelim
)&&(filesp==files) ? skeqn() : c) ) != '.' || pc != '\n'
|| ( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) > 'Z')pc=c;
1253 return(COMX1);
1254 }
1255}
1256
1257int
1258UX(void)
1259{
1260
1261 if (wordflag)
1262 printf("UNIX\n");
1263 else
1264 printf("UNIX ");
1265 return(0);
1266}
1267
1268int
1269MMHU(pacmac c12)
1270{
1271 int c1, c2;
1272
1273 frommac(c12, c1, c2)(((c1)=((c12)>>8)&0xFF),((c2) =(c12)&0xFF));
1274 if (parag) {
1275 printf(".%c%c", c1, c2);
1276 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) != '\n')
1277 putchar(c)(!__isthreaded ? __sputc(c, (&__sF[1])) : (putc)(c, (&
__sF[1])));
1278 putchar('\n')(!__isthreaded ? __sputc('\n', (&__sF[1])) : (putc)('\n',
(&__sF[1])));
1279 } else {
1280 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1281 }
1282 return(0);
1283}
1284
1285int
1286mesnblock(pacmac c12)
1287{
1288 int c1, c2;
1289
1290 frommac(c12, c1, c2)(((c1)=((c12)>>8)&0xFF),((c2) =(c12)&0xFF));
1291 noblock(')', c2);
1292 return(0);
1293}
1294
1295int
1296mssnblock(pacmac c12)
1297{
1298 int c1, c2;
1299
1300 frommac(c12, c1, c2)(((c1)=((c12)>>8)&0xFF),((c2) =(c12)&0xFF));
1301 noblock(c1, 'E');
1302 return(0);
1303}
1304
1305int
1306nf(void)
1307{
1308
1309 noblock('f', 'i');
1310 return(0);
1311}
1312
1313int
1314ce(void)
1315{
1316
1317 sce();
1318 return(0);
1319}
1320
1321int
1322meip(pacmac c12)
1323{
1324
1325 if (parag)
1326 mepp(c12);
1327 else if (wordflag) /* save the tag */
1328 regline(meputmac, ONE1);
1329 else
1330 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1331 return(0);
1332}
1333
1334/*
1335 * only called for -me .pp or .sh, when parag is on
1336 */
1337int
1338mepp(pacmac c12)
1339{
1340
1341 PP(c12); /* eats the line */
1342 return(0);
1343}
1344
1345/*
1346 * Start of a section heading; output the section name if doing words
1347 */
1348int
1349mesh(pacmac c12)
1350{
1351
1352 if (parag)
1353 mepp(c12);
1354 else if (wordflag)
1355 defcomline(c12);
1356 else
1357 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1358 return(0);
1359}
1360
1361/*
1362 * process a font setting
1363 */
1364int
1365mefont(pacmac c12)
1366{
1367
1368 argconcat = 1;
1369 defcomline(c12);
1370 argconcat = 0;
1371 return(0);
1372}
1373
1374int
1375manfont(pacmac c12)
1376{
1377
1378 return(mefont(c12));
1379}
1380
1381int
1382manpp(pacmac c12)
1383{
1384
1385 return(mepp(c12));
1386}
1387
1388void
1389defcomline(pacmac c12)
1390{
1391 int c1, c2;
1392
1393 frommac(c12, c1, c2)(((c1)=((c12)>>8)&0xFF),((c2) =(c12)&0xFF));
1394 if (msflag && mac == MM1 && c2 == 'L') {
1395 if (disp || c1 == 'R') {
1396 noblock('L', 'E');
1397 } else {
1398 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1399 putchar('.')(!__isthreaded ? __sputc('.', (&__sF[1])) : (putc)('.', (
&__sF[1])));
1400 }
1401 }
1402 else if (c1 == '.' && c2 == '.') {
1403 if (msflag) {
1404 SKIPwhile (( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget
(infile) : (int)(*(infile)->_p++)) : (getc)(infile))) == (
-1) ? eof() : ((c==ldelim)&&(filesp==files) ? skeqn()
: c) ) != '\n');
1405 return;
1406 }
1407 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == '.')
1408 /*VOID*/;
1409 }
1410 ++inmacro;
1411 /*
1412 * Process the arguments to the macro
1413 */
1414 switch (mac) {
1415 default:
1416 case MM1:
1417 case MS0:
1418 if (c1 <= 'Z' && msflag)
1419 regline(msputmac, ONE1);
1420 else
1421 regline(msputmac, TWO2);
1422 break;
1423 case ME2:
1424 regline(meputmac, ONE1);
1425 break;
1426 }
1427 --inmacro;
1428}
1429
1430void
1431comline(void)
1432{
1433 int c1;
1434 int c2;
1435 pacmac c12;
1436 int mid;
1437 int lb, ub;
1438 int hit;
1439 static int tabsize = 0;
1440 static struct mactab *mactab = NULL((void *)0);
1441 struct mactab *mp;
1442
1443 if (mactab == 0)
1444 buildtab(&mactab, &tabsize);
1445com:
1446 while (C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) ) == ' ' || c == '\t')
1447 ;
1448comx:
1449 if ((c1 = c) == '\n')
1450 return;
1451 c2 = C( (c=(!__isthreaded ? (--(infile)->_r < 0 ? __srget(infile
) : (int)(*(infile)->_p++)) : (getc)(infile))) == (-1) ? eof
() : ((c==ldelim)&&(filesp==files) ? skeqn() : c) );
1452 if (c1 == '.' && c2 != '.')
1453 inmacro = NO0;
1454 if (msflag && c1 == '[') {
1455 refer(c2);
1456 return;
1457 }
1458 if (parag && mac==MM1 && c1 == 'P' && c2 == '\n') {
1459 printf(".P\n");
1460 return;
1461 }
1462 if (c2 == '\n')
1463 return;
1464 /*
1465 * Single letter macro
1466 */
1467 if (mac == ME2 && (c2 == ' ' || c2 == '\t') )
1468 c2 = ' ';
1469 c12 = tomac(c1, c2)((((c1) & 0xFF) << 8) | ((c2) & 0xFF));
1470 /*
1471 * binary search through the table of macros
1472 */
1473 lb = 0;
1474 ub = tabsize - 1;
1475 while (lb <= ub) {
1476 mid = (ub + lb) / 2;
1477 mp = &mactab[mid];
1478 if (mp->macname < c12)
1479 lb = mid + 1;
1480 else if (mp->macname > c12)
1481 ub = mid - 1;
1482 else {
1483 hit = 1;
1484#ifdef FULLDEBUG
1485 printf("preliminary hit macro %c%c ", c1, c2);
1486#endif /* FULLDEBUG */
1487 switch (mp->condition) {
1488 case NONE0:
1489 hit = YES1;
1490 break;
1491 case FNEST1:
1492 hit = (filesp == files);
1493 break;
1494 case NOMAC2:
1495 hit = !inmacro;
1496 break;
1497 case MAC3:
1498 hit = inmacro;
1499 break;
1500 case PARAG4:
1501 hit = parag;
1502 break;
1503 case NBLK6:
1504 hit = !keepblock;
1505 break;
1506 default:
1507 hit = 0;
1508 }
1509
1510 if (hit) {
1511#ifdef FULLDEBUG
1512 printf("MATCH\n");
1513#endif /* FULLDEBUG */
1514 switch ((*(mp->func))(c12)) {
1515 default:
1516 return;
1517 case COMX1:
1518 goto comx;
1519 case COM2:
1520 goto com;
1521 }
1522 }
1523#ifdef FULLDEBUG
1524 printf("FAIL\n");
1525#endif /* FULLDEBUG */
1526 break;
1527 }
1528 }
1529 defcomline(c12);
1530}
1531
1532int
1533macsort(const void *p1, const void *p2)
1534{
1535 struct mactab *t1 = (struct mactab *)p1;
1536 struct mactab *t2 = (struct mactab *)p2;
1537
1538 return(t1->macname - t2->macname);
1539}
1540
1541int
1542sizetab(struct mactab *mp)
1543{
1544 int i;
1545
1546 i = 0;
1547 if (mp) {
1548 for (; mp->macname; mp++, i++)
1549 /*VOID*/ ;
1550 }
1551 return(i);
1552}
1553
1554struct mactab *
1555macfill(struct mactab *dst, struct mactab *src)
1556{
1557
1558 if (src) {
1559 while (src->macname)
1560 *dst++ = *src++;
1561 }
1562 return(dst);
1563}
1564
1565__dead__attribute__((__noreturn__)) void
1566usage(void)
1567{
1568 extern char *__progname;
1569
1570 fprintf(stderr(&__sF[2]), "usage: %s [-ikpw] [-m a | e | l | m | s] [file ...]\n", __progname);
1571 exit(1);
1572}
1573
1574void
1575buildtab(struct mactab **r_back, int *r_size)
1576{
1577 int size;
1578 struct mactab *p, *p1, *p2;
1579 struct mactab *back;
1580
1581 size = sizetab(troffmactab) + sizetab(ppmactab);
1582 p1 = p2 = NULL((void *)0);
1583 if (msflag) {
1584 switch (mac) {
1585 case ME2:
1586 p1 = memactab;
1587 break;
1588 case MM1:
1589 p1 = msmactab;
1590 p2 = mmmactab;
1591 break;
1592 case MS0:
1593 p1 = msmactab;
1594 break;
1595 case MA3:
1596 p1 = manmactab;
1597 break;
1598 default:
1599 break;
1600 }
1601 }
1602 size += sizetab(p1);
1603 size += sizetab(p2);
1604 back = calloc(size+2, sizeof(struct mactab));
1605 if (back == NULL((void *)0))
1606 err(1, NULL((void *)0));
1607
1608 p = macfill(back, troffmactab);
1609 p = macfill(p, ppmactab);
1610 p = macfill(p, p1);
1611 p = macfill(p, p2);
Value stored to 'p' is never read
1612
1613 qsort(back, size, sizeof(struct mactab), macsort);
1614 *r_size = size;
1615 *r_back = back;
1616}
1617
1618/*
1619 * troff commands
1620 */
1621struct mactab troffmactab[] = {
1622 M(NONE, '\\','"', skip){0, (((('\\') & 0xFF) << 8) | (('"') & 0xFF)), skip
}, /* comment */
1623 M(NOMAC, 'd','e', domacro){2, (((('d') & 0xFF) << 8) | (('e') & 0xFF)), domacro
}, /* define */
1624 M(NOMAC, 'i','g', domacro){2, (((('i') & 0xFF) << 8) | (('g') & 0xFF)), domacro
}, /* ignore till .. */
1625 M(NOMAC, 'a','m', domacro){2, (((('a') & 0xFF) << 8) | (('m') & 0xFF)), domacro
}, /* append macro */
1626 M(NBLK, 'n','f', nf){6, (((('n') & 0xFF) << 8) | (('f') & 0xFF)), nf
}, /* filled */
1627 M(NBLK, 'c','e', ce){6, (((('c') & 0xFF) << 8) | (('e') & 0xFF)), ce
}, /* centered */
1628
1629 M(NONE, 's','o', so){0, (((('s') & 0xFF) << 8) | (('o') & 0xFF)), so
}, /* source a file */
1630 M(NONE, 'n','x', nx){0, (((('n') & 0xFF) << 8) | (('x') & 0xFF)), nx
}, /* go to next file */
1631
1632 M(NONE, 't','m', skip){0, (((('t') & 0xFF) << 8) | (('m') & 0xFF)), skip
}, /* print string on tty */
1633 M(NONE, 'h','w', skip){0, (((('h') & 0xFF) << 8) | (('w') & 0xFF)), skip
}, /* exception hyphen words */
1634 M(NONE, 0,0, 0){0, ((((0) & 0xFF) << 8) | ((0) & 0xFF)), 0}
1635};
1636
1637/*
1638 * Preprocessor output
1639 */
1640struct mactab ppmactab[] = {
1641 M(FNEST, 'E','Q', EQ){1, (((('E') & 0xFF) << 8) | (('Q') & 0xFF)), EQ
}, /* equation starting */
1642 M(FNEST, 'T','S', intbl){1, (((('T') & 0xFF) << 8) | (('S') & 0xFF)), intbl
}, /* table starting */
1643 M(FNEST, 'T','C', intbl){1, (((('T') & 0xFF) << 8) | (('C') & 0xFF)), intbl
}, /* alternative table? */
1644 M(FNEST, 'T','&', intbl){1, (((('T') & 0xFF) << 8) | (('&') & 0xFF)
), intbl}, /* table reformatting */
1645 M(NONE, 'T','E', outtbl){0, (((('T') & 0xFF) << 8) | (('E') & 0xFF)), outtbl
},/* table ending */
1646 M(NONE, 'P','S', PS){0, (((('P') & 0xFF) << 8) | (('S') & 0xFF)), PS
}, /* picture starting */
1647 M(NONE, 0,0, 0){0, ((((0) & 0xFF) << 8) | ((0) & 0xFF)), 0}
1648};
1649
1650/*
1651 * Particular to ms and mm
1652 */
1653struct mactab msmactab[] = {
1654 M(NONE, 'T','L', skiptocom){0, (((('T') & 0xFF) << 8) | (('L') & 0xFF)), skiptocom
}, /* title follows */
1655 M(NONE, 'F','S', skiptocom){0, (((('F') & 0xFF) << 8) | (('S') & 0xFF)), skiptocom
}, /* start footnote */
1656 M(NONE, 'O','K', skiptocom){0, (((('O') & 0xFF) << 8) | (('K') & 0xFF)), skiptocom
}, /* Other kws */
1657
1658 M(NONE, 'N','R', skip){0, (((('N') & 0xFF) << 8) | (('R') & 0xFF)), skip
}, /* undocumented */
1659 M(NONE, 'N','D', skip){0, (((('N') & 0xFF) << 8) | (('D') & 0xFF)), skip
}, /* use supplied date */
1660
1661 M(PARAG, 'P','P', PP){4, (((('P') & 0xFF) << 8) | (('P') & 0xFF)), PP
}, /* begin parag */
1662 M(PARAG, 'I','P', PP){4, (((('I') & 0xFF) << 8) | (('P') & 0xFF)), PP
}, /* begin indent parag, tag x */
1663 M(PARAG, 'L','P', PP){4, (((('L') & 0xFF) << 8) | (('P') & 0xFF)), PP
}, /* left blocked parag */
1664
1665 M(NONE, 'A','U', AU){0, (((('A') & 0xFF) << 8) | (('U') & 0xFF)), AU
}, /* author */
1666 M(NONE, 'A','I', AU){0, (((('A') & 0xFF) << 8) | (('I') & 0xFF)), AU
}, /* authors institution */
1667
1668 M(NONE, 'S','H', SH){0, (((('S') & 0xFF) << 8) | (('H') & 0xFF)), SH
}, /* section heading */
1669 M(NONE, 'S','N', SH){0, (((('S') & 0xFF) << 8) | (('N') & 0xFF)), SH
}, /* undocumented */
1670 M(NONE, 'U','X', UX){0, (((('U') & 0xFF) << 8) | (('X') & 0xFF)), UX
}, /* unix */
1671
1672 M(NBLK, 'D','S', mssnblock){6, (((('D') & 0xFF) << 8) | (('S') & 0xFF)), mssnblock
}, /* start display text */
1673 M(NBLK, 'K','S', mssnblock){6, (((('K') & 0xFF) << 8) | (('S') & 0xFF)), mssnblock
}, /* start keep */
1674 M(NBLK, 'K','F', mssnblock){6, (((('K') & 0xFF) << 8) | (('F') & 0xFF)), mssnblock
}, /* start float keep */
1675 M(NONE, 0,0, 0){0, ((((0) & 0xFF) << 8) | ((0) & 0xFF)), 0}
1676};
1677
1678struct mactab mmmactab[] = {
1679 M(NONE, 'H',' ', MMHU){0, (((('H') & 0xFF) << 8) | ((' ') & 0xFF)), MMHU
}, /* -mm ? */
1680 M(NONE, 'H','U', MMHU){0, (((('H') & 0xFF) << 8) | (('U') & 0xFF)), MMHU
}, /* -mm ? */
1681 M(PARAG, 'P',' ', PP){4, (((('P') & 0xFF) << 8) | ((' ') & 0xFF)), PP
}, /* paragraph for -mm */
1682 M(NBLK, 'N','S', mssnblock){6, (((('N') & 0xFF) << 8) | (('S') & 0xFF)), mssnblock
}, /* undocumented */
1683 M(NONE, 0,0, 0){0, ((((0) & 0xFF) << 8) | ((0) & 0xFF)), 0}
1684};
1685
1686struct mactab memactab[] = {
1687 M(PARAG, 'p','p', mepp){4, (((('p') & 0xFF) << 8) | (('p') & 0xFF)), mepp
},
1688 M(PARAG, 'l','p', mepp){4, (((('l') & 0xFF) << 8) | (('p') & 0xFF)), mepp
},
1689 M(PARAG, 'n','p', mepp){4, (((('n') & 0xFF) << 8) | (('p') & 0xFF)), mepp
},
1690 M(NONE, 'i','p', meip){0, (((('i') & 0xFF) << 8) | (('p') & 0xFF)), meip
},
1691
1692 M(NONE, 's','h', mesh){0, (((('s') & 0xFF) << 8) | (('h') & 0xFF)), mesh
},
1693 M(NONE, 'u','h', mesh){0, (((('u') & 0xFF) << 8) | (('h') & 0xFF)), mesh
},
1694
1695 M(NBLK, '(','l', mesnblock){6, (((('(') & 0xFF) << 8) | (('l') & 0xFF)), mesnblock
},
1696 M(NBLK, '(','q', mesnblock){6, (((('(') & 0xFF) << 8) | (('q') & 0xFF)), mesnblock
},
1697 M(NBLK, '(','b', mesnblock){6, (((('(') & 0xFF) << 8) | (('b') & 0xFF)), mesnblock
},
1698 M(NBLK, '(','z', mesnblock){6, (((('(') & 0xFF) << 8) | (('z') & 0xFF)), mesnblock
},
1699 M(NBLK, '(','c', mesnblock){6, (((('(') & 0xFF) << 8) | (('c') & 0xFF)), mesnblock
},
1700
1701 M(NBLK, '(','d', mesnblock){6, (((('(') & 0xFF) << 8) | (('d') & 0xFF)), mesnblock
},
1702 M(NBLK, '(','f', mesnblock){6, (((('(') & 0xFF) << 8) | (('f') & 0xFF)), mesnblock
},
1703 M(NBLK, '(','x', mesnblock){6, (((('(') & 0xFF) << 8) | (('x') & 0xFF)), mesnblock
},
1704
1705 M(NONE, 'r',' ', mefont){0, (((('r') & 0xFF) << 8) | ((' ') & 0xFF)), mefont
},
1706 M(NONE, 'i',' ', mefont){0, (((('i') & 0xFF) << 8) | ((' ') & 0xFF)), mefont
},
1707 M(NONE, 'b',' ', mefont){0, (((('b') & 0xFF) << 8) | ((' ') & 0xFF)), mefont
},
1708 M(NONE, 'u',' ', mefont){0, (((('u') & 0xFF) << 8) | ((' ') & 0xFF)), mefont
},
1709 M(NONE, 'q',' ', mefont){0, (((('q') & 0xFF) << 8) | ((' ') & 0xFF)), mefont
},
1710 M(NONE, 'r','b', mefont){0, (((('r') & 0xFF) << 8) | (('b') & 0xFF)), mefont
},
1711 M(NONE, 'b','i', mefont){0, (((('b') & 0xFF) << 8) | (('i') & 0xFF)), mefont
},
1712 M(NONE, 'b','x', mefont){0, (((('b') & 0xFF) << 8) | (('x') & 0xFF)), mefont
},
1713 M(NONE, 0,0, 0){0, ((((0) & 0xFF) << 8) | ((0) & 0xFF)), 0}
1714};
1715
1716struct mactab manmactab[] = {
1717 M(PARAG, 'B','I', manfont){4, (((('B') & 0xFF) << 8) | (('I') & 0xFF)), manfont
},
1718 M(PARAG, 'B','R', manfont){4, (((('B') & 0xFF) << 8) | (('R') & 0xFF)), manfont
},
1719 M(PARAG, 'I','B', manfont){4, (((('I') & 0xFF) << 8) | (('B') & 0xFF)), manfont
},
1720 M(PARAG, 'I','R', manfont){4, (((('I') & 0xFF) << 8) | (('R') & 0xFF)), manfont
},
1721 M(PARAG, 'R','B', manfont){4, (((('R') & 0xFF) << 8) | (('B') & 0xFF)), manfont
},
1722 M(PARAG, 'R','I', manfont){4, (((('R') & 0xFF) << 8) | (('I') & 0xFF)), manfont
},
1723
1724 M(PARAG, 'P','P', manpp){4, (((('P') & 0xFF) << 8) | (('P') & 0xFF)), manpp
},
1725 M(PARAG, 'L','P', manpp){4, (((('L') & 0xFF) << 8) | (('P') & 0xFF)), manpp
},
1726 M(PARAG, 'H','P', manpp){4, (((('H') & 0xFF) << 8) | (('P') & 0xFF)), manpp
},
1727 M(NONE, 0,0, 0){0, ((((0) & 0xFF) << 8) | ((0) & 0xFF)), 0}
1728};