X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs-src%2FMouse.xs;h=451e9f4fd63308c5c9331369751857884ae0a17d;hb=19462c576ac247d86627100677cac7d78b14f49e;hp=12bcf892ef49697d2536aac5335493b95921b936;hpb=7d96ae4dfb9f6806432c90c33bb2d3a5bf63a9a7;p=gitmo%2FMouse.git diff --git a/xs-src/Mouse.xs b/xs-src/Mouse.xs index 12bcf89..451e9f4 100644 --- a/xs-src/Mouse.xs +++ b/xs-src/Mouse.xs @@ -2,135 +2,98 @@ SV* mouse_package; SV* mouse_namespace; +SV* mouse_methods; +SV* mouse_name; -MODULE = Mouse PACKAGE = Mouse::Util +MODULE = Mouse PACKAGE = Mouse PROTOTYPES: DISABLE BOOT: mouse_package = newSVpvs_share("package"); mouse_namespace = newSVpvs_share("namespace"); + mouse_methods = newSVpvs_share("methods"); + mouse_name = newSVpvs_share("name"); + MOUSE_CALL_BOOT(Mouse__Util); + MOUSE_CALL_BOOT(Mouse__Util__TypeConstraints); + MOUSE_CALL_BOOT(Mouse__Meta__Method__Accessor__XS); -bool -is_class_loaded(SV* sv = &PL_sv_undef) -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)); - } +MODULE = Mouse PACKAGE = Mouse::Meta::Module -SV* -get_code_package(CV* code) -PREINIT: - HV* stash; +BOOT: + INSTALL_SIMPLE_READER_WITH_KEY(Module, name, package); + INSTALL_SIMPLE_READER_WITH_KEY(Module, _method_map, methods); + INSTALL_SIMPLE_READER_WITH_KEY(Module, _attribute_map, attributes); + +HV* +namespace(SV* self) 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; +{ + SV* const package = get_slot(aTHX_ self, mouse_package); + if(!(package && SvOK(package))){ + croak("No package name defined"); } + RETVAL = gv_stashsv(package, GV_ADDMULTI); +} OUTPUT: RETVAL -CV* -get_code_ref(SV* package, SV* name) +# ignore extra arguments for extensibility +void +add_method(SV* self, SV* name, SV* code, ...) CODE: { - HV* stash; - HE* he; + SV* const package = get_slot(aTHX_ self, mouse_package); /* $self->{package} */ + SV* const methods = get_slot(aTHX_ self, mouse_methods); /* $self->{methods} */ + GV* gv; + SV* code_ref; - if(!SvOK(package)){ - croak("You must define a package name"); + if(!(package && SvOK(package))){ + croak("No package name defined"); } + + SvGETMAGIC(name); + SvGETMAGIC(code); + if(!SvOK(name)){ - croak("You must define a subroutine name"); + mouse_throw_error(self, NULL, "You must define a method name"); } - - stash = gv_stashsv(package, FALSE); - if(!stash){ - XSRETURN_UNDEF; + if(!SvROK(code)){ + mouse_throw_error(self, NULL, "You must define a CODE reference"); } - 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); + + 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"); } - RETVAL = GvCVu(gv); - } - else{ - RETVAL = NULL; + code_ref = sv; } - if(!RETVAL){ - XSRETURN_UNDEF; + /* *{$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; } -} -OUTPUT: - RETVAL - - -MODULE = Mouse PACKAGE = Mouse::Util::TypeConstraints - -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); + sv_setsv_mg((SV*)gv, code_ref); /* *gv = $code_ref */ + set_slot(methods, name, code); /* $self->{methods}{$name} = $code */ -MODULE = Mouse PACKAGE = Mouse::Meta::Module - -BOOT: - INSTALL_SIMPLE_READER_WITH_KEY(Module, name, package); - INSTALL_SIMPLE_READER_WITH_KEY(Module, _method_map, methods); - INSTALL_SIMPLE_READER_WITH_KEY(Module, _attribute_map, attributes); + /* 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 */ ){ -HV* -namespace(SV* self) -CODE: -{ - SV* const package = mouse_instance_get_slot(self, mouse_package); - if(!(package && SvOK(package))){ - croak("No package name"); - } - RETVAL = gv_stashsv(package, GV_ADDMULTI); + // CvGV(code_entity) = gv; + // CvANON_off(code_entity); + //} } -OUTPUT: - RETVAL MODULE = Mouse PACKAGE = Mouse::Meta::Class @@ -157,6 +120,7 @@ PPCODE: } } + MODULE = Mouse PACKAGE = Mouse::Meta::Role BOOT: @@ -204,6 +168,9 @@ BOOT: INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_builder, builder); INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_documentation, documentation); + newCONSTSUB(gv_stashpvs("Mouse::Meta::Attribute", TRUE), "accessor_metaclass", + newSVpvs("Mouse::Meta::Method::Accessor::XS")); + MODULE = Mouse PACKAGE = Mouse::Meta::TypeConstraint BOOT: @@ -215,3 +182,5 @@ BOOT: INSTALL_SIMPLE_READER(TypeConstraint, _compiled_type_coercion); /* Mouse specific */ INSTALL_SIMPLE_PREDICATE_WITH_KEY(TypeConstraint, has_coercion, _compiled_type_coercion); + +