Exemplo n.º 1
0
	// make sure that peeking starts at the current scan position
	public void ResetPeek () { pt = tokens; }
Exemplo n.º 2
0
	// 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;
	}
Exemplo n.º 3
0
	// 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;
		}
	}
Exemplo n.º 4
0
	Token NextToken() {
		while (ch == ' ' ||
			ch >= 9 && ch <= 10 || ch == 13
		) NextCh();
		if (ch == '/' && Comment0() ||ch == '/' && Comment1()) return NextToken();
		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 = (int) 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:
				recEnd = pos; recKind = 1;
				if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 1;}
				else {t.kind = 1; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
			case 2:
				recEnd = pos; recKind = 2;
				if (ch >= '0' && ch <= '9') {AddCh(); goto case 2;}
				else {t.kind = 2; break;}
			case 3:
				if (ch <= 9 || ch >= 11 && ch <= 12 || ch >= 14 && ch <= '!' || ch >= '#' && ch <= '[' || ch >= ']' && ch <= 65535) {AddCh(); goto case 3;}
				else if (ch == '"') {AddCh(); goto case 4;}
				else if (ch == 92) {AddCh(); goto case 5;}
				else {goto case 0;}
			case 4:
				{t.kind = 3; break;}
			case 5:
				if (ch <= 9 || ch >= 11 && ch <= 12 || ch >= 14 && ch <= '!' || ch >= '#' && ch <= '[' || ch >= ']' && ch <= 65535) {AddCh(); goto case 3;}
				else if (ch == '"') {AddCh(); goto case 6;}
				else if (ch == 92) {AddCh(); goto case 5;}
				else {goto case 0;}
			case 6:
				recEnd = pos; recKind = 3;
				if (ch <= 9 || ch >= 11 && ch <= 12 || ch >= 14 && ch <= '!' || ch >= '#' && ch <= '[' || ch >= ']' && ch <= 65535) {AddCh(); goto case 3;}
				else if (ch == '"') {AddCh(); goto case 4;}
				else if (ch == 92) {AddCh(); goto case 5;}
				else {t.kind = 3; break;}
			case 7:
				{t.kind = 4; break;}
			case 8:
				{t.kind = 5; break;}
			case 9:
				{t.kind = 6; break;}
			case 10:
				{t.kind = 7; break;}
			case 11:
				{t.kind = 8; break;}
			case 12:
				{t.kind = 12; break;}
			case 13:
				{t.kind = 13; break;}
			case 14:
				{t.kind = 15; break;}
			case 15:
				{t.kind = 16; break;}
			case 16:
				{t.kind = 17; break;}
			case 17:
				{t.kind = 20; break;}
			case 18:
				{t.kind = 21; break;}
			case 19:
				{t.kind = 22; break;}
			case 20:
				{t.kind = 23; break;}
			case 21:
				{t.kind = 34; break;}
			case 22:
				recEnd = pos; recKind = 9;
				if (ch == '=') {AddCh(); goto case 19;}
				else {t.kind = 9; break;}
			case 23:
				recEnd = pos; recKind = 18;
				if (ch == '=') {AddCh(); goto case 18;}
				else {t.kind = 18; break;}
			case 24:
				recEnd = pos; recKind = 19;
				if (ch == '=') {AddCh(); goto case 17;}
				else {t.kind = 19; break;}

		}
		t.val = new String(tval, 0, tlen);
		return t;
	}
Exemplo n.º 5
0
	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
	}
