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

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.