once.c

Variables

DEFSECTION        X
MAXPOS            X
NCH               X
NOUTPUT           X
NSTATES           X
NTRANS            X
TOKENSIZE         X
TREESIZE          X
TRUE              X
ZCH               X
advance           X
aptr              X
atable            X
bptr              X
buf               X
casecount         X
ccl               X
ccount            X
ccptr             X
charc             X
chset             X
cindex            X
cname             X
count             X
cpackflg          X
ctable            X
dchar             X
debug             X
def               X
divflg            X
dp                X
dptr              X
eof               X
extra             X
foll              X
fptr              X
funcflag          X
gotof             X
left              X
lgatflg           X
match             X
maxpos            X
name              X
nchar             X
nexts             X
nptr              X
nstates           X
ntrans            X
nullstr           X
nxtpos            X
optim             X
outsize           X
parent            X
pchar             X
pchlen            X
pcptr             X
peek              X
pflag             X
positions         X
pres              X
prev              X
psave             X
pushc             X
pushptr           X
ratfor            X
ratname           X
rcount            X
report            X
right             X
sargc             X
sargv             X
schar             X
scon              X
sect              X
sfall             X
slist             X
slptr             X
sname             X
sp                X
sptr              X
state             X
stnum             X
stoff             X
subs              X
symbol            X
tmpstat           X
tptr              X
treesize          X
verify            X
xstate            X
yyline            X
yytop             X

   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();