mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-07-25 13:24:46 +00:00
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
This commit is contained in:
21
test/TableGen/lisp.td
Normal file
21
test/TableGen/lisp.td
Normal file
@@ -0,0 +1,21 @@
|
||||
// RUN: tblgen %s | grep {}
|
||||
|
||||
class List<list<string> n> {
|
||||
list<string> names = n;
|
||||
}
|
||||
|
||||
class CAR<string e> {
|
||||
string element = e;
|
||||
}
|
||||
|
||||
class CDR<list<string> r, int n> {
|
||||
list<string> rest = r;
|
||||
int null = n;
|
||||
}
|
||||
|
||||
class NameList<list<string> Names> :
|
||||
List<Names>, CAR<!car(Names)>, CDR<!cdr(Names), !null(!cdr(Names))>;
|
||||
|
||||
def Three : NameList<["Tom", "Dick", "Harry"]>;
|
||||
|
||||
def One : NameList<["Jeffrey Sinclair"]>;
|
Reference in New Issue
Block a user