data/qcsrc/menu-div0test/oo/constructors.h

   1 #ifndef INTERFACE
   2 #define INTERFACE
   3 #endif
   4
   5 #ifdef IMPLEMENTATION
   6 #undef IMPLEMENTATION
   7 #endif
   8
   9 #ifdef CLASS
  10 #undef CLASS
  11 #undef EXTENDS
  12 #undef METHOD
  13 #undef ATTRIB
  14 #undef ENDCLASS
  15 #endif
  16
  17 #define CLASS(cname)                 entity spawn##cname() { entity me;
  18 #define EXTENDS(base)                me = spawn##base ();
  19 #define METHOD(cname,name,prototype) me.name = name##cname;
  20 #define ATTRIB(cname,name,type,val)  me.name = val;
  21 #define ENDCLASS(cname)              me.instanceOf##cname = 1; me.classname = #cname; return me; }