diff options
| author | David Greene <greened@obbligato.org> | 2009-05-14 22:38:31 +0000 |
|---|---|---|
| committer | David Greene <greened@obbligato.org> | 2009-05-14 22:38:31 +0000 |
| commit | 5f9f9ba00b85eb19da2618f393e43a6a11b5d892 (patch) | |
| tree | bd237c2d0cb6a5ec6c114294dfdb5bd049d1501a /utils/TableGen/TGLexer.cpp | |
| parent | beb31a51f67f651c5fa3c5094a78266d04a697a5 (diff) | |
Graduate LLVM to the big leagues by embedding a LISP processor into TableGen.
Ok, not really, but do support some common LISP functions:
* car
* cdr
* null
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@71805 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'utils/TableGen/TGLexer.cpp')
| -rw-r--r-- | utils/TableGen/TGLexer.cpp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/utils/TableGen/TGLexer.cpp b/utils/TableGen/TGLexer.cpp index 6215a7267f..faf1e75a68 100644 --- a/utils/TableGen/TGLexer.cpp +++ b/utils/TableGen/TGLexer.cpp @@ -450,6 +450,9 @@ tgtok::TokKind TGLexer::LexExclaim() { if (Len == 5 && !memcmp(Start, "subst", 5)) return tgtok::XSubst; if (Len == 7 && !memcmp(Start, "foreach", 7)) return tgtok::XForEach; if (Len == 4 && !memcmp(Start, "cast", 4)) return tgtok::XCast; + if (Len == 3 && !memcmp(Start, "car", 3)) return tgtok::XCar; + if (Len == 3 && !memcmp(Start, "cdr", 3)) return tgtok::XCdr; + if (Len == 4 && !memcmp(Start, "null", 4)) return tgtok::XNull; return ReturnError(Start-1, "Unknown operator"); } |