Commit | Line | Data |
d846ade3 |
1 | #ifndef __MOP_H__ |
2 | #define __MOP_H__ |
3 | |
353c6152 |
4 | #define PERL_NO_GET_CONTEXT |
d846ade3 |
5 | #include "EXTERN.h" |
6 | #include "perl.h" |
7 | #include "XSUB.h" |
8 | |
d846ade3 |
9 | #include "ppport.h" |
10 | |
25bcd95c |
11 | #define MOP_CALL_BOOT(name) mop_call_xs(aTHX_ name, cv, mark); |
d846ade3 |
12 | |
c97ec1de |
13 | #ifndef XSPROTO |
14 | #define XSPROTO(name) XS(name) |
15 | #endif |
16 | |
1be56175 |
17 | void mop_call_xs (pTHX_ XSPROTO(subaddr), CV *cv, SV **mark); |
d846ade3 |
18 | |
8a2e4cdb |
19 | |
20 | #define MAKE_KEYSV(name) newSVpvn_share(#name, sizeof(#name)-1, 0U) |
21 | |
a69b9501 |
22 | XS(mop_xs_simple_accessor); |
7ec7b950 |
23 | XS(mop_xs_simple_reader); |
a69b9501 |
24 | XS(mop_xs_simple_writer); |
25 | XS(mop_xs_simple_predicate); |
26 | XS(mop_xs_simple_predicate_for_metaclass); |
27 | XS(mop_xs_simple_clearer); |
7ec7b950 |
28 | |
e1f52a8a |
29 | extern SV *mop_method_metaclass; |
30 | extern SV *mop_associated_metaclass; |
ffec3ec3 |
31 | extern SV *mop_associated_attribute; |
e1f52a8a |
32 | extern SV *mop_wrap; |
8a2e4cdb |
33 | extern SV *mop_methods; |
34 | extern SV *mop_name; |
35 | extern SV *mop_body; |
36 | extern SV *mop_package; |
37 | extern SV *mop_package_name; |
38 | extern SV *mop_package_cache_flag; |
39 | extern SV *mop_VERSION; |
40 | extern SV *mop_ISA; |
d846ade3 |
41 | |
42 | UV mop_check_package_cache_flag(pTHX_ HV *stash); |
e1f52a8a |
43 | int mop_get_code_info (SV *coderef, char **pkg, char **name); |
d846ade3 |
44 | SV *mop_call0(pTHX_ SV *const self, SV *const method); |
353c6152 |
45 | SV *mop_call1(pTHX_ SV *const self, SV *const method, SV *const arg1); |
46 | |
47 | #define mop_call0_pvs(o, m) mop_call0(aTHX_ o, newSVpvs_flags(m, SVs_TEMP)) |
48 | #define mop_call1_pvs(o, m, a) mop_call1(aTHX_ o, newSVpvs_flags(m, SVs_TEMP), a) |
49 | |
d846ade3 |
50 | |
51 | typedef enum { |
52 | TYPE_FILTER_NONE, |
53 | TYPE_FILTER_CODE, |
54 | TYPE_FILTER_ARRAY, |
55 | TYPE_FILTER_IO, |
56 | TYPE_FILTER_HASH, |
57 | TYPE_FILTER_SCALAR, |
58 | } type_filter_t; |
59 | |
60 | typedef bool (*get_package_symbols_cb_t) (const char *, STRLEN, SV *, void *); |
61 | |
e1f52a8a |
62 | void mop_get_package_symbols(HV *stash, type_filter_t filter, get_package_symbols_cb_t cb, void *ud); |
353c6152 |
63 | HV *mop_get_all_package_symbols (HV *stash, type_filter_t filter); |
64 | |
65 | |
8615de16 |
66 | /* Class::MOP Magic stuff */ |
353c6152 |
67 | |
8615de16 |
68 | /* MG: MOP Magic object */ |
86395d9a |
69 | |
70 | /* All the MOP_mg_* macros require MAGIC* mg for the first argument */ |
86395d9a |
71 | |
353c6152 |
72 | typedef struct { |
8615de16 |
73 | SV* (*create_instance)(pTHX_ SV* const mi); |
74 | bool (*has_slot) (pTHX_ SV* const mi, SV* const instance); |
75 | SV* (*get_slot) (pTHX_ SV* const mi, SV* const instance); |
76 | SV* (*set_slot) (pTHX_ SV* const mi, SV* const instance, SV* const value); |
77 | SV* (*delete_slot) (pTHX_ SV* const mi, SV* const instance); |
78 | void (*weaken_slot) (pTHX_ SV* const mi, SV* const instance); |
353c6152 |
79 | } mop_instance_vtbl; |
80 | |
81 | const mop_instance_vtbl* mop_get_default_instance_vtbl(pTHX); |
82 | |
86395d9a |
83 | #define MOP_MI_SLOT 0 |
84 | #define MOP_MI_last 1 |
85 | |
8615de16 |
86 | #define MOP_mg_mi(mg) ((mg)->mg_obj) |
86395d9a |
87 | #define MOP_mg_vtbl(mg) ((const mop_instance_vtbl*)(mg)->mg_ptr) |
88 | #define MOP_mg_flags(mg) ((mg)->mg_private) |
89 | |
8615de16 |
90 | #define MOP_mg_miav(mg) ((AV*)MOP_mg_mi(mg)) |
91 | |
353c6152 |
92 | #ifdef DEBUGGING |
86395d9a |
93 | #define MOP_mi_access(mi, a) *mop_debug_mi_access(aTHX_ (mi) , (a)) |
94 | SV** mop_debug_mi_access(pTHX_ AV* const mi, I32 const attr_ix); |
353c6152 |
95 | #else |
86395d9a |
96 | #define MOP_mi_access(mi, a) AvARRAY((mi))[(a)] |
353c6152 |
97 | #endif |
86395d9a |
98 | |
99 | #define MOP_mi_slot(mi) MOP_mi_access((mi), MOP_MI_SLOT) |
8615de16 |
100 | |
101 | #define MOP_mg_create_instance(mg) MOP_mg_vtbl(mg)->create_instance (aTHX_ MOP_mg_mi(mg)) |
102 | #define MOP_mg_has_slot(mg, o) MOP_mg_vtbl(mg)->has_slot (aTHX_ MOP_mg_mi(mg), (o)) |
103 | #define MOP_mg_get_slot(mg, o) MOP_mg_vtbl(mg)->get_slot (aTHX_ MOP_mg_mi(mg), (o)) |
104 | #define MOP_mg_set_slot(mg, o, v) MOP_mg_vtbl(mg)->set_slot (aTHX_ MOP_mg_mi(mg), (o), (v)) |
105 | #define MOP_mg_delete_slot(mg, o) MOP_mg_vtbl(mg)->delete_slot (aTHX_ MOP_mg_mi(mg), (o)) |
106 | #define MOP_mg_weaken_slot(mg, o) MOP_mg_vtbl(mg)->weaken_slot (aTHX_ MOP_mg_mi(mg), (o)) |
86395d9a |
107 | |
353c6152 |
108 | |
109 | /* Class::MOP::Method::Accessor stuff */ |
110 | |
86395d9a |
111 | #define dMOP_self SV* const self = mop_accessor_get_self(aTHX_ ax, items, cv) |
112 | #define dMOP_mg(xsub) MAGIC* mg = (MAGIC*)CvXSUBANY(xsub).any_ptr |
113 | #define dMOP_METHOD_COMMON dMOP_self; dMOP_mg(cv) |
353c6152 |
114 | |
115 | |
116 | SV* mop_accessor_get_self(pTHX_ I32 const ax, I32 const items, CV* const cv); |
117 | MAGIC* mop_accessor_get_mg(pTHX_ CV* const cv); |
118 | |
119 | CV* mop_install_accessor(pTHX_ const char* const fq_name, const char* const key, I32 const keylen, XSPROTO(accessor_impl), const mop_instance_vtbl* vtbl); |
120 | |
121 | #define INSTALL_SIMPLE_READER(klass, name) INSTALL_SIMPLE_READER_WITH_KEY(klass, name, name) |
122 | #define INSTALL_SIMPLE_READER_WITH_KEY(klass, name, key) (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::" #name, #key, sizeof(#key)-1, mop_xs_simple_reader, NULL) |
123 | |
124 | #define INSTALL_SIMPLE_WRITER(klass, name) INSTALL_SIMPLE_WRITER_WITH_KEY(klass, name, name) |
125 | #define INSTALL_SIMPLE_WRITER_WITH_KEY(klass, name, key) (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::" #name, #key, sizeof(#key)-1, mop_xs_simple_writer, NULL) |
126 | |
127 | #define INSTALL_SIMPLE_PREDICATE(klass, name) INSTALL_SIMPLE_PREDICATE_WITH_KEY(klass, name, name) |
128 | #define INSTALL_SIMPLE_PREDICATE_WITH_KEY(klass, name, key) (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::has_" #name, #key, sizeof(#key)-1, mop_xs_simple_predicate_for_metaclass, NULL) |
129 | |
130 | #define MOPf_DIE_ON_FAIL 0x01 |
131 | MAGIC* mop_mg_find(pTHX_ SV* const sv, const MGVTBL* const vtbl, I32 const flags); |
d846ade3 |
132 | |
133 | #endif |