home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / tbl / tu.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  4.0 KB  |  203 lines
  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. }
  203.