o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make tbl compile silently.

Browse source
This commit is contained in:
wkj 2004-05-17 02:23:43 +00:00
parent 1f72bc47fe
commit 8a3cbc1579
19 changed files with 321 additions and 328 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/cmd/tbl/te.c
View file

@ -4,9 +4,9 @@
void
error(char *s)
{
fprintf(stderr, "\n%s:%d: %s\n", ifile, iline, s);
fprintf(stderr, "tbl quits\n");
exit(1);
fprint(2, "\n%s:%d: %s\n", ifile, iline, s);
fprint(2, "tbl quits\n");
exits(s);
}
@ -18,14 +18,13 @@ gets1(char *s, int size)
iline++;
ns = s;
p = fgetln(tabin, &nbl);
p = Brdline(tabin, '\n');
while (p == 0) {
if (swapin() == 0)
return(0);
p = fgetln(tabin, &nbl);
p = Brdline(tabin, '\n');
}
if(p != 0 && p[nbl-1] == '\n')
nbl--;
nbl = Blinelen(tabin)-1;
if(nbl >= size)
error("input buffer too small");
p[nbl] = 0;
@ -62,11 +61,11 @@ get1char(void)
if (backp > backup)
c = *--backp;
else
c = fgetc(tabin);
c = Bgetc(tabin);
if (c == 0) /* EOF */ {
if (swapin() == 0)
error("unexpected EOF");
c = fgetc(tabin);
c = Bgetc(tabin);
}
if (c == '\n')
iline++;