test/TableGen/lisp.td

   1 // RUN: tblgen %s | grep {}
   2 // XFAIL: vg_leak
   3
   4 class List<list<string> n> {
   5   list<string> names = n;
   6 }
   7
   8 class CAR<string e> {
   9   string element = e;
  10 }
  11
  12 class CDR<list<string> r, int n> {
  13   list<string> rest = r;
  14   int null = n;
  15 }
  16
  17 class NameList<list<string> Names> :
  18   List<Names>, CAR<!car(Names)>, CDR<!cdr(Names), !null(!cdr(Names))>;
  19
  20 def Three : NameList<["Tom", "Dick", "Harry"]>;
  21
  22 def One : NameList<["Jeffrey Sinclair"]>;