Return to tg.c CVS log

Up to [Research Unix] / researchv9 / cmd / tbl

Annotation of researchv9/cmd/tbl/tg.c, revision 1.1.1.1

1.1       root        1:  /* tg.c: process included text blocks */
                      2: # include "t..c"
                      3: gettext(sp, ilin,icol, fn, sz)
                      4:        char *sp, *fn, *sz;
                      5: {
                      6: /* get a section of text */
                      7: char line[4096];
                      8: int oname;
                      9: char *vs;
                     10: if (texname==0) error("Too many text block diversions");
                     11: if (textflg==0)
                     12:        {
                     13:        fprintf(tabout, ".nr %d \\n(.lu\n", SL); /* remember old line length */
                     14:        textflg=1;
                     15:        }
                     16: fprintf(tabout, ".eo\n");
                     17: fprintf(tabout, ".am %s\n", reg(icol,CRIGHT));
                     18: fprintf(tabout, ".br\n");
                     19: fprintf(tabout, ".di %c+\n", texname);
                     20: rstofill();
                     21: if (fn && *fn) fprintf(tabout, ".nr %d \\n(.f\n.ft %s\n", S1, fn);
                     22: fprintf(tabout, ".ft \\n(.f\n"); /* protect font */
                     23: vs = vsize[icol][stynum[ilin]];
                     24: if ((sz && *sz) || (vs && *vs))
                     25:        {
                     26:        fprintf(tabout, ".nr %d \\n(.v\n", S9);
                     27:        if (vs==0 || *vs==0) vs= "\\n(.s+2";
                     28:        if (sz && *sz)
                     29:                fprintf(tabout, ".ps %s\n",sz);
                     30:        fprintf(tabout, ".vs %s\n",vs);
                     31:        fprintf(tabout, ".if \\n(%du>\\n(.vu .sp \\n(%du-\\n(.vu\n", S9,S9);
                     32:        }
                     33: if (cll[icol][0])
                     34:        fprintf(tabout, ".ll %sn\n", cll[icol]);
                     35: else
                     36:        fprintf(tabout, ".ll \\n(%du*%du/%du\n",SL,ctspan(ilin,icol),ncol+1);
                     37: fprintf(tabout,".if \\n(.l<\\n(%2s .ll \\n(%2su\n", reg(icol,CRIGHT), reg(icol,CRIGHT));
                     38: if (ctype(ilin,icol)=='a')
                     39:        fprintf(tabout, ".ll -2n\n");
                     40: fprintf(tabout, ".in 0\n");
                     41: while (gets1(line))
                     42:        {
                     43:        if (line[0]=='T' && line[1]=='}' && line[2]== tab) break;
                     44:        if (match("T}", line)) break;
                     45:        fprintf(tabout, "%s\n", line);
                     46:        }
                     47: if (fn && *fn) fprintf(tabout, ".ft \\n(%d\n", S1);
                     48: if (sz && *sz) fprintf(tabout, ".br\n.ps\n.vs\n");
                     49: fprintf(tabout, ".br\n");
                     50: fprintf(tabout, ".di\n");
                     51: fprintf(tabout, ".nr %c| \\n(dn\n", texname);
                     52: fprintf(tabout, ".nr %c- \\n(dl\n", texname);
                     53: fprintf(tabout, "..\n");
                     54: fprintf(tabout, ".ec \\\n");
                     55: /* copy remainder of line */
                     56: if (line[2])
                     57:        tcopy (sp, line+3);
                     58: else
                     59:        *sp=0;
                     60: oname=texname;
                     61: texname = texstr[++texct];
                     62: return(oname);
                     63: }
                     64: untext()
                     65: {
                     66: rstofill();
                     67: fprintf(tabout, ".nf\n");
                     68: fprintf(tabout, ".ll \\n(%du\n", SL);
                     69: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.