4.3BSD - /usr/src/usr.bin/tbl/tu.c

   1: #ifndef lint
   2: static char sccsid[] = "@(#)tu.c	4.2 8/11/83";
   3: #endif
   4: 
   5:  /* tu.c: draws horizontal lines */
   6: # include "t..c"
   7: makeline(i,c,lintype)
   8: {
   9: int cr, type, shortl;
  10: type = thish(i,c);
  11: if (type==0) return;
  12: cr=c;
  13: shortl = (table[i][c].col[0]=='\\');
  14: if (c>0 && !shortl && thish(i,c-1) == type)return;
  15: if (shortl==0)
  16:     for(cr=c; cr < ncol && (ctype(i,cr)=='s'||type==thish(i,cr)); cr++);
  17: else
  18:     for(cr=c+1; cr<ncol && ctype(i,cr)=='s'; cr++);
  19: drawline(i, c, cr-1, lintype, 0, shortl);
  20: }
  21: fullwide(i, lintype)
  22: {
  23: int cr, cl;
  24: if (!pr1403)
  25:     fprintf(tabout, ".nr %d \\n(.v\n.vs \\n(.vu-\\n(.sp\n", SVS);
  26: cr= 0;
  27: while (cr<ncol)
  28:     {
  29:     cl=cr;
  30:     while (i>0 && vspand(prev(i),cl,1))
  31:         cl++;
  32:     for(cr=cl; cr<ncol; cr++)
  33:         if (i>0 && vspand(prev(i),cr,1))
  34:             break;
  35:     if (cl<ncol)
  36:     drawline(i,cl,(cr<ncol?cr-1:cr),lintype,1,0);
  37:     }
  38: fprintf(tabout, "\n");
  39: if (!pr1403)
  40:     fprintf(tabout, ".vs \\n(%du\n", SVS);
  41: }
  42: 
  43: drawline(i, cl, cr, lintype, noheight, shortl)
  44: {
  45:     char *exhr, *exhl;
  46:     int lcount, ln, linpos, oldpos, nodata, lnch;
  47: lcount=0;
  48: exhr=exhl= "";
  49: switch(lintype)
  50:     {
  51:     case '-': lcount=1;break;
  52:     case '=': lcount = pr1403? 1 : 2; break;
  53:     case SHORTLINE: lcount=1; break;
  54:     }
  55: if (lcount<=0) return;
  56: nodata = cr-cl>=ncol || noheight || allh(i);
  57:     if (!nodata)
  58:         fprintf(tabout, "\\v'-.5m'");
  59: for(ln=oldpos=0; ln<lcount; ln++)
  60:     {
  61:     linpos = 2*ln - lcount +1;
  62:     if (linpos != oldpos)
  63:         fprintf(tabout, "\\v'%dp'", linpos-oldpos);
  64:     oldpos=linpos;
  65:     if (shortl==0)
  66:     {
  67:     tohcol(cl);
  68:     if (lcount>1)
  69:         {
  70:         switch(interv(i,cl))
  71:             {
  72:             case TOP: exhl = ln==0 ? "1p" : "-1p"; break;
  73:             case BOT: exhl = ln==1 ? "1p" : "-1p"; break;
  74:             case THRU: exhl = "1p"; break;
  75:             }
  76:         if (exhl[0])
  77:         fprintf(tabout, "\\h'%s'", exhl);
  78:         }
  79:     else if (lcount==1)
  80:         {
  81:         switch(interv(i,cl))
  82:             {
  83:             case TOP: case BOT: exhl = "-1p"; break;
  84:             case THRU: exhl = "1p"; break;
  85:             }
  86:         if (exhl[0])
  87:         fprintf(tabout, "\\h'%s'", exhl);
  88:         }
  89:     if (lcount>1)
  90:         {
  91:         switch(interv(i,cr+1))
  92:             {
  93:             case TOP: exhr = ln==0 ? "-1p" : "+1p"; break;
  94:             case BOT: exhr = ln==1 ? "-1p" : "+1p"; break;
  95:             case THRU: exhr = "-1p"; break;
  96:             }
  97:         }
  98:     else if (lcount==1)
  99:         {
 100:         switch(interv(i,cr+1))
 101:             {
 102:             case TOP: case BOT: exhr = "+1p"; break;
 103:             case THRU: exhr = "-1p"; break;
 104:             }
 105:         }
 106:     }
 107:     else
 108:         fprintf(tabout, "\\h'|\\n(%du'", cl+CLEFT);
 109:     fprintf(tabout, "\\s\\n(%d",LSIZE);
 110:     if (linsize)
 111:         fprintf(tabout, "\\v'-\\n(%dp/6u'", LSIZE);
 112:     if (shortl)
 113:         fprintf(tabout, "\\l'|\\n(%du'", cr+CRIGHT);
 114:     else
 115:     {
 116:     lnch = "\\(ul";
 117:     if (pr1403)
 118:         lnch = lintype==2 ? "=" : "\\(ru";
 119:     if (cr+1>=ncol)
 120:         fprintf(tabout, "\\l'|\\n(TWu%s%s'", exhr,lnch);
 121:     else
 122:         fprintf(tabout, "\\l'(|\\n(%du+|\\n(%du)/2u%s%s'", cr+CRIGHT,
 123:             cr+1+CLEFT, exhr, lnch);
 124:     }
 125:     if (linsize)
 126:         fprintf(tabout, "\\v'\\n(%dp/6u'", LSIZE);
 127:     fprintf(tabout, "\\s0");
 128:     }
 129: if (oldpos!=0)
 130:     fprintf(tabout, "\\v'%dp'", -oldpos);
 131: if (!nodata)
 132:     fprintf(tabout, "\\v'+.5m'");
 133: }
 134: getstop()
 135: {
 136: int i,c,k,junk, stopp;
 137: stopp=1;
 138: for(i=0; i<MAXLIN; i++)
 139:     linestop[i]=0;
 140: for(i=0; i<nlin; i++)
 141:     for(c=0; c<ncol; c++)
 142:         {
 143:         k = left(i,c,&junk);
 144:         if (k>=0 && linestop[k]==0)
 145:             linestop[k]= ++stopp;
 146:         }
 147: if (boxflg || allflg || dboxflg)
 148:     linestop[0]=1;
 149: }
 150: left(i,c, lwidp)
 151:     int *lwidp;
 152: {
 153: int kind, li, lj;
 154:     /* returns -1 if no line to left */
 155:     /* returns number of line where it starts */
 156:     /* stores into lwid the kind of line */
 157: *lwidp=0;
 158: kind = lefdata(i,c);
 159: if (kind==0) return(-1);
 160: if (i+1<nlin)
 161: if (lefdata(next(i),c)== kind) return(-1);
 162: while (i>=0 && lefdata(i,c)==kind)
 163:     i=prev(li=i);
 164: if (prev(li)== -1) li=0;
 165: *lwidp=kind;
 166: for(lj= i+1; lj<li; lj++)
 167:     if (instead[lj] && strcmp(instead[lj], ".TH")==0)
 168:         return(li);
 169: for(i= i+1; i<li; i++)
 170:     if (fullbot[i])
 171:         li=i;
 172: return(li);
 173: }
 174: lefdata(i,c)
 175: {
 176: int ck;
 177: if (i>=nlin) i=nlin-1;
 178: if (ctype(i,c) == 's')
 179:     {
 180:     for(ck=c; ctype(i,ck)=='s'; ck--);
 181:     if (thish(i,ck)==0)
 182:         return(0);
 183:     }
 184: i =stynum[i];
 185: i = lefline[i][c];
 186: if (i>0) return(i);
 187: if (dboxflg && c==0) return(2);
 188: if (allflg)return(1);
 189: if (boxflg && c==0) return(1);
 190: return(0);
 191: }
 192: next(i)
 193: {
 194: while (i+1 <nlin)
 195:     {
 196:     i++;
 197:     if (!fullbot[i] && !instead[i]) break;
 198:     }
 199: return(i);
 200: }
 201: prev(i)
 202: {
 203: while (--i >=0  && (fullbot[i] || instead[i]))
 204:     ;
 205: return(i);
 206: }

Defined functions

Defined variables