# 2.11BSD#431 - /usr/src/usr.bin/tbl/t9.c

##### Functions

    domore            X
    yetmore           X

       1: #ifndef lint
       2: static char sccsid[] = "@(#)t9.c	4.2 8/11/83";
       3: #endif
       4:
       5:  /* t9.c: write lines for tables over 200 lines */
       6: # include "t..c"
       7: static useln;
       8: yetmore()
       9: {
      10: for(useln=0; useln<MAXLIN && table[useln]==0; useln++);
      11: if (useln>=MAXLIN)
      12:     error("Wierd.  No data in table.");
      13: table[0]=table[useln];
      14: for(useln=nlin-1; useln>=0 && (fullbot[useln] || instead[useln]); useln--);
      15: if (useln<0)
      16:     error("Wierd.  No real lines in table.");
      17: domore(leftover);
      18: while (gets1(cstore=cspace) && domore(cstore))
      19:     ;
      20: last =cstore;
      21: return;
      22: }
      23: domore(dataln)
      24:     char *dataln;
      25: {
      26:     int icol, ch;
      27: if (prefix(".TE", dataln))
      28:     return(0);
      29: if (dataln[0] == '.' && !isdigit(dataln[1]))
      30:     {
      31:     puts(dataln);
      32:     return(1);
      33:     }
      34: instead[0]= (char *) 0;
      35: fullbot[0]=0;
      36: if (dataln[1]==0)
      37: switch(dataln[0])
      38:     {
      39:     case '_': fullbot[0]= '-'; putline(useln,0);  return(1);
      40:     case '=': fullbot[0]= '='; putline(useln, 0); return(1);
      41:     }
      42: for (icol = 0; icol <ncol; icol++)
      43:     {
      44:     table[0][icol].col = dataln;
      45:     table[0][icol].rcol=0;
      46:     for(; (ch= *dataln) != '\0' && ch != tab; dataln++)
      47:             ;
      48:     *dataln++ = '\0';
      49:     switch(ctype(useln,icol))
      50:         {
      51:         case 'n':
      52:             table[0][icol].rcol = maknew(table[0][icol].col);
      53:             break;
      54:         case 'a':
      55:             table[0][icol].rcol = table[0][icol].col;
      56:             table[0][icol].col= "";
      57:             break;
      58:         }
      59:     while (ctype(useln,icol+1)== 's') /* spanning */
      60:         table[0][++icol].col = "";
      61:     if (ch == '\0') break;
      62:     }
      63: while (++icol <ncol)
      64:     table[0][icol].col = "";
      65: putline(useln,0);
      66: return(1);
      67: }

#### Defined functions

domore defined in line 23; used 2 times

- in line 17-18(2)

yetmore defined in line 8; used 1 times

- in /usr/src/usr.bin/tbl/t7.c line 23

#### Defined variables

sccsid defined in line 2; never used

Last modified: 1993-01-18 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 1047 |