1 /* t9.c: write lines for tables over 200 lines */
8 for (useln
= 0; useln
< MAXLIN
&& table
[useln
] == 0; useln
++)
11 error("Wierd. No data in table.");
12 table
[0] = table
[useln
];
13 for (useln
= nlin
- 1; useln
>= 0 && (fullbot
[useln
] || instead
[useln
]); useln
--)
16 error("Wierd. No real lines in table.");
18 while (gets1(cstore
= cspace
, MAXCHS
) && domore(cstore
))
29 if (prefix(".TE", dataln
))
31 if (dataln
[0] == '.' && !isdigit(dataln
[1])) {
32 fprintf(tabout
, "%s\n", dataln
);
36 instead
[0] = (char *)0;
48 for (icol
= 0; icol
< ncol
; icol
++) {
49 table
[0][icol
].col
= dataln
;
50 table
[0][icol
].rcol
= 0;
51 for (; (ch
= *dataln
) != '\0' && ch
!= tab
; dataln
++)
54 switch (ctype(useln
, icol
)) {
56 table
[0][icol
].rcol
= maknew(table
[0][icol
].col
);
59 table
[0][icol
].rcol
= table
[0][icol
].col
;
60 table
[0][icol
].col
= "";
63 while (ctype(useln
, icol
+ 1) == 's') /* spanning */
64 table
[0][++icol
].col
= "";
69 table
[0][icol
].col
= "";
71 exstore
= exspace
; /* reuse space for numerical items */