X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=mouse.h;h=98f7f31f762769e6ffe048466212cb9d122e564f;hp=21e45c352015612a7b868fd15557c7953fb9652a;hb=f48920c11c806b2a1fd60be145ff2cdf79750878;hpb=935400114c35ad1b2481c48ff471e180e9c93d93

diff --git a/mouse.h b/mouse.h
index 21e45c3..98f7f31 100644
--- a/mouse.h
+++ b/mouse.h
@@ -6,16 +6,25 @@
 #include <perl.h>
 #include <XSUB.h>
 
+#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, ...)
@@ -142,7 +153,8 @@ typedef enum mouse_tc{
 
 /* type constraints */
 
-int mouse_tc_check(pTHX_ mouse_tc const tc, SV* sv);
+int mouse_tc_check(pTHX_ SV* const tc, SV* const sv);
+int mouse_builtin_tc_check(pTHX_ mouse_tc const tc, SV* const sv);
 
 int mouse_tc_Any       (pTHX_ SV* const sv);
 int mouse_tc_Bool      (pTHX_ SV* const sv);
@@ -164,6 +176,10 @@ 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);
+
+XS(XS_isa_check);
+XS(XS_isa_check_for_universal);
 
 #endif /* !MOUSE_H */