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))
30 if (prefix(".TE", dataln))
32 if (dataln[0] == '.' && !isdigit((uchar)dataln[1])) {
33 Bprint(&tabout, "%s\n", dataln);
37 instead[0] = (char *)0;
49 for (icol = 0; icol < ncol; icol++) {
50 table[0][icol].col = dataln;
51 table[0][icol].rcol = 0;
52 for (; (ch = *dataln) != '\0' && ch != tab; dataln++)
55 switch (ctype(useln, icol)) {
57 table[0][icol].rcol = maknew(table[0][icol].col);
60 table[0][icol].rcol = table[0][icol].col;
61 table[0][icol].col = "";
64 while (ctype(useln, icol + 1) == 's') /* spanning */
65 table[0][++icol].col = "";
70 table[0][icol].col = "";
72 exstore = exspace; /* reuse space for numerical items */