home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / tbl / t8.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  7.1 KB  |  328 lines
  1.  /* t8.c: write out one line of output table */
  2. # include "t..c"
  3. # define realsplit ((ct=='a'||ct=='n') && table[nl][c].rcol)
  4. int watchout;
  5. int once;
  6. int topat[MAXCOL];
  7. putline(i, nl)
  8.     /* i is line number for deciding format */
  9.     /* nl is line number for finding data   usually identical */
  10. {
  11. int c, lf, ct, form, lwid, vspf, ip, cmidx, exvspen, vforml;
  12. int vct, chfont;
  13. char *s, *size, *fn;
  14. watchout=vspf=exvspen=0;
  15. if (i==0) once=0;
  16. if (i==0 && ( allflg || boxflg || dboxflg))
  17.     fullwide(0,   dboxflg? '=' : '-');
  18. if (instead[nl]==0 && fullbot[nl] ==0)
  19. for(c=0; c<ncol; c++)
  20.     {
  21.     s = table[nl][c].col;
  22.     if (s==0) continue;
  23.     if (vspen(s))
  24.         {
  25.         for(ip=nl; ip<nlin; ip=next(ip))
  26.             if (!vspen(s=table[ip][c].col)) break;
  27.         if (s>0 && s<128)
  28.         fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s);
  29.         continue;
  30.         }
  31.     if (point(s)) continue;
  32.     fprintf(tabout, ".ne \\n(%c|u+\\n(.Vu\n",s);
  33.     watchout=1;
  34.     }
  35. if (linestop[nl])
  36.     fprintf(tabout, ".mk #%c\n", linestop[nl]+'a'-1);
  37. lf = prev(nl);
  38. if (instead[nl])
  39.     {
  40.     puts(instead[nl]);
  41.     return;
  42.     }
  43. if (fullbot[nl])
  44.     {
  45.     switch (ct=fullbot[nl])
  46.         {
  47.         case '=':
  48.         case '-':
  49.             fullwide(nl,ct);
  50.         }
  51.     return;
  52.     }
  53. for(c=0; c<ncol; c++)
  54.     {
  55.     if (instead[nl]==0 && fullbot[nl]==0)
  56.     if (vspen(table[nl][c].col)) vspf=1;
  57.     if (lf>=0)
  58.         if (vspen(table[lf][c].col)) vspf=1;
  59.     }
  60. if (vspf)
  61.     {
  62.     fprintf(tabout, ".nr #^ \\n(\\*(#du\n");
  63.     fprintf(tabout, ".nr #- \\n(#^\n"); /* current line position relative to bottom */
  64.     }
  65. vspf=0;
  66. chfont=0;
  67. for(c=0; c<ncol; c++)
  68.     {
  69.     s = table[nl][c].col;
  70.     if (s==0) continue;
  71.     chfont |= (font[stynum[nl]][c]);
  72.     if (point(s) ) continue;
  73.     lf=prev(nl);
  74.     if (lf>=0 && vspen(table[lf][c].col))
  75.         fprintf(tabout, ".if (\\n(%c|+\\n(^%c-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(^%c-\\n(#--1v)\n",s,'a'+c,s,'a'+c);
  76.     else
  77.         fprintf(tabout, ".if (\\n(%c|+\\n(#^-1v)>\\n(#- .nr #- +(\\n(%c|+\\n(#^-\\n(#--1v)\n",s,s);
  78.     }
  79. if (allflg && once>0 )
  80.     fullwide(i,'-');
  81. once=1;
  82. runtabs(i, nl);
  83. if (allh(i) && !pr1403)
  84.     {
  85.     fprintf(tabout, ".nr %d \\n(.v\n", SVS);
  86.     fprintf(tabout, ".vs \\n(.vu-\\n(.sp\n");
  87.     }
  88. if (chfont)
  89.     fprintf(tabout, ".nr %2d \\n(.f\n", S1);
  90. fprintf(tabout, ".nr 35 1m\n");
  91. fprintf(tabout, "\\&");
  92. vct = 0;
  93. for(c=0; c<ncol; c++)
  94.     {
  95.     if (watchout==0 && i+1<nlin && (lf=left(i,c, &lwid))>=0)
  96.         {
  97.         tohcol(c);
  98.         drawvert(lf, i, c, lwid);
  99.         vct += 2;
  100.         }
  101.     if (rightl && c+1==ncol) continue;
  102.     vforml=i;
  103.     for(lf=prev(nl); lf>=0 && vspen(table[lf][c].col); lf=prev(lf))
  104.         vforml= lf;
  105.     form= ctype(vforml,c);
  106.     if (form != 's')
  107.         {
  108.         ct = c+CLEFT;
  109.         if (form=='a') ct = c+CMID;
  110.         if (form=='n' && table[nl][c].rcol && lused[c]==0) ct= c+CMID;
  111.         fprintf(tabout, "\\h'|\\n(%du'", ct);
  112.         }
  113.     s= table[nl][c].col;
  114.     fn = font[stynum[vforml]][c];
  115.     size = csize[stynum[vforml]][c];
  116.     if (*size==0)size=0;
  117.     switch(ct=ctype(vforml, c))
  118.         {
  119.         case 'n':
  120.         case 'a':
  121.             if (table[nl][c].rcol)
  122.                 {
  123.                if (lused[c]) /*Zero field width*/
  124.                 {
  125.                 ip = prev(nl);
  126.                 if (ip>=0)
  127.                 if (vspen(table[ip][c].col))
  128.                     {
  129.                     if (exvspen==0)
  130.                         {
  131.                         fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a');
  132.                         if (cmidx)
  133.                             fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
  134.                         vct++;
  135.                         fprintf(tabout, "'");
  136.                         exvspen=1;
  137.                         }
  138.                     }
  139.                 fprintf(tabout, "%c%c",F1,F2);
  140.                 puttext(s,fn,size);
  141.                 fprintf(tabout, "%c",F1);
  142.                 }
  143.                 s= table[nl][c].rcol;
  144.                 form=1;
  145.                 break;
  146.                 }
  147.         case 'c':
  148.             form=3; break;
  149.         case 'r':
  150.             form=2; break;
  151.         case 'l':
  152.             form=1; break;
  153.         case '-':
  154.         case '=':
  155.             if (real(table[nl][c].col))
  156.                 fprintf(stderr,"%s: line %d: Data ignored on table line %d\n", ifile, iline-1, i+1);
  157.             makeline(i,c,ct);
  158.             continue;
  159.         default:
  160.             continue;
  161.         }
  162.     if (realsplit ? rused[c]: used[c]) /*Zero field width*/
  163.         {
  164.         /* form: 1 left, 2 right, 3 center adjust */
  165.         if (ifline(s))
  166.             {
  167.             makeline(i,c,ifline(s));
  168.             continue;
  169.             }
  170.         if (filler(s))
  171.             {
  172.             printf("\\l'|\\n(%du\\&%s'", c+CRIGHT, s+2);
  173.             continue;
  174.             }
  175.         ip = prev(nl);
  176.         cmidx = ctop[stynum[nl]][c]==0;
  177.         if (ip>=0)
  178.         if (vspen(table[ip][c].col))
  179.             {
  180.             if (exvspen==0)
  181.                 {
  182.                 fprintf(tabout, "\\v'-(\\n(\\*(#du-\\n(^%cu", c+'a');
  183.                 if (cmidx)
  184.                     fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
  185.                 vct++;
  186.                 fprintf(tabout, "'");
  187.                 }
  188.             }
  189.         fprintf(tabout, "%c", F1);
  190.         if (form!= 1)
  191.             fprintf(tabout, "%c", F2);
  192.         if (vspen(s))
  193.             vspf=1;
  194.         else
  195.         puttext(s, fn, size);
  196.         if (form !=2)
  197.             fprintf(tabout, "%c", F2);
  198.         fprintf(tabout, "%c", F1);
  199.         }
  200.     if (ip>=0)
  201.     if (vspen(table[ip][c].col))
  202.         {
  203.         exvspen = (c+1 < ncol) && vspen(table[ip][c+1].col) &&
  204.             (topat[c] == topat[c+1]) &&
  205.             (cmidx == (ctop [stynum[nl]][c+1]==0)) && (left(i,c+1,&lwid)<0);
  206.         if (exvspen==0)
  207.             {
  208.             fprintf(tabout, "\\v'(\\n(\\*(#du-\\n(^%cu", c+'a');
  209.             if (cmidx)
  210.                 fprintf(tabout, "-((\\n(#-u-\\n(^%cu)/2u)", c+'a');
  211.             vct++;
  212.             fprintf(tabout, "'");
  213.             }
  214.         }
  215.     else
  216.         exvspen=0;
  217.     /* if lines need to be split for gcos here is the place for a backslash */
  218.     if (vct > 7 && c < ncol)
  219.         {
  220.         fprintf(tabout, "\n.sp-1\n\\&");
  221.         vct=0;
  222.         }
  223.     }
  224. fprintf(tabout, "\n");
  225. if (allh(i) && !pr1403) fprintf(tabout, ".vs \\n(%du\n", SVS);
  226. if (watchout)
  227.     funnies(i,nl);
  228. if (vspf)
  229.     {
  230.     for(c=0; c<ncol; c++)
  231.         if (vspen(table[nl][c].col) && (nl==0 || (lf=prev(nl))<0 || !vspen(table[lf][c].col)))
  232.             {
  233.             fprintf(tabout, ".nr ^%c \\n(#^u\n", 'a'+c);
  234.             topat[c]=nl;
  235.             }
  236.     }
  237. }
  238. puttext(s,fn, size)
  239.     char *s, *size, *fn;
  240. {
  241. if (point(s))
  242.     {
  243.     putfont(fn);
  244.     putsize(size);
  245.     fprintf(tabout, "%s",s);
  246.     if (*fn>0) fprintf(tabout, "\\f\\n(%2d", S1);
  247.     if (size!=0) putsize("0");
  248.     }
  249. }
  250. funnies( stl, lin)
  251. {
  252. /* write out funny diverted things */
  253. int c, s, pl, lwid, dv, lf, ct;
  254. char *fn;
  255. fprintf(tabout, ".mk ##\n"); /* rmember current vertical position */
  256. fprintf(tabout, ".nr %d \\n(##\n", S1); /* bottom position */
  257. for(c=0; c<ncol; c++)
  258.     {
  259.     s = table[lin][c].col;
  260.     if (point(s)) continue;
  261.     if (s==0) continue;
  262.     fprintf(tabout, ".sp |\\n(##u-1v\n");
  263.     fprintf(tabout, ".nr %d ", SIND);
  264.     for(pl=stl; pl>=0 && !isalpha(ct=ctype(pl,c)); pl=prev(pl))
  265.         ;
  266.     switch (ct)
  267.         {
  268.         case 'n':
  269.         case 'c':
  270.             fprintf(tabout, "(\\n(%du+\\n(%du-\\n(%c-u)/2u\n",c+CLEFT,c-1+ctspan(lin,c)+CRIGHT, s);
  271.             break;
  272.         case 'l':
  273.             fprintf(tabout, "\\n(%du\n",c+CLEFT);
  274.             break;
  275.         case 'a':
  276.             fprintf(tabout, "\\n(%du\n",c+CMID);
  277.             break;
  278.         case 'r':
  279.             fprintf(tabout, "\\n(%du-\\n(%c-u\n", c+CRIGHT, s);
  280.             break;
  281.         }
  282.     fprintf(tabout, ".in +\\n(%du\n", SIND);
  283.     fn=font[stynum[stl]][c];
  284.     putfont(fn);
  285.     pl = prev(stl);
  286.     if (stl>0 && pl>=0 && vspen(table[pl][c].col))
  287.         {
  288.         fprintf(tabout, ".sp |\\n(^%cu\n", 'a'+c);
  289.         if (ctop[stynum[stl]][c]==0)
  290.             {
  291.             fprintf(tabout, ".nr %d \\n(#-u-\\n(^%c-\\n(%c|+1v\n",TMP, 'a'+c, s);
  292.             fprintf(tabout, ".if \\n(%d>0 .sp \\n(%du/2u\n", TMP, TMP);
  293.             }
  294.         }
  295.     fprintf(tabout, ".%c+\n",s);
  296.     fprintf(tabout, ".in -\\n(%du\n", SIND);
  297.     if (*fn>0) putfont("P");
  298.     fprintf(tabout, ".mk %d\n", S2);
  299.     fprintf(tabout, ".if \\n(%d>\\n(%d .nr %d \\n(%d\n", S2, S1, S1, S2);
  300.     }
  301. fprintf(tabout, ".sp |\\n(%du\n", S1);
  302. for(c=dv=0; c<ncol; c++)
  303.     {
  304.     if (stl+1< nlin && (lf=left(stl,c,&lwid))>=0)
  305.         {
  306.         if (dv++ == 0)
  307.             fprintf(tabout, ".sp -1\n");
  308.         tohcol(c);
  309.         dv++;
  310.         drawvert(lf, stl, c, lwid);
  311.         }
  312.     }
  313. if (dv)
  314.     fprintf(tabout,"\n");
  315. }
  316. putfont(fn)
  317.     char *fn;
  318. {
  319. if (fn && *fn)
  320.     fprintf(tabout,  fn[1] ? "\\f(%.2s" : "\\f%.2s",  fn);
  321. }
  322. putsize(s)
  323.     char *s;
  324. {
  325. if (s && *s)
  326.     fprintf(tabout, "\\s%s",s);
  327. }
  328.