Return to tc.c CVS log

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

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

1.1     ! root        1:  /* tc.c: find character not in table to delimit fields */
        !             2: # include "t..c"
        !             3: choochar()
        !             4: {
        !             5: /* choose funny characters to delimit fields */
        !             6: int had[128], ilin,icol, k;
        !             7: char *s;
        !             8: for(icol=0; icol<128; icol++)
        !             9:        had[icol]=0;
        !            10: F1 = F2 = 0;
        !            11: for(ilin=0;ilin<nlin;ilin++)
        !            12:        {
        !            13:        if (instead[ilin]) continue;
        !            14:        if (fullbot[ilin]) continue;
        !            15:        for(icol=0; icol<ncol; icol++)
        !            16:                {
        !            17:                k = ctype(ilin, icol);
        !            18:                if (k==0 || k == '-' || k == '=')
        !            19:                        continue;
        !            20:                s = table[ilin][icol].col;
        !            21:                if (point(s))
        !            22:                while (*s)
        !            23:                        had[*s++]=1;
        !            24:                s=table[ilin][icol].rcol;
        !            25:                if (point(s))
        !            26:                while (*s)
        !            27:                        had[*s++]=1;
        !            28:                }
        !            29:        }
        !            30: /* choose first funny character */
        !            31: for(
        !            32:        s="\002\003\005\006\007!%&#/?,:;<=>@`^~_{}+-*ABCDEFGHIJKMNOPQRSTUVWXYZabcdefgjkoqrstwxyz";
        !            33:                *s; s++)
        !            34:        {
        !            35:        if (had[*s]==0)
        !            36:                {
        !            37:                F1= *s;
        !            38:                had[F1]=1;
        !            39:                break;
        !            40:                }
        !            41:        }
        !            42: /* choose second funny character */
        !            43: for(
        !            44:        s="\002\003\005\006\007:_~^`@;,<=>#%&!/?{}+-*ABCDEFGHIJKMNOPQRSTUVWXZabcdefgjkoqrstuwxyz";
        !            45:                *s; s++)
        !            46:        {
        !            47:        if (had[*s]==0)
        !            48:                {
        !            49:                F2= *s;
        !            50:                break;
        !            51:                }
        !            52:        }
        !            53: if (F1==0 || F2==0)
        !            54:        error("couldn't find characters to use for delimiters");
        !            55: return;
        !            56: }
        !            57: point(s)
        !            58: {
        !            59: return(s>= 128 || s<0);
        !            60: }

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