typedef int (*check_fptr_t)(pTHX_ SV* const data, SV* const sv);
+static
+XSPROTO(XS_Mouse_constraint_check);
+
/*
NOTE: mouse_tc_check() handles GETMAGIC
*/
}
/*
- The following type check functions return an integer, not a bool, to keep them simple,
- so if you assign these return value to bool variable, you must use "expr ? TRUE : FALSE".
+ The following type check functions return an integer, not a bool, to keep
+ the code simple,
+ so if you assign these return value to a bool variable, you must use
+ "expr ? TRUE : FALSE".
*/
int
assert(sv);
if(sv_true(sv)){
- if(SvIOKp(sv)){
+ if(SvPOKp(sv)){ /* "1" */
+ return SvCUR(sv) == 1 && SvPVX(sv)[0] == '1';
+ }
+ else if(SvIOKp(sv)){
return SvIVX(sv) == 1;
}
else if(SvNOKp(sv)){
return SvNVX(sv) == 1.0;
}
- else if(SvPOKp(sv)){ /* "1" */
- return SvCUR(sv) == 1 && SvPVX(sv)[0] == '1';
- }
else{
return FALSE;
}
}
else{
- /* any false value must be boolean */
+ /* any false value is a boolean */
return TRUE;
}
}
}
else {
char buf[64]; /* Must fit sprintf/Gconvert of longest NV */
- char* p;
+ const char* p;
(void)Gconvert(nv, NV_DIG, 0, buf);
p = &buf[0];
int
mouse_tc_Int(pTHX_ SV* const data PERL_UNUSED_DECL, SV* const sv) {
assert(sv);
- if(SvIOKp(sv)){
+ if(SvPOKp(sv)){
+ int const num_type = grok_number(SvPVX(sv), SvCUR(sv), NULL);
+ return num_type && !(num_type & IS_NUMBER_NOT_INT);
+ }
+ else if(SvIOKp(sv)){
return TRUE;
}
else if(SvNOKp(sv)) {
return S_nv_is_integer(aTHX_ SvNVX(sv));
}
- else if(SvPOKp(sv)){
- int const num_type = grok_number(SvPVX(sv), SvCUR(sv), NULL);
- if(num_type){
- return !(num_type & IS_NUMBER_NOT_INT);
- }
- }
return FALSE;
}
}
int
-mouse_tc_ClassName(pTHX_ SV* const data PERL_UNUSED_DECL, SV* const sv){
+mouse_tc_ClassName(pTHX_ SV* const data PERL_UNUSED_DECL, SV* const sv){
assert(sv);
return is_class_loaded(sv);
}
ENTER;
SAVETMPS;
- ok = is_an_instance_of("Mouse::Meta::Role", get_metaclass(sv));
+ ok = is_an_instance_of("Mouse::Meta::Role", get_metaclass(sv));
FREETMPS;
LEAVE;
static int
mouse_parameterized_HashRef(pTHX_ SV* const param, SV* const sv) {
- if(mouse_tc_HashRef(aTHX_ NULL, sv)){
+ if(IsHashRef(sv)){
HV* const hv = (HV*)SvRV(sv);
HE* he;
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);
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 */
(SV*)gv_fetchpvs( MTC_CLASS "::(\"\"", GV_ADDMULTI, SVt_PVCV ),
code_ref );
}
-
+
/* '0+' => '_identity' */
{
SV* const code_ref = sv_2mortal(newRV_inc(
for(parent = get_slots(self, "parent"); parent; parent = get_slots(parent, "parent")){
check = get_slots(parent, "hand_optimized_type_constraint");
if(check && SvOK(check)){
- if(!mouse_tc_CodeRef(aTHX_ NULL, check)){
+ if(!IsCodeRef(check)){
croak("Not a CODE reference");
}
av_unshift(checks, 1);
CODE:
{
SV* const check = get_slots(self, "compiled_type_constraint");
- if(!(check && mouse_tc_CodeRef(aTHX_ NULL, check))){
- mouse_throw_error(self, check, "'%"SVf"' has no compiled type constraint", self);
+ if(!(check && IsCodeRef(check))){
+ mouse_throw_error(self, check,
+ "'%"SVf"' has no compiled type constraint", self);
}
RETVAL = mouse_tc_check(aTHX_ check, sv) ? TRUE : FALSE;
}