static char sccsid
[] = "@(#)t9.c 4.2 %G%";
/* t9.c: write lines for tables over 200 lines */
for(useln
=0; useln
<MAXLIN
&& table
[useln
]==0; useln
++);
error("Wierd. No data in table.");
for(useln
=nlin
-1; useln
>=0 && (fullbot
[useln
] || instead
[useln
]); useln
--);
error("Wierd. No real lines in table.");
while (gets1(cstore
=cspace
) && domore(cstore
))
if (prefix(".TE", dataln
))
if (dataln
[0] == '.' && !isdigit(dataln
[1]))
case '_': fullbot
[0]= '-'; putline(useln
,0); return(1);
case '=': fullbot
[0]= '='; putline(useln
, 0); return(1);
for (icol
= 0; icol
<ncol
; icol
++)
table
[0][icol
].col
= dataln
;
for(; (ch
= *dataln
) != '\0' && ch
!= tab
; dataln
++)
switch(ctype(useln
,icol
))
table
[0][icol
].rcol
= maknew(table
[0][icol
].col
);
table
[0][icol
].rcol
= table
[0][icol
].col
;
while (ctype(useln
,icol
+1)== 's') /* spanning */
table
[0][++icol
].col
= "";