static void LexVector (void) { int i; pr_file_p++; pr_token_type = tt_immediate; pr_immediate_type = &type_vector; for (i = 0; i < 3; i++) { LexWhitespace(); pr_immediate.vector[i] = LexNumber(); } LexWhitespace(); if (*pr_file_p != '\'') { PR_ParseError("bad vector"); } pr_file_p++; }
void LX_Fetch (void) { int c; pr_tokenclass = TK_NONE; pr_token[0] = 0; if (!pr_file_p) { pr_token_type = tt_eof; return; } LexWhitespace(); c = *pr_file_p; switch (ASCIIToChrCode[c]) { case CHR_LETTER: LexName(); return; case CHR_NUMBER: pr_token_type = tt_immediate; pr_immediate_type = &type_float; pr_immediate._float = LexNumber(); return; case CHR_DQUOTE: LexString(); return; case CHR_SQUOTE: LexVector(); return; case CHR_DOLLARSIGN: LexGrab(); return; case CHR_EOF: pr_token_type = tt_eof; return; case CHR_SPECIAL: default: LexPunctuation(); return; } }
void MetaLexer::Lex(Token& Tok) { Tok.startToken(curPos); char C = *curPos++; switch (C) { case '"': case '\'': return LexQuotedStringAndAdvance(curPos, Tok); case '[': case ']': case '(': case ')': case '{': case '}': case '\\': case ',': case '.': case '!': case '?': case '>': case '&': case '#': case '@': case '*': case ';': // INTENTIONAL FALL THROUGHs return LexPunctuator(curPos - 1, Tok); case '/': if (*curPos == '/') { ++curPos; Tok.setKind(tok::comment); Tok.setLength(2); return; } return LexPunctuator(curPos - 1, Tok); case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': return LexConstant(C, Tok); case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': case 'Y': case 'Z': case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': case 'v': case 'w': case 'x': case 'y': case 'z': case '_': return LexIdentifier(C, Tok); case ' ': case '\t': return LexWhitespace(C, Tok); case '\0': return LexEndOfFile(C, Tok); } }