ghc/utils/ugen/tree.ugn

   1 %{
   2 extern char *malloc ();
   3 #include "id.h"
   4 %}
   5 type tree;
   6
   7         typdef : <
   8                 gtid            : id;
   9                 gtdeflist       : tree;
  10         >;
  11         deflist : <
  12                 gdeflist        : tree;
  13                 gdef            : tree;
  14         >;
  15         def : <
  16                 gdid            : id;
  17                 gditemlist      : tree;
  18         >;
  19         itemlist : <
  20                 gitemlist       : tree;
  21                 gitem           : tree;
  22         >;
  23         emitemlist: < >;
  24         item : <
  25                 gitemfunid      : id;
  26                 gitemtypid      : id;
  27         >;
  28 end;