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

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

Defined functions