Return to xx.c CVS log

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

Annotation of researchv9/cmd/tbl/xx.c, revision 1.1

1.1     ! root        1:  /* t4.c: read table specification */
        !             2: # include "t..c"
        !             3: int oncol;
        !             4: getspec()
        !             5: {
        !             6: int icol, i;
        !             7: qcol = findcol()+1;/* must allow one extra for line at right */
        !             8: qcol++; /* just to be safe */
        !             9: garray(qcol);
        !            10: sep[-1]= -1;
        !            11: for(icol=0; icol<qcol; icol++)
        !            12:        {
        !            13:        sep[icol]= -1;
        !            14:        evenup[icol]=0;
        !            15:        cll[icol][0]=0;
        !            16:        for(i=0; i<MAXHEAD; i++)
        !            17:                {
        !            18:                csize[icol][i][0]=0;
        !            19:                vsize[icol][i][0]=0;
        !            20:                font[icol][i][0] = lefline[icol][i] = 0;
        !            21:                ctop[icol][i]=0;
        !            22:                style[icol][i]= 'l';
        !            23:                }
        !            24:        }
        !            25: nclin=ncol=0;
        !            26: oncol =0;
        !            27: left1flg=rightl=0;
        !            28: readspec();
        !            29: fprintf(tabout, ".rm");
        !            30: for(i=0; i<ncol; i++)
        !            31:        fprintf(tabout, " %2s", reg(i, CRIGHT));
        !            32: fprintf(tabout, "\n");
        !            33: }

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