Exemplo n.º 6
0
        Token NextToken()
        {
            while (ch == ' ' ||
            ch >= 9 && ch <= 10 || ch == 13
            ) NextCh();
            if (ch == '/' && Comment0() ||ch == '/' && Comment1()) return NextToken();
            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 = (int) 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:
                recEnd = pos; recKind = 1;
                if (ch >= '0' && ch <= '9') {AddCh(); goto case 1;}
                else {t.kind = 1; break;}
            case 2:
                recEnd = pos; recKind = 2;
                if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 2;}
                else if (ch == '.') {AddCh(); goto case 4;}
                else if (ch == '[') {AddCh(); goto case 6;}
                else {t.kind = 2; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
            case 3:
                recEnd = pos; recKind = 2;
                if (ch == '.') {AddCh(); goto case 4;}
                else if (ch == '[') {AddCh(); goto case 6;}
                else {t.kind = 2; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
            case 4:
                if (ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 5;}
                else {goto case 0;}
            case 5:
                recEnd = pos; recKind = 2;
                if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 5;}
                else if (ch == '.') {AddCh(); goto case 4;}
                else if (ch == '[') {AddCh(); goto case 6;}
                else {t.kind = 2; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
            case 6:
                if (ch >= '0' && ch <= '9') {AddCh(); goto case 7;}
                else {goto case 0;}
            case 7:
                if (ch >= '0' && ch <= '9') {AddCh(); goto case 7;}
                else if (ch == ']') {AddCh(); goto case 3;}
                else {goto case 0;}
            case 8:
                {t.kind = 3; break;}
            case 9:
                {t.kind = 4; break;}
            case 10:
                {t.kind = 7; break;}
            case 11:
                {t.kind = 8; break;}
            case 12:
                {t.kind = 9; break;}
            case 13:
                {t.kind = 11; break;}
            case 14:
                {t.kind = 12; break;}
            case 15:
                {t.kind = 13; break;}
            case 16:
                {t.kind = 14; break;}
            case 17:
                {t.kind = 16; break;}
            case 18:
                if (ch == '=') {AddCh(); goto case 19;}
                else {goto case 0;}
            case 19:
                {t.kind = 19; break;}
            case 20:
                {t.kind = 20; break;}
            case 21:
                {t.kind = 21; break;}
            case 22:
                {t.kind = 23; break;}
            case 23:
                {t.kind = 24; break;}
            case 24:
                {t.kind = 25; break;}
            case 25:
                {t.kind = 26; break;}
            case 26:
                {t.kind = 27; break;}
            case 27:
                {t.kind = 28; break;}
            case 28:
                {t.kind = 34; break;}
            case 29:
                recEnd = pos; recKind = 15;
                if (ch == ';') {AddCh(); goto case 25;}
                else {t.kind = 15; break;}
            case 30:
                recEnd = pos; recKind = 17;
                if (ch == '=') {AddCh(); goto case 20;}
                else {t.kind = 17; break;}
            case 31:
                recEnd = pos; recKind = 18;
                if (ch == '=') {AddCh(); goto case 21;}
                else {t.kind = 18; break;}
            case 32:
                recEnd = pos; recKind = 29;
                if (ch == '=') {AddCh(); goto case 26;}
                else {t.kind = 29; break;}
            case 33:
                recEnd = pos; recKind = 2;
                if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'q' || ch >= 's' && ch <= 'z') {AddCh(); goto case 2;}
                else if (ch == '.') {AddCh(); goto case 4;}
                else if (ch == '[') {AddCh(); goto case 6;}
                else if (ch == 'r') {AddCh(); goto case 34;}
                else {t.kind = 2; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
            case 34:
                recEnd = pos; recKind = 2;
                if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'd' || ch >= 'f' && ch <= 'z') {AddCh(); goto case 2;}
                else if (ch == '.') {AddCh(); goto case 4;}
                else if (ch == '[') {AddCh(); goto case 6;}
                else if (ch == 'e') {AddCh(); goto case 35;}
                else {t.kind = 2; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
            case 35:
                recEnd = pos; recKind = 2;
                if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'b' && ch <= 'z') {AddCh(); goto case 2;}
                else if (ch == '.') {AddCh(); goto case 4;}
                else if (ch == '[') {AddCh(); goto case 6;}
                else if (ch == 'a') {AddCh(); goto case 36;}
                else {t.kind = 2; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
            case 36:
                recEnd = pos; recKind = 2;
                if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'j' || ch >= 'l' && ch <= 'z') {AddCh(); goto case 2;}
                else if (ch == '.') {AddCh(); goto case 4;}
                else if (ch == '[') {AddCh(); goto case 6;}
                else if (ch == 'k') {AddCh(); goto case 37;}
                else {t.kind = 2; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}
            case 37:
                recEnd = pos; recKind = 2;
                if (ch >= '0' && ch <= '9' || ch >= 'A' && ch <= 'Z' || ch >= 'a' && ch <= 'z') {AddCh(); goto case 2;}
                else if (ch == '.') {AddCh(); goto case 4;}
                else if (ch == '[') {AddCh(); goto case 6;}
                else if (ch == ';') {AddCh(); goto case 28;}
                else {t.kind = 2; t.val = new String(tval, 0, tlen); CheckLiteral(); return t;}

            }
            t.val = new String(tval, 0, tlen);
            return t;
        }