static char sccsid
[] = "@(#)n5.c 2.2 (CWI) 87/03/31";
* misc processing requests
switch (i
= cbits(getch())) {
case 'r': /*right adj, left ragged*/
case 'l': /*left adj, right ragged*/
admod
= ad
= 0; /*same as casena*/
case 'c': /*centered adj*/
if (skip() || ismot(i
= getch()) || cbits(i
) == ' ' || cbits(i
) == '\n') {
i
= max(hnumb(&ll
), INCH
/ 10);
if ((i
= vnumb(&pl
)) == 0)
if ((k
= findn(i
)) != NTRAP
) {
for (k
= 0; k
< NTRAP
; k
++)
errprint("cannot plant trap.");
for (k
= 0; k
< NTRAP
; k
++)
for (k
= 0; k
< NTRAP
; k
++)
if ((nlist
[k
] == i
) && (mlist
[k
] != 0))
i
= max(inumb(&numtab
[PN
].val
), 0);
register struct s
*savframe
;
if ((i
= inumb(&numtab
[PN
].val
)) < 0)
for (i
= 0; i
< NTM
- 2; )
if ((tmbuf
[i
++] = getch()) == '\n')
if (ab
) /* truncate output */
obufp
= obuf
; /* should be a function in n2.c */
fdprintf(stderr
, "%s", tmbuf
);
if ((a
< 0) || (a
>= *p
))
if ((nxev
>= NEV
) || (nxev
< 0) || (evi
>= EVLSZ
)) {
errprint("cannot do ev %d. (evi %d)", nxev
, evi
);
lseek(ibf
, ev
* (long)sizeof(env
), 0);
write(ibf
, (char *) & env
, sizeof(env
));
lseek(ibf
, nxev
* (long)sizeof(env
), 0);
read(ibf
, (char *) & env
, sizeof(env
));
errprint("if-else overflow.");
if ((cbits(i
= getch())) == '!') {
if (!(numtab
[PN
].val
& 01))
while ((cbits(i
= getch())) == ' ')
case '{': i
= LEFT
; break;
case '}': i
= RIGHT
; break;
case '\n': i
= 'x'; break;
if (i
== LEFT
) eatblk(1);
} while ((!inblk
&& (i
!= '\n')) || (inblk
&& (i
!= RIGHT
)));
int savapts
, savapts1
, savfont
, savfont1
, savpts
, savpts1
;
while ((j
= cbits(i
= getch()))!=delim
&& j
!='\n' && sp
<&string
[1280-1])
if (sp
>= string
+ 1280) {
errprint("too-long string compare.");
while ((j
= cbits(i
= getch())) != delim
&& j
!= '\n') {
fdprintf(stderr
, "\007"); /*bell*/
fdprintf(stderr
, "%s:", nextf
);
fdprintf(stderr
, "\007"); /*bell*/
pushi(NBLIST
*BLK
, PAIR('r','d'));
if (read(0, &onechar
, 1) == 1) {
for (i
= 0; ((i
< (NTAB
- 1)) && !nonumb
); i
++) {
tabtab
[i
] = max(hnumb(&tabtab
[max(i
-1,0)]), 0) & TABMASK
;
if (i
> (j
= findt1())) {
while ((i
= cbits(k
=getch())) != '\n') {
if ((j
= cbits(k
)) == '\n')
if (skip() || !(i
= getrq()) || i
== 'S' || (j
= findft(i
)) == -1)
ulfont
= ULFONT
; /*default underline position*/
if (!nonumb
&& (itmac
= getrq()))
i
= max(hnumb((int *)0), 0);
numtab
[findr(i
)].val
= j
;
if ((i
= vnumb((int *)0)) < 0)
i
= inumb(&numtab
[LN
].val
);
numtab
[LN
].val
= max(i
, 0);