mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-11-01 08:23:21 +01:00
70881bc6ae
Ok, not really, but do support some common LISP functions: * car * cdr * null llvm-svn: 71805
22 lines
413 B
TableGen
22 lines
413 B
TableGen
// 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"]>;
|