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

64-bit safe

Browse source
This commit is contained in:
rsc 2006-04-20 21:00:21 +00:00
parent 71e936d716
commit a5f3a00bcd
5 changed files with 62 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmd/tbl/tg.c
View file

@ -6,9 +6,10 @@ gettext(char *sp, int ilin, int icol, char *fn, char *sz)
{
/* get a section of text */
char line[4096];
int oname;
int oname, startline;
char *vs;
startline = iline;
if (texname == 0)
error("Too many text block diversions");
if (textflg == 0) {
@ -42,7 +43,11 @@ gettext(char *sp, int ilin, int icol, char *fn, char *sz)
if (ctype(ilin, icol) == 'a')
Bprint(&tabout, ".ll -2n\n");
Bprint(&tabout, ".in 0\n");
while (gets1(line, sizeof(line))) {
for (;;) {
if (gets1(line, sizeof(line)) == nil) {
iline = startline;
error("missing closing T}");
}
if (line[0] == 'T' && line[1] == '}' && line[2] == tab)
break;
if (match("T}", line))