#define SvRXOK(sv) (SvROK(sv) && SvMAGICAL(SvRV(sv)) && mg_find(SvRV(sv), PERL_MAGIC_qr))
#endif
+#define MY_CXT_KEY "Mouse::Util::TypeConstraints::_guts" XS_VERSION
+typedef struct sui_cxt{
+ GV* universal_isa;
+ GV* universal_can;
+ AV* tc_extra_args;
+} my_cxt_t;
+START_MY_CXT
+
typedef int (*check_fptr_t)(pTHX_ SV* const data, SV* const sv);
+static
+XSPROTO(XS_Mouse_constraint_check);
+
/*
NOTE: mouse_tc_check() handles GETMAGIC
*/
else { /* custom */
int ok;
dSP;
+ dMY_CXT;
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv);
+ if( MY_CXT.tc_extra_args ) {
+ AV* const av = MY_CXT.tc_extra_args;
+ I32 const len = AvFILLp(av) + 1;
+ int i;
+ for(i = 0; i < len; i++) {
+ XPUSHs( AvARRAY(av)[i] );
+ }
+ }
PUTBACK;
call_sv(tc_code, G_SCALAR);
* This class_type generator is taken from Scalar::Util::Instance
*/
-#define MY_CXT_KEY "Mouse::Util::TypeConstraints::_guts" XS_VERSION
-typedef struct sui_cxt{
- GV* universal_isa;
- GV* universal_can;
-} my_cxt_t;
-START_MY_CXT
#define MG_klass_stash(mg) ((HV*)(mg)->mg_obj)
#define MG_klass_pv(mg) ((mg)->mg_ptr)
return mouse_tc_generate(aTHX_ predicate_name, (check_fptr_t)mouse_can_methods, (SV*)param);
}
-
-XS(XS_Mouse_constraint_check) {
+static
+XSPROTO(XS_Mouse_constraint_check) {
dVAR;
dXSARGS;
MAGIC* const mg = (MAGIC*)XSANY.any_ptr;
XSRETURN(1);
}
-XS(XS_Mouse_TypeConstraint_fallback); /* -Wmissing-prototypes */
-XS(XS_Mouse_TypeConstraint_fallback) {
+static
+XSPROTO(XS_Mouse_TypeConstraint_fallback) {
dXSARGS;
PERL_UNUSED_VAR(cv);
PERL_UNUSED_VAR(items);
MY_CXT.universal_can = gv_fetchpvs("UNIVERSAL::can", GV_ADD, SVt_PVCV);
SvREFCNT_inc_simple_void_NN(MY_CXT.universal_can);
+
+ MY_CXT.tc_extra_args = NULL;
}
#define DEFINE_TC(name) mouse_tc_generate(aTHX_ "Mouse::Util::TypeConstraints::" STRINGIFY(name), CAT2(mouse_tc_, name), NULL)
INSTALL_SIMPLE_READER(TypeConstraint, type_parameter);
INSTALL_SIMPLE_READER_WITH_KEY(TypeConstraint, _compiled_type_constraint, compiled_type_constraint);
- INSTALL_SIMPLE_READER(TypeConstraint, _compiled_type_coercion); /* Mouse specific */
INSTALL_SIMPLE_PREDICATE_WITH_KEY(TypeConstraint, has_coercion, _compiled_type_coercion);
INSTALL_SIMPLE_PREDICATE_WITH_KEY(TypeConstraint, __is_parameterized, type_parameter); /* Mouse specific */
}
bool
-check(SV* self, SV* sv)
+check(SV* self, SV* sv, ...)
CODE:
{
SV* const check = get_slots(self, "compiled_type_constraint");
mouse_throw_error(self, check,
"'%"SVf"' has no compiled type constraint", self);
}
+ if( items > 2 ) {
+ int i;
+ AV* av;
+ dMY_CXT;
+ SAVESPTR(MY_CXT.tc_extra_args);
+ av = MY_CXT.tc_extra_args = newAV_mortal();
+ av_extend(av, items - 3);
+ for(i = 2; i < items; i++) {
+ av_push(av, SvREFCNT_inc_NN( ST(i) ) );
+ }
+ }
RETVAL = mouse_tc_check(aTHX_ check, sv) ? TRUE : FALSE;
}
OUTPUT: