shotgun/lib/metaclass.c

   1 #include "shotgun/lib/shotgun.h"
   2 #include "shotgun/lib/module.h"
   3
   4 OBJECT metaclass_s_attach(STATE, OBJECT obj) {
   5   OBJECT meta;
   6   meta = metaclass_allocate(state);
   7   meta->IsMeta = TRUE;
   8   metaclass_set_attached_instance(meta, obj);
   9   if(RTEST(state->global->hash) || RTEST(state->global->methtbl)) {
  10     module_setup_fields(state, meta);
  11   }
  12   SET_CLASS(obj, meta);
  13   return meta;
  14 }
  15
  16 int metaclass_s_metaclass_p(STATE, OBJECT obj) {
  17   return obj->IsMeta;
  18 }
  19