8 #define NEED_newRV_noinc
9 #define NEED_sv_2pv_flags
10 #define NEED_sv_2pv_nolen
13 /* In theory, ExtUtils::ParseXS provide backcompat for this. However, the only
14 * available version doing that right now is 3.03_02, which is a dev release. We
15 * don't want to depend on dev releases, so we copy the code here. It should be
16 * removed once there's a stable ExtUtils::ParseXS version newer than 3.03_02. */
18 # define XS_EXTERNAL XS
21 #define MOP_CALL_BOOT(name) mop_call_xs(aTHX_ name, cv, mark);
24 #define XSPROTO(name) XS_EXTERNAL(name)
28 #define CvISXSUB(cv) (CvXSUB(cv) ? TRUE : FALSE)
31 void mop_call_xs (pTHX_ XSPROTO(subaddr), CV *cv, SV **mark);
34 KEY__expected_method_class,
39 KEY_associated_metaclass,
40 KEY_associated_methods,
41 KEY_attribute_metaclass,
46 KEY_constructor_class,
48 KEY_definition_context,
54 KEY_instance_metaclass,
63 KEY_wrapped_method_metaclass,
65 KEY_package_cache_flag,
69 } mop_prehashed_key_t;
71 #define KEY_FOR(name) mop_prehashed_key_for(KEY_ ##name)
72 #define HASH_FOR(name) mop_prehashed_hash_for(KEY_ ##name)
74 void mop_prehash_keys (void);
75 SV *mop_prehashed_key_for (mop_prehashed_key_t key);
76 U32 mop_prehashed_hash_for (mop_prehashed_key_t key);
78 #define INSTALL_SIMPLE_READER(klass, name) INSTALL_SIMPLE_READER_WITH_KEY(klass, name, name)
79 #define INSTALL_SIMPLE_READER_WITH_KEY(klass, name, key) \
81 CV *cv = newXS("Class::MOP::" #klass "::" #name, mop_xs_simple_reader, __FILE__); \
82 CvXSUBANY(cv).any_i32 = KEY_ ##key; \
85 XS_EXTERNAL(mop_xs_simple_reader);
87 extern SV *mop_method_metaclass;
88 extern SV *mop_associated_metaclass;
91 UV mop_check_package_cache_flag(pTHX_ HV *stash);
92 int mop_get_code_info (SV *coderef, char **pkg, char **name);
93 SV *mop_call0(pTHX_ SV *const self, SV *const method);
104 typedef bool (*get_package_symbols_cb_t) (const char *, STRLEN, SV *, void *);
106 void mop_get_package_symbols(HV *stash, type_filter_t filter, get_package_symbols_cb_t cb, void *ud);
107 HV *mop_get_all_package_symbols (HV *stash, type_filter_t filter);