qcsrc/menu/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 ATTRIBARRAY
  15 #undef ENDCLASS
  16 #undef SUPER
  17 #endif
  18
  19 #define CLASS(cname)                       entity spawn##cname() { entity me;
  20 #define EXTENDS(base)                      me = spawn##base (); entity basevtbl; basevtbl = base##_vtbl;
  21 #define METHOD(cname,name,prototype)       me.name = cname##_##name;
  22 #define ATTRIB(cname,name,type,val)        me.name = val;
  23 #define ATTRIBARRAY(cname,name,type,cnt)   me.name = me.name;
  24 #define ENDCLASS(cname)                    me.instanceOf##cname = 1; me.classname = #cname; if(!cname##_vtbl) cname##_vtbl = spawnVtbl(me, basevtbl); return me; }
  25 #define SUPER(cname)