X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=xs-src%2FMouse.xs;h=47839611ed03fa9c42f75c9a11f6214999e04f53;hp=c4ba5f14796e036f38ba96d6ef2725148e049b63;hb=0d615023d82778635c398300ecc6b518c35d4408;hpb=3ea28db6c35f2f60bfcce151cb4fcee58d6edcf7 diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs index c4ba5f1..4783961 100644 --- a/xs-src/Mouse.xs +++ b/xs-src/Mouse.xs @@ -1,115 +1,123 @@ +#define NEED_newSVpvn_flags_GLOBAL #include "mouse.h" SV* mouse_package; SV* mouse_namespace; +SV* mouse_methods; +SV* mouse_name; -MODULE = Mouse PACKAGE = Mouse::Util +static SV* mouse_all_attrs_cache; +static SV* mouse_all_attrs_cache_gen; -PROTOTYPES: DISABLE +AV* +mouse_get_all_attributes(pTHX_ SV* const metaclass){ + SV* const package = get_slot(metaclass, mouse_package); + HV* const stash = gv_stashsv(package, TRUE); + UV const pkg_gen = mro_get_pkg_gen(stash); + SV* cache_gen = get_slot(metaclass, mouse_all_attrs_cache_gen); -BOOT: - mouse_package = newSVpvs_share("package"); - mouse_namespace = newSVpvs_share("namespace"); + if(!(cache_gen && pkg_gen == SvUV(cache_gen))){ /* update */ + CV* const get_metaclass = get_cvs("Mouse::Util::get_metaclass_by_name", TRUE); + AV* const all_attrs = newAV(); + SV* const get_attribute = newSVpvs_share("get_attribute"); + AV* const linearized_isa = mro_get_linear_isa(stash); + I32 const len = AvFILLp(linearized_isa); + I32 i; + HV* seen; -bool -is_class_loaded(SV* sv = &PL_sv_undef) + /* warn("Update all_attrs_cache (cache_gen %d != pkg_gen %d)", (cache_gen ? (int)SvIV(cache_gen) : 0), (int)pkg_gen); //*/ -void -get_code_info(CV* code) -PREINIT: - GV* gv; - HV* stash; -PPCODE: - if((gv = CvGV(code)) && isGV(gv) && (stash = GvSTASH(gv))){ - EXTEND(SP, 2); - mPUSHs(newSVpvn_share(HvNAME_get(stash), HvNAMELEN_get(stash), 0U)); - mPUSHs(newSVpvn_share(GvNAME_get(gv), GvNAMELEN_get(gv), 0U)); - } + ENTER; + SAVETMPS; -SV* -get_code_package(CV* code) -PREINIT: - HV* stash; -CODE: - if(CvGV(code) && isGV(CvGV(code)) && (stash = GvSTASH(CvGV(code)))){ - RETVAL = newSVpvn_share(HvNAME_get(stash), HvNAMELEN_get(stash), 0U); - } - else{ - RETVAL = &PL_sv_no; - } -OUTPUT: - RETVAL + sv_2mortal(get_attribute); -CV* -get_code_ref(SV* package, SV* name) -CODE: -{ - HV* stash; - HE* he; + set_slot(metaclass, mouse_all_attrs_cache, sv_2mortal(newRV_inc((SV*)all_attrs))); - if(!SvOK(package)){ - croak("You must define a package name"); - } - if(!SvOK(name)){ - croak("You must define a subroutine name"); - } + seen = newHV(); + sv_2mortal((SV*)seen); - stash = gv_stashsv(package, FALSE); - if(!stash){ - XSRETURN_UNDEF; - } - he = hv_fetch_ent(stash, name, FALSE, 0U); - if(he){ - GV* const gv = (GV*)hv_iterval(stash, he); - if(!isGV(gv)){ /* special constant or stub */ - STRLEN len; - const char* const pv = SvPV_const(name, len); - gv_init(gv, stash, pv, len, GV_ADDMULTI); + for(i = 0; i < len; i++){ + SV* const klass = MOUSE_av_at(linearized_isa, i); + SV* meta; + I32 n; + dSP; + + PUSHMARK(SP); + XPUSHs(klass); + PUTBACK; + + call_sv((SV*)get_metaclass, G_SCALAR); + + SPAGAIN; + meta = POPs; + PUTBACK; + + if(!SvOK(meta)){ + continue; /* skip non-Mouse classes */ + } + + /* $meta->get_attribute_list */ + PUSHMARK(SP); + XPUSHs(meta); + PUTBACK; + + n = call_method("get_attribute_list", G_ARRAY); + for(NOOP; n > 0; n--){ + SV* name; + + SPAGAIN; + name = POPs; + PUTBACK; + + if(hv_exists_ent(seen, name, 0U)){ + continue; + } + (void)hv_store_ent(seen, name, &PL_sv_undef, 0U); + + av_push(all_attrs, newSVsv( mcall1(meta, get_attribute, name) )); + } } - RETVAL = GvCVu(gv); - } - else{ - RETVAL = NULL; + + if(!cache_gen){ + cache_gen = sv_newmortal(); + } + sv_setuv(cache_gen, mro_get_pkg_gen(stash)); + set_slot(metaclass, mouse_all_attrs_cache_gen, cache_gen); + + FREETMPS; + LEAVE; + + return all_attrs; } + else { + SV* const all_attrs_ref = get_slot(metaclass, mouse_all_attrs_cache); + + if(!IsArrayRef(all_attrs_ref)){ + croak("Not an ARRAY reference"); + } - if(!RETVAL){ - XSRETURN_UNDEF; + return (AV*)SvRV(all_attrs_ref); } } -OUTPUT: - RETVAL +MODULE = Mouse PACKAGE = Mouse -MODULE = Mouse PACKAGE = Mouse::Util::TypeConstraints +PROTOTYPES: DISABLE -void -Item(SV* sv = &PL_sv_undef) -ALIAS: - Any = MOUSE_TC_ANY - Item = MOUSE_TC_ITEM - Undef = MOUSE_TC_UNDEF - Defined = MOUSE_TC_DEFINED - Bool = MOUSE_TC_BOOL - Value = MOUSE_TC_VALUE - Ref = MOUSE_TC_REF - Str = MOUSE_TC_STR - Num = MOUSE_TC_NUM - Int = MOUSE_TC_INT - ScalarRef = MOUSE_TC_SCALAR_REF - ArrayRef = MOUSE_TC_ARRAY_REF - HashRef = MOUSE_TC_HASH_REF - CodeRef = MOUSE_TC_CODE_REF - GlobRef = MOUSE_TC_GLOB_REF - FileHandle = MOUSE_TC_FILEHANDLE - RegexpRef = MOUSE_TC_REGEXP_REF - Object = MOUSE_TC_OBJECT - ClassName = MOUSE_TC_CLASS_NAME - RoleName = MOUSE_TC_ROLE_NAME -CODE: - SvGETMAGIC(sv); - ST(0) = boolSV( mouse_tc_check(aTHX_ ix, sv) ); - XSRETURN(1); +BOOT: + mouse_package = newSVpvs_share("package"); + mouse_namespace = newSVpvs_share("namespace"); + mouse_methods = newSVpvs_share("methods"); + mouse_name = newSVpvs_share("name"); + + mouse_all_attrs_cache = newSVpvs_share("__all_attrs_cache"); + mouse_all_attrs_cache_gen = newSVpvs_share("__all_attrs_cache_gen"); + + MOUSE_CALL_BOOT(Mouse__Util); + MOUSE_CALL_BOOT(Mouse__Util__TypeConstraints); + MOUSE_CALL_BOOT(Mouse__Meta__Method__Accessor__XS); MODULE = Mouse PACKAGE = Mouse::Meta::Module @@ -123,15 +131,70 @@ HV* namespace(SV* self) CODE: { - SV* const package = mouse_instance_get_slot(aTHX_ self, mouse_package); + SV* const package = get_slot(self, mouse_package); if(!(package && SvOK(package))){ - croak("No package name"); + croak("No package name defined"); } RETVAL = gv_stashsv(package, GV_ADDMULTI); } OUTPUT: RETVAL +# ignore extra arguments for extensibility +void +add_method(SV* self, SV* name, SV* code, ...) +CODE: +{ + SV* const package = get_slot(self, mouse_package); /* $self->{package} */ + SV* const methods = get_slot(self, mouse_methods); /* $self->{methods} */ + GV* gv; + SV* code_ref; + + if(!(package && SvOK(package))){ + croak("No package name defined"); + } + + SvGETMAGIC(name); + SvGETMAGIC(code); + + if(!SvOK(name)){ + mouse_throw_error(self, NULL, "You must define a method name"); + } + if(!SvROK(code)){ + mouse_throw_error(self, NULL, "You must define a CODE reference"); + } + + code_ref = code; + if(SvTYPE(SvRV(code_ref)) != SVt_PVCV){ + SV* sv = code_ref; /* used in tryAMAGICunDEREF */ + SV** sp = &sv; /* used in tryAMAGICunDEREF */ + tryAMAGICunDEREF(to_cv); /* try \&{$code} */ + if(SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV){ + mouse_throw_error(self, NULL, "Not a CODE reference"); + } + code_ref = sv; + } + + /* *{$package . '::' . $name} -> *gv */ + gv = gv_fetchpv(form("%"SVf"::%"SVf, package, name), GV_ADDMULTI, SVt_PVCV); + if(GvCVu(gv)){ /* delete *slot{gv} to work around "redefine" warning */ + SvREFCNT_dec(GvCV(gv)); + GvCV(gv) = NULL; + } + sv_setsv_mg((SV*)gv, code_ref); /* *gv = $code_ref */ + + set_slot(methods, name, code); /* $self->{methods}{$name} = $code */ + + /* TODO: name the CODE ref if it's anonymous */ + //code_entity = (CV*)SvRV(code_ref); + //if(CvANON(code_entity) + // && CvGV(code_entity) /* a cv under construction has no gv */ ){ + + // CvGV(code_entity) = gv; + // CvANON_off(code_entity); + //} +} + MODULE = Mouse PACKAGE = Mouse::Meta::Class BOOT: @@ -157,6 +220,20 @@ PPCODE: } } +void +get_all_attributes(SV* self) +PPCODE: +{ + AV* const all_attrs = mouse_get_all_attributes(aTHX_ self); + I32 const len = AvFILLp(all_attrs) + 1; + I32 i; + + EXTEND(SP, len); + for(i = 0; i < len; i++){ + PUSHs( MOUSE_av_at(all_attrs, i) ); + } +} + MODULE = Mouse PACKAGE = Mouse::Meta::Role BOOT: @@ -207,75 +284,3 @@ BOOT: newCONSTSUB(gv_stashpvs("Mouse::Meta::Attribute", TRUE), "accessor_metaclass", newSVpvs("Mouse::Meta::Method::Accessor::XS")); -MODULE = Mouse PACKAGE = Mouse::Meta::TypeConstraint - -BOOT: - INSTALL_SIMPLE_READER(TypeConstraint, name); - INSTALL_SIMPLE_READER(TypeConstraint, parent); - INSTALL_SIMPLE_READER(TypeConstraint, message); - - 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); - - -MODULE = Mouse PACKAGE = Mouse::Meta::Method::Accessor::XS - -BOOT: -{ - AV* const isa = get_av("Mouse::Meta::Method::Accessor::XS::ISA", TRUE); - av_push(isa, newSVpvs("Mouse::Meta::Method::Accessor")); -} - -CV* -_generate_accessor(klass, SV* attr, metaclass) -CODE: -{ - RETVAL = mouse_instantiate_xs_accessor(aTHX_ attr, mouse_xs_accessor); -} -OUTPUT: - RETVAL - -CV* -_generate_reader(klass, SV* attr, metaclass) -CODE: -{ - RETVAL = mouse_instantiate_xs_accessor(aTHX_ attr, mouse_xs_reader); -} -OUTPUT: - RETVAL - -CV* -_generate_writer(klass, SV* attr, metaclass) -CODE: -{ - RETVAL = mouse_instantiate_xs_accessor(aTHX_ attr, mouse_xs_writer); -} -OUTPUT: - RETVAL - -CV* -_generate_clearer(klass, SV* attr, metaclass) -CODE: -{ - SV* const slot = mcall0s(attr, "name"); - STRLEN len; - const char* const pv = SvPV_const(slot, len); - RETVAL = mouse_install_simple_accessor(aTHX_ NULL, pv, len, mouse_xs_simple_clearer); -} -OUTPUT: - RETVAL - -CV* -_generate_predicate(klass, SV* attr, metaclass) -CODE: -{ - SV* const slot = mcall0s(attr, "name"); - STRLEN len; - const char* const pv = SvPV_const(slot, len); - RETVAL = mouse_install_simple_accessor(aTHX_ NULL, pv, len, mouse_xs_simple_predicate); -} -OUTPUT: - RETVAL -