void Init() { pos = -1; line = 1; col = 0; charPos = -1; oldEols = 0; NextCh(); if (ch == 0xEF) { // check optional byte order mark for UTF-8 NextCh(); int ch1 = ch; NextCh(); int ch2 = ch; if (ch1 != 0xBB || ch2 != 0xBF) { throw new FatalError(String.Format("illegal byte order mark: EF {0,2:X} {1,2:X}", ch1, ch2)); } buffer = new UTF8Buffer(buffer); col = 0; charPos = -1; NextCh(); } pt = tokens = new Token(); // first token is a dummy }
Token NextToken() { while (ch == ' ' || ch >= 9 && ch <= 10 || ch == 13 ) NextCh(); if (ch == '/' && Comment0() ||ch == '/' && Comment1()) return NextToken(); int apx = 0; int recKind = noSym; int recEnd = pos; t = new Token(); t.pos = pos; t.col = col; t.line = line; t.charPos = charPos; int state; if (start.ContainsKey(ch)) { state = start[ch]; } else { state = 0; } tlen = 0; AddCh(); switch (state) { case -1: { t.kind = eofSym; break; } // NextCh already done case 0: { if (recKind != noSym) { tlen = recEnd - t.pos; SetScannerBehindT(); } t.kind = recKind; break; } // NextCh already done case 1: if (ch == '.' || ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch == '_' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 1;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {goto case 0;} case 2: { tlen -= apx; SetScannerBehindT(); t.kind = 1; break;} case 3: if (ch >= '0' && ch <= '9') {AddCh(); goto case 5;} else if (ch == '+' || ch == '-') {AddCh(); goto case 4;} else {goto case 0;} case 4: if (ch >= '0' && ch <= '9') {AddCh(); goto case 5;} else {goto case 0;} case 5: recEnd = pos; recKind = 2; if (ch >= '0' && ch <= '9') {AddCh(); goto case 5;} else {t.kind = 2; break;} case 6: if (ch >= '0' && ch <= '9') {AddCh(); goto case 7;} else {goto case 0;} case 7: recEnd = pos; recKind = 2; if (ch >= '0' && ch <= '9') {AddCh(); goto case 7;} else if (ch == 'E' || ch == 'e') {AddCh(); goto case 3;} else {t.kind = 2; break;} case 8: if (ch >= '0' && ch <= '9') {AddCh(); goto case 9;} else {goto case 0;} case 9: if (ch >= '0' && ch <= '9') {AddCh(); goto case 10;} else {goto case 0;} case 10: if (ch == '-') {AddCh(); goto case 11;} else {goto case 0;} case 11: if (ch >= '0' && ch <= '9') {AddCh(); goto case 12;} else {goto case 0;} case 12: if (ch >= '0' && ch <= '9') {AddCh(); goto case 13;} else {goto case 0;} case 13: recEnd = pos; recKind = 3; if (ch == 'T') {AddCh(); goto case 14;} else {t.kind = 3; break;} case 14: if (ch >= '0' && ch <= '9') {AddCh(); goto case 15;} else {goto case 0;} case 15: if (ch >= '0' && ch <= '9') {AddCh(); goto case 16;} else {goto case 0;} case 16: if (ch == ':') {AddCh(); goto case 17;} else {goto case 0;} case 17: if (ch >= '0' && ch <= '9') {AddCh(); goto case 18;} else {goto case 0;} case 18: if (ch >= '0' && ch <= '9') {AddCh(); goto case 19;} else {goto case 0;} case 19: if (ch == ':') {AddCh(); goto case 20;} else {goto case 0;} case 20: if (ch >= '0' && ch <= '9') {AddCh(); goto case 21;} else {goto case 0;} case 21: if (ch >= '0' && ch <= '9') {AddCh(); goto case 22;} else {goto case 0;} case 22: recEnd = pos; recKind = 3; if (ch == '.') {AddCh(); goto case 23;} else {t.kind = 3; break;} case 23: recEnd = pos; recKind = 3; if (ch >= '0' && ch <= '9') {AddCh(); goto case 23;} else {t.kind = 3; break;} case 24: if (ch == '!') {AddCh(); goto case 25;} else if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 24;} else {goto case 0;} case 25: {t.kind = 4; break;} case 26: if (ch >= '0' && ch <= '9') {AddCh(); goto case 28;} else if (ch == '$') {AddCh(); goto case 27;} else {goto case 0;} case 27: if (ch >= '0' && ch <= '9') {AddCh(); goto case 28;} else {goto case 0;} case 28: recEnd = pos; recKind = 5; if (ch >= '0' && ch <= '9') {AddCh(); goto case 28;} else {t.kind = 5; break;} case 29: if (ch >= '0' && ch <= '9') {AddCh(); goto case 31;} else if (ch == '$') {AddCh(); goto case 30;} else {goto case 0;} case 30: if (ch >= '0' && ch <= '9') {AddCh(); goto case 31;} else {goto case 0;} case 31: recEnd = pos; recKind = 5; if (ch >= '0' && ch <= '9') {AddCh(); goto case 31;} else {t.kind = 5; break;} case 32: if (ch >= '0' && ch <= '9') {AddCh(); goto case 34;} else if (ch == '+' || ch == '-') {AddCh(); goto case 33;} else {goto case 0;} case 33: if (ch >= '0' && ch <= '9') {AddCh(); goto case 34;} else {goto case 0;} case 34: if (ch >= '0' && ch <= '9') {AddCh(); goto case 34;} else if (ch == ']') {AddCh(); goto case 35;} else {goto case 0;} case 35: {t.kind = 8; break;} case 36: if (ch >= '0' && ch <= '9') {AddCh(); goto case 38;} else if (ch == '+' || ch == '-') {AddCh(); goto case 37;} else {goto case 0;} case 37: if (ch >= '0' && ch <= '9') {AddCh(); goto case 38;} else {goto case 0;} case 38: if (ch >= '0' && ch <= '9') {AddCh(); goto case 38;} else if (ch == ']') {AddCh(); goto case 39;} else {goto case 0;} case 39: {t.kind = 11; break;} case 40: recEnd = pos; recKind = 13; if (ch >= '0' && ch <= '9') {AddCh(); goto case 40;} else {t.kind = 13; break;} case 41: if (ch >= '0' && ch <= '9') {AddCh(); goto case 43;} else if (ch == '+' || ch == '-') {AddCh(); goto case 42;} else {goto case 0;} case 42: if (ch >= '0' && ch <= '9') {AddCh(); goto case 43;} else {goto case 0;} case 43: if (ch >= '0' && ch <= '9') {AddCh(); goto case 43;} else if (ch == ']') {AddCh(); goto case 44;} else {goto case 0;} case 44: {t.kind = 14; break;} case 45: if (ch <= 9 || ch >= 11 && ch <= 12 || ch >= 14 && ch <= '!' || ch >= '#' && ch <= '[' || ch >= ']' && ch <= 65535) {AddCh(); goto case 45;} else if (ch == '"') {AddCh(); goto case 46;} else {goto case 0;} case 46: {t.kind = 15; break;} case 47: recEnd = pos; recKind = 16; if (ch <= '[' || ch >= ']' && ch <= 65535) {AddCh(); goto case 47;} else {t.kind = 16; break;} case 48: recEnd = pos; recKind = 2; if (ch >= '0' && ch <= '9') {AddCh(); goto case 53;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'D' || ch >= 'F' && ch <= 'Z' || ch >= 'a' && ch <= 'd' || ch >= 'f' && ch <= 'z') {AddCh(); goto case 24;} else if (ch == 'E' || ch == 'e') {AddCh(); goto case 54;} else if (ch == '.') {AddCh(); goto case 6;} else {t.kind = 2; break;} case 49: if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 55;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch == '$') {AddCh(); goto case 27;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {goto case 0;} case 50: if (ch >= 'J' && ch <= 'Z' || ch >= 'j' && ch <= 'z') {AddCh(); goto case 26;} else if (ch >= 'A' && ch <= 'I' || ch >= 'a' && ch <= 'i') {AddCh(); goto case 57;} else {goto case 0;} case 51: if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 55;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch == '$') {AddCh(); goto case 27;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 58;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {goto case 0;} case 52: if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 59;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch == '$') {AddCh(); goto case 27;} else if (ch >= 'A' && ch <= 'B' || ch >= 'D' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else if (ch == 'C') {AddCh(); goto case 60;} else if (ch == '[') {AddCh(); goto case 61;} else {goto case 0;} case 53: recEnd = pos; recKind = 2; if (ch >= '0' && ch <= '9') {AddCh(); goto case 62;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'D' || ch >= 'F' && ch <= 'Z' || ch >= 'a' && ch <= 'd' || ch >= 'f' && ch <= 'z') {AddCh(); goto case 24;} else if (ch == 'E' || ch == 'e') {AddCh(); goto case 54;} else if (ch == '.') {AddCh(); goto case 6;} else {t.kind = 2; break;} case 54: if (ch >= '0' && ch <= '9') {AddCh(); goto case 63;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 24;} else if (ch == '+' || ch == '-') {AddCh(); goto case 4;} else {goto case 0;} case 55: recEnd = pos; recKind = 5; if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 55;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {t.kind = 5; break;} case 56: if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {goto case 0;} case 57: if (ch >= '0' && ch <= '9') {AddCh(); goto case 28;} else if (ch == '$') {AddCh(); goto case 27;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 29;} else {goto case 0;} case 58: if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 64;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch == '$') {AddCh(); goto case 30;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {goto case 0;} case 59: recEnd = pos; recKind = 5; if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 59;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'B' || ch >= 'D' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else if (ch == 'C') {AddCh(); goto case 65;} else {t.kind = 5; break;} case 60: recEnd = pos; recKind = 6; if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 66;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else if (ch == '[') {AddCh(); goto case 32;} else {t.kind = 6; break;} case 61: if (ch >= '0' && ch <= '9') {AddCh(); goto case 67;} else if (ch == '+' || ch == '-') {AddCh(); goto case 68;} else {goto case 0;} case 62: recEnd = pos; recKind = 2; if (ch >= '0' && ch <= '9') {AddCh(); goto case 69;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'D' || ch >= 'F' && ch <= 'Z' || ch >= 'a' && ch <= 'd' || ch >= 'f' && ch <= 'z') {AddCh(); goto case 24;} else if (ch == 'E' || ch == 'e') {AddCh(); goto case 54;} else if (ch == '.') {AddCh(); goto case 6;} else {t.kind = 2; break;} case 63: recEnd = pos; recKind = 2; if (ch >= '0' && ch <= '9') {AddCh(); goto case 63;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 24;} else {t.kind = 2; break;} case 64: recEnd = pos; recKind = 5; if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 64;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {t.kind = 5; break;} case 65: recEnd = pos; recKind = 9; if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 70;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else if (ch == '[') {AddCh(); goto case 36;} else {t.kind = 9; break;} case 66: recEnd = pos; recKind = 7; if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 66;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {t.kind = 7; break;} case 67: if (ch >= '0' && ch <= '9') {AddCh(); goto case 67;} else if (ch == ']') {AddCh(); goto case 71;} else {goto case 0;} case 68: if (ch >= '0' && ch <= '9') {AddCh(); goto case 67;} else {goto case 0;} case 69: recEnd = pos; recKind = 2; if (ch >= '0' && ch <= '9') {AddCh(); goto case 72;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'D' || ch >= 'F' && ch <= 'Z' || ch >= 'a' && ch <= 'd' || ch >= 'f' && ch <= 'z') {AddCh(); goto case 24;} else if (ch == 'E' || ch == 'e') {AddCh(); goto case 54;} else if (ch == '.') {AddCh(); goto case 6;} else if (ch == '-') {AddCh(); goto case 8;} else {t.kind = 2; break;} case 70: recEnd = pos; recKind = 10; if (ch == '.' || ch == '_') {AddCh(); goto case 1;} else if (ch >= '0' && ch <= '9') {AddCh(); goto case 70;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 56;} else if (ch == '(') {apx++; AddCh(); goto case 2;} else {t.kind = 10; break;} case 71: if (ch == 'C') {AddCh(); goto case 73;} else {goto case 0;} case 72: recEnd = pos; recKind = 2; if (ch >= '0' && ch <= '9') {AddCh(); goto case 72;} else if (ch == '!') {AddCh(); goto case 25;} else if (ch >= 'A' && ch <= 'D' || ch >= 'F' && ch <= 'Z' || ch >= 'a' && ch <= 'd' || ch >= 'f' && ch <= 'z') {AddCh(); goto case 24;} else if (ch == 'E' || ch == 'e') {AddCh(); goto case 54;} else if (ch == '.') {AddCh(); goto case 6;} else {t.kind = 2; break;} case 73: recEnd = pos; recKind = 12; if (ch >= '0' && ch <= '9') {AddCh(); goto case 40;} else if (ch == '[') {AddCh(); goto case 41;} else {t.kind = 12; break;} case 74: {t.kind = 17; break;} case 75: {t.kind = 18; break;} case 76: {t.kind = 19; break;} case 77: {t.kind = 20; break;} case 78: {t.kind = 21; break;} case 79: {t.kind = 23; break;} case 80: {t.kind = 25; break;} case 81: {t.kind = 26; break;} case 82: {t.kind = 27; break;} case 83: {t.kind = 28; break;} case 84: {t.kind = 29; break;} case 85: {t.kind = 30; break;} case 86: {t.kind = 31; break;} case 87: {t.kind = 32; break;} case 88: {t.kind = 33; break;} case 89: recEnd = pos; recKind = 22; if (ch == '>') {AddCh(); goto case 78;} else if (ch == '=') {AddCh(); goto case 79;} else {t.kind = 22; break;} case 90: recEnd = pos; recKind = 24; if (ch == '=') {AddCh(); goto case 80;} else {t.kind = 24; break;} } t.val = new String(tval, 0, tlen); return t; }
// get the next token (possibly a token already seen during peeking) public Token Scan() { if (tokens.next == null) { return NextToken(); } else { pt = tokens = tokens.next; return tokens; } }
// make sure that peeking starts at the current scan position public void ResetPeek() { pt = tokens; }
// peek for the next token, ignore pragmas public Token Peek() { do { if (pt.next == null) { pt.next = NextToken(); } pt = pt.next; } while (pt.kind > maxT); // skip pragmas return pt; }
void Get() { for (;;) { t = la; la = scanner.Scan(); if (la.kind <= maxT) { ++errDist; break; } la = t; } }
public void Parse() { la = new Token(); la.val = ""; Get(); CellContents(); Expect(0); }