X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=mouse.h;h=94f44317672f5adec1657b94c09e6e9ea8d857df;hp=21e45c352015612a7b868fd15557c7953fb9652a;hb=a4b901ac53a9eb592740cd6fb20a136e142671db;hpb=935400114c35ad1b2481c48ff471e180e9c93d93 diff --git a/mouse.h b/mouse.h index 21e45c3..94f4431 100644 --- a/mouse.h +++ b/mouse.h @@ -6,16 +6,25 @@ #include #include +#define NEED_newSVpvn_flags #include "ppport.h" +/* for portability */ #ifndef newSVpvs_share #define newSVpvs_share(s) Perl_newSVpvn_share(aTHX_ s, sizeof(s)-1, 0U) #endif +#ifndef GvNAME_get +#define GvNAME_get GvNAME +#endif +#ifndef GvNAMELEN_get +#define GvNAMELEN_get GvNAMELEN +#endif + #ifndef mro_get_linear_isa #define no_mro_get_linear_isa #define mro_get_linear_isa(stash) mouse_mro_get_linear_isa(aTHX_ stash) -AV* mouse_mro_get_linear_isa(pTHX_ HV* const stash) +AV* mouse_mro_get_linear_isa(pTHX_ HV* const stash); #endif /* !mro_get_linear_isa */ #ifndef mro_get_pkg_gen @@ -26,7 +35,7 @@ AV* mouse_mro_get_linear_isa(pTHX_ HV* const stash) #endif /* !no_mro_get_linear_isa */ #endif /* mro_get_package_gen */ -#define MOUSE_CALL_BOOT(name) STMT_START { \ +#define MOUSE_CALL_BOOT(name) STMT_START { \ EXTERN_C XS(CAT2(boot_, name)); \ PUSHMARK(SP); \ CALL_FPTR(CAT2(boot_, name))(aTHX_ cv); \ @@ -34,6 +43,8 @@ AV* mouse_mro_get_linear_isa(pTHX_ HV* const stash) extern SV* mouse_package; extern SV* mouse_namespace; +extern SV* mouse_methods; +extern SV* mouse_name; void mouse_throw_error(SV* const metaobject, SV* const data /* not used */, const char* const fmt, ...) @@ -46,15 +57,14 @@ 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))) #define mcall0(invocant, m) mouse_call0(aTHX_ (invocant), (m)) #define mcall1(invocant, m, arg1) mouse_call1(aTHX_ (invocant), (m), (arg1)) -#define mcall0s(invocant, m) mcall0((invocant), newSVpvs_flags(m, SVs_TEMP)) -#define mcall1s(invocant, m, arg1) mcall1((invocant), newSVpvs_flags(m, SVs_TEMP), (arg1)) +#define mcall0s(invocant, m) mcall0((invocant), sv_2mortal(newSVpvs_share(m))) +#define mcall1s(invocant, m, arg1) mcall1((invocant), sv_2mortal(newSVpvs_share(m)), (arg1)) SV* mouse_call0(pTHX_ SV *const self, SV *const method); SV* mouse_call1(pTHX_ SV *const self, SV *const method, SV* const arg1); @@ -91,6 +101,15 @@ 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 delete_slot(self, key) mouse_instance_delete_slot(aTHX_ self, key) +#define weaken_slot(self, key) mouse_instance_weaken_slot(aTHX_ self, key) + +#define has_slots(self, key) has_slot(self, sv_2mortal(newSVpvs_share(key))) +#define get_slots(self, key) get_slot(self, sv_2mortal(newSVpvs_share(key))) +#define set_slots(self, key, value) set_slot(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) @@ -115,55 +134,35 @@ XS(mouse_xs_accessor); XS(mouse_xs_reader); XS(mouse_xs_writer); -typedef enum mouse_tc{ - MOUSE_TC_ANY, - MOUSE_TC_ITEM, - MOUSE_TC_UNDEF, - MOUSE_TC_DEFINED, - MOUSE_TC_BOOL, - MOUSE_TC_VALUE, - MOUSE_TC_REF, - MOUSE_TC_STR, - MOUSE_TC_NUM, - MOUSE_TC_INT, - MOUSE_TC_SCALAR_REF, - MOUSE_TC_ARRAY_REF, - MOUSE_TC_HASH_REF, - MOUSE_TC_CODE_REF, - MOUSE_TC_GLOB_REF, - MOUSE_TC_FILEHANDLE, - MOUSE_TC_REGEXP_REF, - MOUSE_TC_OBJECT, - MOUSE_TC_CLASS_NAME, - MOUSE_TC_ROLE_NAME, - - MOUSE_TC_last -} mouse_tc; - /* type constraints */ -int mouse_tc_check(pTHX_ mouse_tc const tc, SV* sv); - -int mouse_tc_Any (pTHX_ SV* const sv); -int mouse_tc_Bool (pTHX_ SV* const sv); -int mouse_tc_Undef (pTHX_ SV* const sv); -int mouse_tc_Defined (pTHX_ SV* const sv); -int mouse_tc_Value (pTHX_ SV* const sv); -int mouse_tc_Num (pTHX_ SV* const sv); -int mouse_tc_Int (pTHX_ SV* const sv); -int mouse_tc_Str (pTHX_ SV* const sv); -int mouse_tc_ClassName (pTHX_ SV* const sv); -int mouse_tc_RoleName (pTHX_ SV* const sv); -int mouse_tc_Ref (pTHX_ SV* const sv); -int mouse_tc_ScalarRef (pTHX_ SV* const sv); -int mouse_tc_ArrayRef (pTHX_ SV* const sv); -int mouse_tc_HashRef (pTHX_ SV* const sv); -int mouse_tc_CodeRef (pTHX_ SV* const sv); -int mouse_tc_RegexpRef (pTHX_ SV* const sv); -int mouse_tc_GlobRef (pTHX_ SV* const sv); -int mouse_tc_FileHandle(pTHX_ SV* const sv); -int mouse_tc_Object (pTHX_ SV* const sv); - +int mouse_tc_check(pTHX_ SV* const tc, SV* const sv); + +int mouse_tc_Any (pTHX_ SV*, SV* const sv); +int mouse_tc_Bool (pTHX_ SV*, SV* const sv); +int mouse_tc_Undef (pTHX_ SV*, SV* const sv); +int mouse_tc_Defined (pTHX_ SV*, SV* const sv); +int mouse_tc_Value (pTHX_ SV*, SV* const sv); +int mouse_tc_Num (pTHX_ SV*, SV* const sv); +int mouse_tc_Int (pTHX_ SV*, SV* const sv); +int mouse_tc_Str (pTHX_ SV*, SV* const sv); +int mouse_tc_ClassName (pTHX_ SV*, SV* const sv); +int mouse_tc_RoleName (pTHX_ SV*, SV* const sv); +int mouse_tc_Ref (pTHX_ SV*, SV* const sv); +int mouse_tc_ScalarRef (pTHX_ SV*, SV* const sv); +int mouse_tc_ArrayRef (pTHX_ SV*, SV* const sv); +int mouse_tc_HashRef (pTHX_ SV*, SV* const sv); +int mouse_tc_CodeRef (pTHX_ SV*, SV* const sv); +int mouse_tc_RegexpRef (pTHX_ SV*, SV* const sv); +int mouse_tc_GlobRef (pTHX_ SV*, SV* const sv); +int mouse_tc_FileHandle(pTHX_ SV*, SV* const sv); +int mouse_tc_Object (pTHX_ SV*, SV* const sv); + +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_constraint_check); #endif /* !MOUSE_H */