Return to t3.c CVS log

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

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

1.1       root        1:  /* t3.c: interpret commands affecting whole table */
                      2: # include "t..c"
                      3: struct optstr {char *optnam; int *optadd;} options [] = {
                      4:        "expand", &expflg,
                      5:        "EXPAND", &expflg,
                      6:        "center", &ctrflg,
                      7:        "CENTER", &ctrflg,
                      8:        "box", &boxflg,
                      9:        "BOX", &boxflg,
                     10:        "allbox", &allflg,
                     11:        "ALLBOX", &allflg,
                     12:        "doublebox", &dboxflg,
                     13:        "DOUBLEBOX", &dboxflg,
                     14:        "frame", &boxflg,
                     15:        "FRAME", &boxflg,
                     16:        "doubleframe", &dboxflg,
                     17:        "DOUBLEFRAME", &dboxflg,
                     18:        "tab", &tab,
                     19:        "TAB", &tab,
                     20:        "linesize", &linsize,
                     21:        "LINESIZE", &linsize,
                     22:        "delim", &delim1,
                     23:        "DELIM", &delim1,
                     24:        0,0};
                     25: getcomm()
                     26: {
                     27: char line[200], *cp, nb[25], *t;
                     28: struct optstr *lp;
                     29: int c, ci, found;
                     30: for(lp= options; lp->optnam; lp++)
                     31:        *(lp->optadd) = 0;
                     32: texname = texstr[texct=0];
                     33: tab = '\t';
                     34: printf(".nr %d \\n(.s\n", LSIZE);
                     35: gets1(line);
                     36: /* see if this is a command line */
                     37: if (strchr(line,';') == NULL)
                     38:        {
                     39:        backrest(line);
                     40:        return;
                     41:        }
                     42: for(cp=line; (c = *cp) != ';'; cp++)
                     43:        {
                     44:        if (!letter(c)) continue;
                     45:        found=0;
                     46:        for(lp= options; lp->optadd; lp++)
                     47:                {
                     48:                if (prefix(lp->optnam, cp))
                     49:                        {
                     50:                        *(lp->optadd) = 1;
                     51:                        cp += strlen(lp->optnam);
                     52:                        if (letter(*cp))
                     53:                                error("Misspelled global option");
                     54:                        while (*cp==' ')cp++;
                     55:                        t=nb;
                     56:                        if ( *cp == '(')
                     57:                                while ((ci= *++cp) != ')')
                     58:                                        *t++ = ci;
                     59:                        else cp--;
                     60:                        *t++ = 0; *t=0;
                     61:                        if (lp->optadd == &tab)
                     62:                                {
                     63:                                if (nb[0])
                     64:                                        *(lp->optadd) = nb[0];
                     65:                                }
                     66:                        if (lp->optadd == &linsize)
                     67:                                printf(".nr %d %s\n", LSIZE, nb);
                     68:                        if (lp->optadd == &delim1)
                     69:                                {
                     70:                                delim1 = nb[0];
                     71:                                delim2 = nb[1];
                     72:                                }
                     73:                        found=1;
                     74:                        break;
                     75:                        }
                     76:                }
                     77:        if (!found)
                     78:                error("Illegal option");
                     79:        }
                     80: cp++;
                     81: backrest(cp);
                     82: return;
                     83: }
                     84: backrest(cp)
                     85:        char *cp;
                     86: {
                     87: char *s;
                     88: for(s=cp; *s; s++);
                     89: un1getc('\n');
                     90: while (s>cp)
                     91:        un1getc(*--s);
                     92: return;
                     93: }

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