Return to once.c CVS log

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

Annotation of researchv9/cmd/lex/once.c, revision 1.1

1.1     ! root        1:        /* because of external definitions, this code should occur only once */
        !             2: # ifdef ASCII
        !             3: int    ctable[2*NCH] = {
        !             4:   0,  1,  2,  3,  4,  5,  6,  7,  8,  9,
        !             5:  10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
        !             6:  20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
        !             7:  30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
        !             8:  40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
        !             9:  50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
        !            10:  60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
        !            11:  70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
        !            12:  80, 81, 82, 83, 84, 85, 86, 87, 88, 89,
        !            13:  90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
        !            14: 100,101,102,103,104,105,106,107,108,109,
        !            15: 110,111,112,113,114,115,116,117,118,119,
        !            16: 120,121,122,123,124,125,126,127};
        !            17: # endif
        !            18: # ifdef EBCDIC
        !            19: int ctable[2*NCH] {
        !            20:   0,  1,  2,  3,  4,  5,  6,  7,  8,  9,
        !            21:  10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
        !            22:  20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
        !            23:  30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
        !            24:  40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
        !            25:  50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
        !            26:  60, 61, 62, 63, 64, 65, 66, 67, 68, 69,
        !            27:  70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
        !            28:  80, 81, 82, 83, 84, 85, 86, 87, 88, 89,
        !            29:  90, 91, 92, 93, 94, 95, 96, 97, 98, 99,
        !            30: 100,101,102,103,104,105,106,107,108,109,
        !            31: 110,111,112,113,114,115,116,117,118,119,
        !            32: 120,121,122,123,124,125,126,127,128,129,
        !            33: 130,131,132,133,134,135,136,137,138,139,
        !            34: 140,141,142,143,144,145,146,147,148,149,
        !            35: 150,151,152,153,154,155,156,157,158,159,
        !            36: 160,161,162,163,164,165,166,167,168,169,
        !            37: 170,171,172,173,174,175,176,177,178,179,
        !            38: 180,181,182,183,184,185,186,187,188,189,
        !            39: 190,191,192,193,194,195,196,197,198,199,
        !            40: 200,201,202,203,204,205,206,207,208,209,
        !            41: 210,211,212,213,214,215,216,217,218,219,
        !            42: 220,221,222,223,224,225,226,227,228,229,
        !            43: 230,231,232,233,234,235,236,237,238,239,
        !            44: 240,241,242,243,244,245,246,247,248,249,
        !            45: 250,251,252,253,254,255};
        !            46: # endif
        !            47: int    ZCH = NCH;
        !            48: FILE   *fout = NULL, *errorf = {stdout};
        !            49: int    sect = DEFSECTION;
        !            50: int    prev = '\n';    /* previous input character */
        !            51: int    pres = '\n';    /* present input character */
        !            52: int    peek = '\n';    /* next input character */
        !            53: char   *pushptr = pushc;
        !            54: char   *slptr = slist;
        !            55: 
        !            56: # if (unix || ibm)
        !            57: char   *cname = "/usr/lib/lex/ncform";
        !            58: char   *ratname = "/usr/lib/lex/nrform";
        !            59: # endif
        !            60: 
        !            61: # ifdef gcos
        !            62: char *cname "pounce/lexcform";
        !            63: char *ratname "pounce/lexrform";
        !            64: # endif
        !            65: int ccount = 1;
        !            66: int casecount = 1;
        !            67: int aptr = 1;
        !            68: int nstates = NSTATES, maxpos = MAXPOS;
        !            69: int treesize = TREESIZE, ntrans = NTRANS;
        !            70: int yytop;
        !            71: int outsize = NOUTPUT;
        !            72: int sptr = 1;
        !            73: int optim = TRUE;
        !            74: int report = 2;
        !            75: int debug;             /* 1 = on */
        !            76: int charc;
        !            77: int sargc;
        !            78: char **sargv;
        !            79: char buf[520];
        !            80: int ratfor;            /* 1 = ratfor, 0 = C */
        !            81: int yyline;            /* line number of file */
        !            82: int eof;
        !            83: int lgatflg;
        !            84: int divflg;
        !            85: int funcflag;
        !            86: int pflag;
        !            87: int chset;     /* 1 = char set modified */
        !            88: FILE *fin, *fother;
        !            89: int fptr;
        !            90: int *name;
        !            91: int *left;
        !            92: int *right;
        !            93: int *parent;
        !            94: char *nullstr;
        !            95: int tptr;
        !            96: char pushc[TOKENSIZE];
        !            97: char slist[STARTSIZE];
        !            98: char **def, **subs, *dchar;
        !            99: char **sname, *schar;
        !           100: char *ccl;
        !           101: char *ccptr;
        !           102: char *dp, *sp;
        !           103: int dptr;
        !           104: char *bptr;            /* store input position */
        !           105: char *tmpstat;
        !           106: int count;
        !           107: int **foll;
        !           108: int *nxtpos;
        !           109: int *positions;
        !           110: int *gotof;
        !           111: int *nexts;
        !           112: char *nchar;
        !           113: int **state;
        !           114: int *sfall;            /* fallback state num */
        !           115: char *cpackflg;                /* true if state has been character packed */
        !           116: int *atable;
        !           117: int nptr;
        !           118: char symbol[NCH];
        !           119: char cindex[NCH];
        !           120: int xstate;
        !           121: int stnum;
        !           122: char match[NCH];
        !           123: char extra[NACTIONS];
        !           124: char *pchar, *pcptr;
        !           125: int pchlen = TOKENSIZE;
        !           126:  long rcount;
        !           127: int *verify, *advance, *stoff;
        !           128: int scon;
        !           129: char *psave;
        !           130: int buserr(), segviol();

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