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     ! 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.