xs/MOP.xs

   1 #include "mop.h"
   2
   3 static bool
   4 find_method (const char *key, STRLEN keylen, SV *val, void *ud)
   5 {
   6     bool *found_method = (bool *)ud;
   7     PERL_UNUSED_ARG(key);
   8     PERL_UNUSED_ARG(keylen);
   9     PERL_UNUSED_ARG(val);
  10     *found_method = TRUE;
  11     return FALSE;
  12 }
  13
  14 EXTERN_C XS(boot_Class__MOP__Mixin__HasMethods);
  15 EXTERN_C XS(boot_Class__MOP__Package);
  16 EXTERN_C XS(boot_Class__MOP__Attribute);
  17 EXTERN_C XS(boot_Class__MOP__Method);
  18
  19 MODULE = Class::MOP   PACKAGE = Class::MOP
  20
  21 PROTOTYPES: DISABLE
  22
  23 BOOT:
  24     mop_prehash_keys();
  25
  26     MOP_CALL_BOOT (boot_Class__MOP__Mixin__HasMethods);
  27     MOP_CALL_BOOT (boot_Class__MOP__Package);
  28     MOP_CALL_BOOT (boot_Class__MOP__Attribute);
  29     MOP_CALL_BOOT (boot_Class__MOP__Method);
  30
  31 # use prototype here to be compatible with get_code_info from Sub::Identify
  32 void
  33 get_code_info(coderef)
  34     SV *coderef
  35     PROTOTYPE: $
  36     PREINIT:
  37         char *pkg  = NULL;
  38         char *name = NULL;
  39     PPCODE:
  40         SvGETMAGIC(coderef);
  41         if (mop_get_code_info(coderef, &pkg, &name)) {
  42             EXTEND(SP, 2);
  43             mPUSHs(newSVpv(pkg, 0));
  44             mPUSHs(newSVpv(name, 0));
  45         }
  46
  47 void
  48 is_class_loaded(klass)
  49     SV *klass
  50     PREINIT:
  51         HV *stash;
  52         bool found_method = FALSE;
  53     PPCODE:
  54         SvGETMAGIC(klass);
  55         if (!(SvPOKp(klass) && SvCUR(klass))) { /* XXX: SvPOK does not work with magical scalars */
  56             XSRETURN_NO;
  57         }
  58
  59         stash = gv_stashsv(klass, 0);
  60         if (!stash) {
  61             XSRETURN_NO;
  62         }
  63
  64         if (hv_exists_ent (stash, KEY_FOR(VERSION), HASH_FOR(VERSION))) {
  65             HE *version = hv_fetch_ent(stash, KEY_FOR(VERSION), 0, HASH_FOR(VERSION));
  66             SV *version_sv;
  67             if (version && HeVAL(version) && (version_sv = GvSV(HeVAL(version)))) {
  68                 if (SvROK(version_sv)) {
  69                     SV *version_sv_ref = SvRV(version_sv);
  70
  71                     if (SvOK(version_sv_ref)) {
  72                         XSRETURN_YES;
  73                     }
  74                 }
  75                 else if (SvOK(version_sv)) {
  76                     XSRETURN_YES;
  77                 }
  78             }
  79         }
  80
  81         if (hv_exists_ent (stash, KEY_FOR(ISA), HASH_FOR(ISA))) {
  82             HE *isa = hv_fetch_ent(stash, KEY_FOR(ISA), 0, HASH_FOR(ISA));
  83             if (isa && HeVAL(isa) && GvAV(HeVAL(isa)) && av_len(GvAV(HeVAL(isa))) != -1) {
  84                 XSRETURN_YES;
  85             }
  86         }
  87
  88         mop_get_package_symbols(stash, TYPE_FILTER_CODE, find_method, &found_method);
  89         if (found_method) {
  90             XSRETURN_YES;
  91         }
  92
  93         XSRETURN_NO;