X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=mouse.h;h=d198f3831ad529675a4b5c8dca7315cfc418e9cb;hp=98f7f31f762769e6ffe048466212cb9d122e564f;hb=f790c46b83718b0665e24380b0df0c387925ea27;hpb=f48920c11c806b2a1fd60be145ff2cdf79750878 diff --git a/mouse.h b/mouse.h index 98f7f31..d198f38 100644 --- a/mouse.h +++ b/mouse.h @@ -57,8 +57,7 @@ mouse_throw_error(SV* const metaobject, SV* const data /* not used */, const cha #define is_class_loaded(sv) mouse_is_class_loaded(aTHX_ sv) bool mouse_is_class_loaded(pTHX_ SV*); -#define is_instance_of(sv, klass) mouse_is_instance_of(aTHX_ sv, klass) -bool mouse_is_instance_of(pTHX_ SV* const sv, SV* const klass); +#define is_an_instance_of(klass, sv) mouse_is_an_instance_of(aTHX_ gv_stashpvs(klass, GV_ADD), (sv)) #define IsObject(sv) (SvROK(sv) && SvOBJECT(SvRV(sv))) @@ -102,6 +101,13 @@ SV* mouse_instance_set_slot (pTHX_ SV* const instance, SV* const slot, SV* co SV* mouse_instance_delete_slot(pTHX_ SV* const instance, SV* const slot); void mouse_instance_weaken_slot(pTHX_ SV* const instance, SV* const slot); +#define has_slot(self, key) mouse_instance_has_slot(aTHX_ self, key) +#define get_slot(self, key) mouse_instance_get_slot(aTHX_ self, key) +#define set_slot(self, key, value) mouse_instance_set_slot(aTHX_ self, key, value) + +#define has_slots(self, key) mouse_instance_has_slot(aTHX_ self, sv_2mortal(newSVpvs_share(key))) +#define get_slots(self, key) mouse_instance_get_slot(aTHX_ self, sv_2mortal(newSVpvs_share(key))) +#define set_slots(self, key, value) mouse_instance_set_slot(aTHX_ self, sv_2mortal(newSVpvs_share(key)), value) /* mouse_simle_accessor.xs */ #define INSTALL_SIMPLE_READER(klass, name) INSTALL_SIMPLE_READER_WITH_KEY(klass, name, name) @@ -127,6 +133,7 @@ XS(mouse_xs_reader); XS(mouse_xs_writer); typedef enum mouse_tc{ + MOUSE_TC_MAYBE, MOUSE_TC_ANY, MOUSE_TC_ITEM, MOUSE_TC_UNDEF, @@ -176,10 +183,13 @@ int mouse_tc_GlobRef (pTHX_ SV* const sv); int mouse_tc_FileHandle(pTHX_ SV* const sv); int mouse_tc_Object (pTHX_ SV* const sv); -const char* mouse_canonicalize_package_name(const char* name); +CV* mouse_generate_isa_predicate_for(pTHX_ SV* const klass, const char* const predicate_name); + +int mouse_is_an_instance_of(pTHX_ HV* const stash, SV* const instance); + +XS(XS_Mouse_parameterized_check); -XS(XS_isa_check); -XS(XS_isa_check_for_universal); +XS(XS_Mouse__Util__TypeConstraints_Item); #endif /* !MOUSE_H */