2.9BSD - /usr/src/cmd/tbl/t7.c

   1:  /* t7.c: control to write table entries */
   2: # include "t..c"
   3: # define realsplit ((ct=='a'||ct=='n') && table[ldata][c].rcol)
   4: runout()
   5: {
   6: int i;
   7: if (boxflg || allflg || dboxflg) need();
   8: if (ctrflg)
   9:     {
  10:     fprintf(tabout, ".nr #I \\n(.i\n");
  11:     fprintf(tabout, ".in +(\\n(.lu-\\n(TWu-\\n(.iu)/2u\n");
  12:     }
  13: fprintf(tabout, ".fc %c %c\n", F1, F2);
  14: fprintf(tabout, ".nr #T 0-1\n");
  15: deftail();
  16: for(i=0; i<nlin; i++)
  17:     putline(i,i);
  18: if (leftover)
  19:     yetmore();
  20: fprintf(tabout, ".fc\n");
  21: fprintf(tabout, ".nr T. 1\n");
  22: fprintf(tabout, ".T# 1\n");
  23: if (ctrflg)
  24:     fprintf(tabout, ".in \\n(#Iu\n");
  25: }
  26: runtabs(lform, ldata)
  27: {
  28: int c, ct, vforml, lf;
  29: fprintf(tabout, ".ta ");
  30: for(c=0; c<ncol; c++)
  31:     {
  32:     vforml=lform;
  33:     for(lf=prev(lform); lf>=0 && vspen(table[lf][c].col); lf=prev(lf))
  34:         vforml=lf;
  35:     if (fspan(vforml,c))
  36:         continue;
  37:     switch(ct=ctype(vforml,c))
  38:         {
  39:         case 'n':
  40:         case 'a':
  41:             if (table[ldata][c].rcol)
  42:               if (lused[c]) /*Zero field width*/
  43:                 fprintf(tabout, "\\n(%du ",c+CMID);
  44:         case 'c':
  45:         case 'l':
  46:         case 'r':
  47:             if (realsplit? rused[c]: (used[c]+lused[c]))
  48:             fprintf(tabout, "\\n(%du ",c+CRIGHT);
  49:             continue;
  50:         case 's':
  51:             if (lspan(lform, c))
  52:                 fprintf(tabout, "\\n(%du ", c+CRIGHT);
  53:             continue;
  54:         }
  55:     }
  56: fprintf(tabout, "\n");
  57: }
  58: ifline(s)
  59:     char *s;
  60: {
  61: if (s[0] == '\\') s++;
  62: if (s[1] ) return(0);
  63: if (s[0] == '_') return('-');
  64: if (s[0] == '=') return('=');
  65: return(0);
  66: }
  67: need()
  68: {
  69: int texlin, horlin, i;
  70: for(texlin=horlin=i=0; i<nlin; i++)
  71:     {
  72:     if (fullbot[i]!=0)
  73:         horlin++;
  74:     else
  75:     if (instead[i]!=0)
  76:         continue;
  77:     else
  78:         texlin++;
  79:     }
  80: fprintf(tabout, ".ne %dv+%dp\n",texlin,2*horlin);
  81: }
  82: deftail()
  83: {
  84: int i, c, lf, lwid;
  85: for(i=0; i<MAXHEAD; i++)
  86:     if (linestop[i])
  87:         fprintf(tabout, ".nr #%c 0-1\n", linestop[i]+'a'-1);
  88: fprintf(tabout, ".nr #a 0-1\n");
  89: fprintf(tabout, ".eo\n");
  90: fprintf(tabout, ".de T#\n");
  91: fprintf(tabout, ".ds #d .d\n");
  92: fprintf(tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
  93:     fprintf(tabout, ".mk ##\n");
  94:     fprintf(tabout, ".nr ## -1v\n");
  95:     fprintf(tabout, ".ls 1\n");
  96:     for(i=0; i<MAXHEAD; i++)
  97:         if (linestop[i])
  98:             fprintf(tabout, ".if \\n(#T>=0 .nr #%c \\n(#T\n",linestop[i]+'a'-1);
  99: if (boxflg || allflg || dboxflg) /* bottom of table line */
 100:     if (fullbot[nlin-1]==0)
 101:         {
 102:         if (!pr1403)
 103:             fprintf(tabout, ".if \\n(T. .vs \\n(.vu-\\n(.sp\n");
 104:         fprintf(tabout, ".if \\n(T. ");
 105:         drawline(nlin,0,ncol, dboxflg ? '=' : '-',1,0);
 106:         fprintf(tabout, "\n.if \\n(T. .vs\n");
 107:         /* T. is really an argument to a macro but because of
 108: 		   eqn we don't dare pass it as an argument and reference by $1 */
 109:         }
 110:     for(c=0; c<ncol; c++)
 111:         {
 112:         if ((lf=left(nlin-1,c, &lwid))>=0)
 113:             {
 114:             fprintf(tabout, ".if \\n(#%c>=0 .sp -1\n",linestop[lf]+'a'-1);
 115:             fprintf(tabout, ".if \\n(#%c>=0 ", linestop[lf]+'a'-1);
 116:             tohcol(c);
 117:             drawvert(lf, nlin-1, c, lwid);
 118:             fprintf(tabout, "\\h'|\\n(TWu'\n");
 119:             }
 120:         }
 121:     if (boxflg || allflg || dboxflg) /* right hand line */
 122:         {
 123:         fprintf(tabout, ".if \\n(#a>=0 .sp -1\n");
 124:         fprintf(tabout, ".if \\n(#a>=0 \\h'|\\n(TWu'");
 125:         drawvert (0, nlin-1, ncol, dboxflg? 2 : 1);
 126:         fprintf(tabout, "\n");
 127:         }
 128: fprintf(tabout, ".ls\n");
 129: fprintf(tabout, "..\n");
 130: fprintf(tabout, ".ec\n");
 131: }

Defined functions

Defined macros