return buildargs && CvXSUB(GvCV(buildargs)) != XS_Mouse__Object_BUILDARGS;
}
-static void
-mouse_class_update_xc(pTHX_ SV* const metaclass PERL_UNUSED_DECL, HV* const stash, AV* const xc) {
+static AV*
+mouse_class_update_xc(pTHX_ SV* const metaclass PERL_UNUSED_DECL, AV* const xc) {
+ HV* const stash = MOUSE_xc_stash(xc);
AV* const linearized_isa = mro_get_linear_isa(stash);
I32 const len = AvFILLp(linearized_isa) + 1;
I32 i;
LEAVE;
sv_setuv(MOUSE_xc_gen(xc), mro_get_pkg_gen(stash));
+ return xc;
}
static AV*
-mouse_get_xc(pTHX_ SV* const metaclass) {
+mouse_get_xc_wo_check(pTHX_ SV* const metaclass) {
AV* xc;
- SV* gen;
- HV* stash;
MAGIC* mg;
if(!IsObject(metaclass)){
mg = mouse_mg_find(aTHX_ SvRV(metaclass), &mouse_xc_vtbl, 0x00);
if(!mg){
/* cache stash for performance */
- stash = mouse_get_namespace(aTHX_ metaclass);
+ HV* const stash = mouse_get_namespace(aTHX_ metaclass);
xc = newAV();
mg = sv_magicext(SvRV(metaclass), (SV*)xc, PERL_MAGIC_ext,
assert(xc);
assert(SvTYPE(xc) == SVt_PVAV);
}
+ return xc;
+}
- gen = MOUSE_xc_gen(xc);
-
- if(SvUVX(gen) != 0U && MOUSE_xc_flags(xc) & MOUSEf_XC_IS_IMMUTABLE){
- return xc;
+static int
+mouse_xc_is_fresh(pTHX_ AV* const xc) {
+ HV* const stash = MOUSE_xc_stash(xc);
+ SV* const gen = MOUSE_xc_gen(xc);
+ if(SvUVX(gen) != 0U && MOUSE_xc_flags(xc) & MOUSEf_XC_IS_IMMUTABLE) {
+ return TRUE;
}
+ return SvUVX(gen) == mro_get_pkg_gen(stash);
+}
- stash = MOUSE_xc_stash(xc);
-
- if(SvUVX(gen) != mro_get_pkg_gen(stash)){
- mouse_class_update_xc(aTHX_ metaclass, stash, xc);
- }
+STATIC_INLINE AV*
+mouse_get_xc(pTHX_ SV* const metaclass) {
+ AV* const xc = mouse_get_xc_wo_check(aTHX_ metaclass);
+ return mouse_xc_is_fresh(aTHX_ xc)
+ ? xc
+ : mouse_class_update_xc(aTHX_ metaclass, xc);
+}
- return xc;
+static AV*
+mouse_get_xc_if_fresh(pTHX_ SV* const metaclass) {
+ AV* const xc = mouse_get_xc_wo_check(aTHX_ metaclass);
+ return mouse_xc_is_fresh(aTHX_ xc)
+ ? xc
+ : NULL;
}
static HV*
value = mouse_xa_apply_type_constraint(aTHX_ xa, value, flags);
}
value = set_slot(object, slot, value);
- if(SvROK(value) && flags & MOUSEf_ATTR_IS_WEAK_REF){
+ if(flags & MOUSEf_ATTR_IS_WEAK_REF && SvROK(value)){
weaken_slot(object, slot);
}
if(flags & MOUSEf_ATTR_HAS_TRIGGER){
mouse_xa_set_default(aTHX_ xa, object);
}
}
- /* don't check while cloning (or reblesseing) */
- else if(!is_cloning && flags & MOUSEf_ATTR_IS_REQUIRED) {
+ else if(is_cloning) {
+ if(flags & MOUSEf_ATTR_IS_WEAK_REF){
+ SV* const value = get_slot(object, slot);
+ if(SvROK(value)) {
+ weaken_slot(object, slot);
+ }
+ }
+ }
+ /* don't check "required" while cloning (or reblesseing) */
+ else if(flags & MOUSEf_ATTR_IS_REQUIRED) {
mouse_throw_error(attr, NULL, "Attribute (%"SVf") is required", slot);
}
}
return (AV*)SvRV(storage_ref);
}
-static void
-XS_Mouse_value_holder(pTHX_ CV* const cv PERL_UNUSED_DECL) {
+static
+XSPROTO(XS_Mouse_value_holder) {
dVAR; dXSARGS;
SV* const value = (SV*)XSANY.any_ptr;
assert(value);
/* *{$package . '::' . $name} -> *gv */
gv = gv_fetchpv(form("%"SVf"::%"SVf, package, name), GV_ADDMULTI, SVt_PVCV);
mouse_install_sub(aTHX_ gv, code_ref);
- //CvMETHOD_on((CV*)SvRV(code_ref));
+ /* CvMETHOD_on((CV*)SvRV(code_ref)); */
(void)set_slot(methods, name, code); /* $self->{methods}{$name} = $code */
}
linearized_isa() */
HV* const stash = mouse_get_namespace(aTHX_ self);
AV* const linearized_isa = mro_get_linear_isa(stash);
- I32 len;
+ I32 const len = AvFILLp(linearized_isa) + 1;
I32 i;
- len = AvFILLp(linearized_isa) + 1;
EXTEND(SP, len);
for(i = 0; i < len; i++){
PUSHs(AvARRAY(linearized_isa)[i]);
object = mouse_instance_create(aTHX_ MOUSE_xc_stash(xc));
mouse_class_initialize_object(aTHX_ meta, object, args, FALSE);
- mouse_buildall(aTHX_ xc, object, sv_2mortal(newRV_inc((SV*)args))); /* BUILDALL */
+ mouse_buildall(aTHX_ xc, object, sv_2mortal(newRV_inc((SV*)args)));
ST(0) = object; /* because object is mortal, we should return it as is */
XSRETURN(1);
}
mouse_class_initialize_object(aTHX_ meta, object, args, is_cloning);
}
+void
+_invalidate_metaclass_cache(SV* meta)
+CODE:
+{
+ AV* const xc = mouse_get_xc_if_fresh(aTHX_ meta);
+ if(xc) {
+ SV* const gen = MOUSE_xc_gen(xc);
+ sv_setuv(gen, 0U);
+ }
+ delete_slot(meta, newSVpvs_flags("_mouse_cache_", SVs_TEMP));
+}
+
+
MODULE = Mouse PACKAGE = Mouse::Meta::Role
BOOT:
get_after_method_modifiers = MOUSE_M_AFTER
PPCODE:
{
- AV* const storage = mouse_get_modifier_storage(aTHX_ self, (enum mouse_modifier_t)ix, name);
+ AV* const storage = mouse_get_modifier_storage(aTHX_ self,
+ (enum mouse_modifier_t)ix, name);
I32 const len = av_len(storage) + 1;
if(GIMME_V == G_ARRAY) {
I32 i;
/* new_object */
object = mouse_instance_create(aTHX_ MOUSE_xc_stash(xc));
mouse_class_initialize_object(aTHX_ meta, object, (HV*)SvRV(args), FALSE);
- mouse_buildall(aTHX_ xc, object, args); /* BUILDALL */
+ /* BUILDALL */
+ mouse_buildall(aTHX_ xc, object, args);
ST(0) = object; /* because object is mortal, we should return it as is */
XSRETURN(1);
}
CODE:
{
SV* const meta = get_metaclass(object);
+ AV* xc;
AV* demolishall;
- I32 len, i;
+ I32 len;
+ I32 i;
if(!IsObject(object)){
croak("You must not call %s as a class method",
ix == 0 ? "DESTROY" : "DEMOLISHALL");
}
- if(SvOK(meta)){
- AV* const xc = mouse_get_xc(aTHX_ meta);
-
+ if(SvOK(meta) && (xc = mouse_get_xc_if_fresh(aTHX_ meta))) {
demolishall = MOUSE_xc_demolishall(xc);
}
else { /* The metaclass is already destroyed */
}
}
- len = AvFILLp(demolishall) + 1;
+ len = AvFILLp(demolishall) + 1;
if(len > 0){
SV* const in_global_destruction = boolSV(PL_dirty);
SAVEI32(PL_statusvalue); /* local $? */
projects / gitmo/Mouse.git / blobdiff