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(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(self, mouse_package); /* $self->{package} */
+ SV* const methods = get_slot(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
}
}
+
MODULE = Mouse PACKAGE = Mouse::Meta::Role
BOOT:
INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_builder, builder);
INSTALL_SIMPLE_PREDICATE_WITH_KEY(Attribute, has_documentation, documentation);
-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 */
+ newCONSTSUB(gv_stashpvs("Mouse::Meta::Attribute", TRUE), "accessor_metaclass",
+ newSVpvs("Mouse::Meta::Method::Accessor::XS"));
- INSTALL_SIMPLE_PREDICATE_WITH_KEY(TypeConstraint, has_coercion, _compiled_type_coercion);
projects / gitmo/Mouse.git / blobdiff