[gitmo/Mouse.git] / xs-src / Mouse.xs

#define  NEED_newSVpvn_flags_GLOBAL
#include "mouse.h"

SV* mouse_package;
SV* mouse_namespace;
SV* mouse_methods;
SV* mouse_name;
SV* mouse_get_attribute;
SV* mouse_get_attribute_list;

#define MOUSE_xc_flags(a)       SvUVX(MOUSE_av_at((a), MOUSE_XC_FLAGS))
#define MOUSE_xc_gen(a)         MOUSE_av_at((a), MOUSE_XC_GEN)
#define MOUSE_xc_stash(a)       ( (HV*)MOUSE_av_at((a), MOUSE_XC_STASH) )
#define MOUSE_xc_attrall(a)     ( (AV*)MOUSE_av_at((a), MOUSE_XC_ATTRALL) )
#define MOUSE_xc_buildall(a)    ( (AV*)MOUSE_av_at((a), MOUSE_XC_BUILDALL) )
#define MOUSE_xc_demolishall(a) ( (AV*)MOUSE_av_at((a), MOUSE_XC_DEOLISHALL) )

enum mouse_xc_flags_t {
    MOUSEf_XC_IS_IMMUTABLE   = 0x0001,
    MOUSEf_XC_IS_ANON        = 0x0002,
    MOUSEf_XC_HAS_BUILDARGS  = 0x0004,

    MOUSEf_XC_mask           = 0xFFFF /* not used */
};

/* Mouse XS Metaclass object */
enum mouse_xc_ix_t{
    MOUSE_XC_FLAGS,

    MOUSE_XC_GEN,          /* class generation */
    MOUSE_XC_STASH,        /* symbol table hash */

    MOUSE_XC_BUILDARGS,    /* Custom BUILDARGS */

    MOUSE_XC_ATTRALL,      /* all the attributes */
    MOUSE_XC_BUILDALL,     /* all the BUILD methods */
    MOUSE_XC_DEMOLISHALL,  /* all the DEMOLISH methods */

    MOUSE_XC_last
};

static MGVTBL mouse_xc_vtbl; /* for identity */

static void
mouse_class_push_attribute_list(pTHX_ SV* const metaclass, AV* const attrall, HV* const seen){
    dSP;
    I32 n;

    /* $meta->get_attribute_list */
    PUSHMARK(SP);
    XPUSHs(metaclass);
    PUTBACK;

    n = call_sv(mouse_get_attribute_list, G_ARRAY | G_METHOD);
    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(attrall, newSVsv( mcall1(metaclass, mouse_get_attribute, name) ));
    }
}

static int
mouse_class_has_custom_buildargs(pTHX_ HV* const stash) {
    XS(XS_Mouse__Object_BUILDARGS); /* prototype */

    GV* const buildargs = gv_fetchmeth_autoload(stash, "BUILDARGS", sizeof("BUILDARGS")-1, 0);

    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) {
    AV* const linearized_isa = mro_get_linear_isa(stash);
    I32 const len            = AvFILLp(linearized_isa);
    I32 i;
    U32 flags             = 0x00;
    AV* const attrall     = newAV();
    AV* const buildall    = newAV();
    AV* const demolishall = newAV();
    HV* const seen        = newHV(); /* for attributes */

    ENTER;
    SAVETMPS;

    sv_2mortal((SV*)seen);

     /* old data will be delete at the end of the perl scope */
    av_delete(xc, MOUSE_XC_DEMOLISHALL, 0x00);
    av_delete(xc, MOUSE_XC_BUILDALL,    0x00);
    av_delete(xc, MOUSE_XC_ATTRALL,     0x00);

    SvREFCNT_inc_simple_void_NN(linearized_isa);
    sv_2mortal((SV*)linearized_isa);

    /* update */

    if(predicate_calls(metaclass, "is_immutable")){
        flags |= MOUSEf_XC_IS_IMMUTABLE;
    }

    if(predicate_calls(metaclass, "is_anon_class")){
        flags |= MOUSEf_XC_IS_ANON;
    }

    if(mouse_class_has_custom_buildargs(aTHX_ stash)){
        flags |= MOUSEf_XC_HAS_BUILDARGS;
    }

    av_store(xc, MOUSE_XC_FLAGS,       newSVuv(flags));
    av_store(xc, MOUSE_XC_ATTRALL,     (SV*)attrall);
    av_store(xc, MOUSE_XC_BUILDALL,    (SV*)buildall);
    av_store(xc, MOUSE_XC_DEMOLISHALL, (SV*)demolishall);

    for(i = 0; i < len; i++){
        SV* const klass = MOUSE_av_at(linearized_isa, i);
        SV* meta;
        GV* gv;

        gv = stash_fetchs(stash, "BUILD", FALSE);
        if(gv && GvCVu(gv)){
            av_push(buildall, newRV_inc((SV*)GvCV(gv)));
        }

        gv = stash_fetchs(stash, "DEMOLISH", FALSE);
        if(gv && GvCVu(gv)){
            av_push(demolishall, newRV_inc((SV*)GvCV(gv)));
        }

        /* ATTRIBUTES */
        meta = get_metaclass(klass);
        if(!SvOK(meta)){
            continue; /* skip non-Mouse classes */
        }

        mouse_class_push_attribute_list(aTHX_ meta, attrall, seen);
    }

    FREETMPS;
    LEAVE;

    sv_setuv(MOUSE_xc_gen(xc), mro_get_pkg_gen(stash));
}

AV*
mouse_get_xc(pTHX_ SV* const metaclass) {
    AV* xc;
    SV* gen;
    HV* stash;
    MAGIC* mg;

    if(!IsObject(metaclass)){
        croak("Not a Mouse metaclass");
    }

    mg = mouse_mg_find(aTHX_ SvRV(metaclass), &mouse_xc_vtbl, 0x00);
    if(!mg){
        SV* const package = get_slot(metaclass, mouse_package);
        STRLEN len;
        const char* const pv = SvPV_const(package, len);

        stash = gv_stashpvn(pv, len, TRUE);
        xc    = newAV();

        mg = sv_magicext(SvRV(metaclass), (SV*)xc, PERL_MAGIC_ext, &mouse_xc_vtbl, pv, len);
        SvREFCNT_dec(xc); /* refcnt++ in sv_magicext */

        av_extend(xc, MOUSE_XC_last - 1);

        av_store(xc, MOUSE_XC_GEN, newSViv(0));
        av_store(xc, MOUSE_XC_STASH, (SV*)stash);

        SvREFCNT_inc_simple_void_NN(stash);
    }
    else{
        xc    = (AV*)MOUSE_mg_obj(mg);

        assert(xc);
        assert(SvTYPE(xc) == SVt_PVAV);
    }

    gen   = MOUSE_xc_gen(xc);
    stash = MOUSE_xc_stash(xc);

    if(SvUV(gen) != mro_get_pkg_gen(stash)){
        mouse_class_update_xc(aTHX_ metaclass, stash, xc);
    }

    return xc;
}

HV*
mouse_build_args(pTHX_ SV* metaclass, SV* const klass, I32 const start, I32 const items, I32 const ax) {
    HV* args;
    if((items - start) == 1){
        SV* const args_ref = ST(start);
        if(!IsHashRef(args_ref)){
            if(!metaclass){ metaclass = get_metaclass(klass); }
            mouse_throw_error(metaclass, NULL, "Single parameters to new() must be a HASH ref");
        }
        args = newHVhv((HV*)SvRV(args_ref));
        sv_2mortal((SV*)args);
    }
    else{
        I32 i;

        args = newHV_mortal();

        if( ((items - start) % 2) != 0 ){
            if(!metaclass){ metaclass = get_metaclass(klass); }
            mouse_throw_error(metaclass, NULL, "Odd number of parameters to new()");
        }

        for(i = start; i < items; i += 2){
            (void)hv_store_ent(args, ST(i), newSVsv(ST(i+1)), 0U);
        }

    }
    return args;
}

void
mouse_class_initialize_object(pTHX_ SV* const meta, SV* const object, HV* const args, bool const ignore_triggers) {
    AV* const xc    = mouse_get_xc(aTHX_ meta);
    AV* const attrs = MOUSE_xc_attrall(xc);
    I32 len         = AvFILLp(attrs) + 1;
    I32 i;
    AV* triggers_queue = NULL;

    ENTER;
    SAVETMPS;

    if(!ignore_triggers){
        triggers_queue = newAV_mortal();
    }

    for(i = 0; i < len; i++){
        SV* const attr = AvARRAY(attrs)[i];
        AV* const xa   = mouse_get_xa(aTHX_ AvARRAY(attrs)[i]);

        SV* const slot     = MOUSE_xa_slot(xa);
        U16 const flags    = (U16)MOUSE_xa_flags(xa);
        SV* const init_arg = MOUSE_xa_init_arg(xa);
        HE* he;

        if(SvOK(init_arg) && ( he = hv_fetch_ent(args, init_arg, FALSE, 0U) ) ){
            SV* value = HeVAL(he);
            if(flags & MOUSEf_ATTR_HAS_TC){
                value = mouse_xa_apply_type_constraint(aTHX_ xa, value, flags);
            }
            set_slot(object, slot, value);
            if(SvROK(value) && flags & MOUSEf_ATTR_IS_WEAK_REF){
                weaken_slot(object, slot);
            }
            if(flags & MOUSEf_ATTR_HAS_TRIGGER && triggers_queue){
                AV* const pair = newAV();
                av_push(pair, newSVsv( mcall0s(attr, "trigger") ));
                av_push(pair, newSVsv(value));

                av_push(triggers_queue, (SV*)pair);
            }
        }
        else { /* no init arg */
            if(flags & (MOUSEf_ATTR_HAS_DEFAULT | MOUSEf_ATTR_HAS_BUILDER)){
                if(!(flags & MOUSEf_ATTR_IS_LAZY)){
                    mouse_xa_set_default(aTHX_ xa, object);
                }
            }
            else if(flags & MOUSEf_ATTR_IS_REQUIRED) {
                mouse_throw_error(attr, NULL, "Attribute (%"SVf") is required", slot);
            }
        }
    } /* for each attributes */

    if(triggers_queue){
        len = AvFILLp(triggers_queue) + 1;
        for(i = 0; i < len; i++){
            AV* const pair    = (AV*)AvARRAY(triggers_queue)[i];
            SV* const trigger = AvARRAY(pair)[0];
            SV* const value   = AvARRAY(pair)[1];

            mcall1(object, trigger, value);
        }
    }

    if(MOUSE_xc_flags(xc) & MOUSEf_XC_IS_ANON){
        set_slot(object, newSVpvs_flags("__ANON__", SVs_TEMP), meta);
    }

    FREETMPS;
    LEAVE;
}

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_get_attribute      = newSVpvs_share("get_attribute");
    mouse_get_attribute_list = newSVpvs_share("get_attribute_list");

    MOUSE_CALL_BOOT(Mouse__Util);
    MOUSE_CALL_BOOT(Mouse__Util__TypeConstraints);
    MOUSE_CALL_BOOT(Mouse__Meta__Method__Accessor__XS);
    MOUSE_CALL_BOOT(Mouse__Meta__Attribute);


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);

HV*
namespace(SV* self)
CODE:
{
    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

# 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:
    INSTALL_SIMPLE_READER(Class, roles);
    INSTALL_SIMPLE_PREDICATE_WITH_KEY(Class, is_anon_class, anon_serial_id);

void
linearized_isa(SV* self)
PPCODE:
{
    SV* const stash_ref = mcall0(self, mouse_namespace); /* $self->namespace */
    AV* linearized_isa;
    I32 len;
    I32 i;
    if(!(SvROK(stash_ref) && SvTYPE(SvRV(stash_ref)) == SVt_PVHV)){
        croak("namespace() didn't return a HASH reference");
    }
    linearized_isa = mro_get_linear_isa((HV*)SvRV(stash_ref));
    len = AvFILLp(linearized_isa) + 1;
    EXTEND(SP, len);
    for(i = 0; i < len; i++){
        PUSHs(AvARRAY(linearized_isa)[i]);
    }
}

void
get_all_attributes(SV* self)
PPCODE:
{
    AV* const xc        = mouse_get_xc(aTHX_ self);
    AV* const all_attrs =  MOUSE_xc_attrall(xc);
    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) );
    }
}

SV*
new_object_(SV* meta, ...)
CODE:
{
    HV* const args = mouse_build_args(aTHX_ meta, NULL, 1, items, ax);
    AV* const xc   = mouse_get_xc(aTHX_ meta);

    RETVAL = mouse_instance_create(aTHX_ MOUSE_xc_stash(xc));
    mouse_class_initialize_object(aTHX_ meta, RETVAL, args, FALSE);
}


void
_initialize_object(SV* meta, SV* object, HV* args, bool ignore_triggers = FALSE)
CODE:
{
    mouse_class_initialize_object(aTHX_ meta, object, args, ignore_triggers);
}

MODULE = Mouse  PACKAGE = Mouse::Meta::Role

BOOT:
    INSTALL_SIMPLE_READER_WITH_KEY(Role, get_roles, roles);
    INSTALL_SIMPLE_PREDICATE_WITH_KEY(Role, is_anon_role, anon_serial_id);

MODULE = Mouse  PACKAGE = Mouse::Object

HV*
BUILDARGS(SV* klass, ...)
CODE:
{
    RETVAL = mouse_build_args(aTHX_ NULL, klass, 1, items, ax);
}
OUTPUT:
    RETVAL
Commit	Line	Data
1b812057	1	#define NEED_newSVpvn_flags_GLOBAL
df6dd016	2	#include "mouse.h"
df6dd016	3
cccb83de	4	SV* mouse_package;
cccb83de	5	SV* mouse_namespace;
3e44140b	6	SV* mouse_methods;
a5df48e5	7	SV* mouse_name;
047d7af0	8	SV* mouse_get_attribute;
047d7af0	9	SV* mouse_get_attribute_list;
cccb83de	10
4e7e3250	11	#define MOUSE_xc_flags(a) SvUVX(MOUSE_av_at((a), MOUSE_XC_FLAGS))
a39e9541	12	#define MOUSE_xc_gen(a) MOUSE_av_at((a), MOUSE_XC_GEN)
aa2d2e2c	13	#define MOUSE_xc_stash(a) ( (HV*)MOUSE_av_at((a), MOUSE_XC_STASH) )
a39e9541	14	#define MOUSE_xc_attrall(a) ( (AV*)MOUSE_av_at((a), MOUSE_XC_ATTRALL) )
	15	#define MOUSE_xc_buildall(a) ( (AV*)MOUSE_av_at((a), MOUSE_XC_BUILDALL) )
	16	#define MOUSE_xc_demolishall(a) ( (AV*)MOUSE_av_at((a), MOUSE_XC_DEOLISHALL) )
	17
aa2d2e2c	18	enum mouse_xc_flags_t {
	19	MOUSEf_XC_IS_IMMUTABLE = 0x0001,
	20	MOUSEf_XC_IS_ANON = 0x0002,
	21	MOUSEf_XC_HAS_BUILDARGS = 0x0004,
	22
	23	MOUSEf_XC_mask = 0xFFFF /* not used */
	24	};
	25
a39e9541	26	/* Mouse XS Metaclass object */
a39e9541	27	enum mouse_xc_ix_t{
4e7e3250	28	MOUSE_XC_FLAGS,
4e7e3250	29
a39e9541	30	MOUSE_XC_GEN, /* class generation */
aa2d2e2c	31	MOUSE_XC_STASH, /* symbol table hash */
aa2d2e2c	32
	33	MOUSE_XC_BUILDARGS, /* Custom BUILDARGS */
	34
a39e9541	35	MOUSE_XC_ATTRALL, /* all the attributes */
	36	MOUSE_XC_BUILDALL, /* all the BUILD methods */
	37	MOUSE_XC_DEMOLISHALL, /* all the DEMOLISH methods */
	38
	39	MOUSE_XC_last
	40	};
	41
	42	static MGVTBL mouse_xc_vtbl; /* for identity */
	43
	44	static void
	45	mouse_class_push_attribute_list(pTHX_ SV* const metaclass, AV* const attrall, HV* const seen){
	46	dSP;
	47	I32 n;
	48
	49	/* $meta->get_attribute_list */
	50	PUSHMARK(SP);
	51	XPUSHs(metaclass);
	52	PUTBACK;
	53
047d7af0	54	n = call_sv(mouse_get_attribute_list, G_ARRAY \| G_METHOD);
a39e9541	55	for(NOOP; n > 0; n--){
	56	SV* name;
	57
	58	SPAGAIN;
	59	name = POPs;
	60	PUTBACK;
	61
	62	if(hv_exists_ent(seen, name, 0U)){
	63	continue;
	64	}
	65	(void)hv_store_ent(seen, name, &PL_sv_undef, 0U);
da4432f3	66
047d7af0	67	av_push(attrall, newSVsv( mcall1(metaclass, mouse_get_attribute, name) ));
a39e9541	68	}
a39e9541	69	}
743ca82e	70
aa2d2e2c	71	static int
	72	mouse_class_has_custom_buildargs(pTHX_ HV* const stash) {
	73	XS(XS_Mouse__Object_BUILDARGS); /* prototype */
	74
	75	GV* const buildargs = gv_fetchmeth_autoload(stash, "BUILDARGS", sizeof("BUILDARGS")-1, 0);
aa2d2e2c	76
0aad0266	77	return buildargs && CvXSUB(GvCV(buildargs)) == XS_Mouse__Object_BUILDARGS;
aa2d2e2c	78	}
aa2d2e2c	79
a39e9541	80	static void
	81	mouse_class_update_xc(pTHX_ SV* const metaclass PERL_UNUSED_DECL, HV* const stash, AV* const xc) {
	82	AV* const linearized_isa = mro_get_linear_isa(stash);
	83	I32 const len = AvFILLp(linearized_isa);
	84	I32 i;
aa2d2e2c	85	U32 flags = 0x00;
a39e9541	86	AV* const attrall = newAV();
	87	AV* const buildall = newAV();
	88	AV* const demolishall = newAV();
	89	HV* const seen = newHV(); /* for attributes */
da4432f3	90
a39e9541	91	ENTER;
a39e9541	92	SAVETMPS;
da4432f3	93
a39e9541	94	sv_2mortal((SV*)seen);
da4432f3	95
a39e9541	96	/* old data will be delete at the end of the perl scope */
	97	av_delete(xc, MOUSE_XC_DEMOLISHALL, 0x00);
	98	av_delete(xc, MOUSE_XC_BUILDALL, 0x00);
	99	av_delete(xc, MOUSE_XC_ATTRALL, 0x00);
743ca82e	100
a39e9541	101	SvREFCNT_inc_simple_void_NN(linearized_isa);
a39e9541	102	sv_2mortal((SV*)linearized_isa);
da4432f3	103
a39e9541	104	/* update */
da4432f3	105
4e7e3250	106	if(predicate_calls(metaclass, "is_immutable")){
aa2d2e2c	107	flags \|= MOUSEf_XC_IS_IMMUTABLE;
	108	}
	109
4e7e3250	110	if(predicate_calls(metaclass, "is_anon_class")){
	111	flags \|= MOUSEf_XC_IS_ANON;
	112	}
	113
aa2d2e2c	114	if(mouse_class_has_custom_buildargs(aTHX_ stash)){
	115	flags \|= MOUSEf_XC_HAS_BUILDARGS;
	116	}
	117
4e7e3250	118	av_store(xc, MOUSE_XC_FLAGS, newSVuv(flags));
a39e9541	119	av_store(xc, MOUSE_XC_ATTRALL, (SV*)attrall);
	120	av_store(xc, MOUSE_XC_BUILDALL, (SV*)buildall);
	121	av_store(xc, MOUSE_XC_DEMOLISHALL, (SV*)demolishall);
da4432f3	122
a39e9541	123	for(i = 0; i < len; i++){
047d7af0	124	SV* const klass = MOUSE_av_at(linearized_isa, i);
a39e9541	125	SV* meta;
a39e9541	126	GV* gv;
da4432f3	127
a39e9541	128	gv = stash_fetchs(stash, "BUILD", FALSE);
	129	if(gv && GvCVu(gv)){
	130	av_push(buildall, newRV_inc((SV*)GvCV(gv)));
	131	}
da4432f3	132
a39e9541	133	gv = stash_fetchs(stash, "DEMOLISH", FALSE);
	134	if(gv && GvCVu(gv)){
	135	av_push(demolishall, newRV_inc((SV*)GvCV(gv)));
	136	}
da4432f3	137
a39e9541	138	/* ATTRIBUTES */
aa2d2e2c	139	meta = get_metaclass(klass);
a39e9541	140	if(!SvOK(meta)){
	141	continue; /* skip non-Mouse classes */
	142	}
da4432f3	143
a39e9541	144	mouse_class_push_attribute_list(aTHX_ meta, attrall, seen);
a39e9541	145	}
da4432f3	146
a39e9541	147	FREETMPS;
a39e9541	148	LEAVE;
da4432f3	149
a39e9541	150	sv_setuv(MOUSE_xc_gen(xc), mro_get_pkg_gen(stash));
a39e9541	151	}
da4432f3	152
a39e9541	153	AV*
	154	mouse_get_xc(pTHX_ SV* const metaclass) {
	155	AV* xc;
	156	SV* gen;
	157	HV* stash;
	158	MAGIC* mg;
	159
	160	if(!IsObject(metaclass)){
	161	croak("Not a Mouse metaclass");
	162	}
da4432f3	163
a39e9541	164	mg = mouse_mg_find(aTHX_ SvRV(metaclass), &mouse_xc_vtbl, 0x00);
	165	if(!mg){
	166	SV* const package = get_slot(metaclass, mouse_package);
aa2d2e2c	167	STRLEN len;
aa2d2e2c	168	const char* const pv = SvPV_const(package, len);
da4432f3	169
aa2d2e2c	170	stash = gv_stashpvn(pv, len, TRUE);
a39e9541	171	xc = newAV();
da4432f3	172
aa2d2e2c	173	mg = sv_magicext(SvRV(metaclass), (SV*)xc, PERL_MAGIC_ext, &mouse_xc_vtbl, pv, len);
a39e9541	174	SvREFCNT_dec(xc); /* refcnt++ in sv_magicext */
da4432f3	175
a39e9541	176	av_extend(xc, MOUSE_XC_last - 1);
aa2d2e2c	177
a39e9541	178	av_store(xc, MOUSE_XC_GEN, newSViv(0));
aa2d2e2c	179	av_store(xc, MOUSE_XC_STASH, (SV*)stash);
4e7e3250	180
aa2d2e2c	181	SvREFCNT_inc_simple_void_NN(stash);
da4432f3	182	}
a39e9541	183	else{
a39e9541	184	xc = (AV*)MOUSE_mg_obj(mg);
da4432f3	185
a39e9541	186	assert(xc);
	187	assert(SvTYPE(xc) == SVt_PVAV);
	188	}
da4432f3	189
aa2d2e2c	190	gen = MOUSE_xc_gen(xc);
	191	stash = MOUSE_xc_stash(xc);
	192
a39e9541	193	if(SvUV(gen) != mro_get_pkg_gen(stash)){
a39e9541	194	mouse_class_update_xc(aTHX_ metaclass, stash, xc);
da4432f3	195	}
a39e9541	196
	197	return xc;
	198	}
	199
aa2d2e2c	200	HV*
0aad0266	201	mouse_build_args(pTHX_ SV* metaclass, SV* const klass, I32 const start, I32 const items, I32 const ax) {
aa2d2e2c	202	HV* args;
	203	if((items - start) == 1){
	204	SV* const args_ref = ST(start);
	205	if(!IsHashRef(args_ref)){
	206	if(!metaclass){ metaclass = get_metaclass(klass); }
	207	mouse_throw_error(metaclass, NULL, "Single parameters to new() must be a HASH ref");
	208	}
	209	args = newHVhv((HV*)SvRV(args_ref));
	210	sv_2mortal((SV*)args);
	211	}
	212	else{
	213	I32 i;
	214
6fab29c6	215	args = newHV_mortal();
aa2d2e2c	216
	217	if( ((items - start) % 2) != 0 ){
	218	if(!metaclass){ metaclass = get_metaclass(klass); }
	219	mouse_throw_error(metaclass, NULL, "Odd number of parameters to new()");
	220	}
	221
	222	for(i = start; i < items; i += 2){
	223	(void)hv_store_ent(args, ST(i), newSVsv(ST(i+1)), 0U);
	224	}
	225
	226	}
	227	return args;
	228	}
	229
	230	void
d4712779	231	mouse_class_initialize_object(pTHX_ SV* const meta, SV* const object, HV* const args, bool const ignore_triggers) {
	232	AV* const xc = mouse_get_xc(aTHX_ meta);
	233	AV* const attrs = MOUSE_xc_attrall(xc);
4e7e3250	234	I32 len = AvFILLp(attrs) + 1;
d4712779	235	I32 i;
4e7e3250	236	AV* triggers_queue = NULL;
	237
	238	ENTER;
	239	SAVETMPS;
	240
	241	if(!ignore_triggers){
	242	triggers_queue = newAV_mortal();
	243	}
0aad0266	244
d4712779	245	for(i = 0; i < len; i++){
4e7e3250	246	SV* const attr = AvARRAY(attrs)[i];
	247	AV* const xa = mouse_get_xa(aTHX_ AvARRAY(attrs)[i]);
	248
	249	SV* const slot = MOUSE_xa_slot(xa);
	250	U16 const flags = (U16)MOUSE_xa_flags(xa);
	251	SV* const init_arg = MOUSE_xa_init_arg(xa);
	252	HE* he;
	253
	254	if(SvOK(init_arg) && ( he = hv_fetch_ent(args, init_arg, FALSE, 0U) ) ){
	255	SV* value = HeVAL(he);
	256	if(flags & MOUSEf_ATTR_HAS_TC){
	257	value = mouse_xa_apply_type_constraint(aTHX_ xa, value, flags);
	258	}
	259	set_slot(object, slot, value);
	260	if(SvROK(value) && flags & MOUSEf_ATTR_IS_WEAK_REF){
	261	weaken_slot(object, slot);
	262	}
	263	if(flags & MOUSEf_ATTR_HAS_TRIGGER && triggers_queue){
	264	AV* const pair = newAV();
	265	av_push(pair, newSVsv( mcall0s(attr, "trigger") ));
	266	av_push(pair, newSVsv(value));
	267
	268	av_push(triggers_queue, (SV*)pair);
	269	}
	270	}
	271	else { /* no init arg */
	272	if(flags & (MOUSEf_ATTR_HAS_DEFAULT \| MOUSEf_ATTR_HAS_BUILDER)){
	273	if(!(flags & MOUSEf_ATTR_IS_LAZY)){
	274	mouse_xa_set_default(aTHX_ xa, object);
	275	}
	276	}
	277	else if(flags & MOUSEf_ATTR_IS_REQUIRED) {
	278	mouse_throw_error(attr, NULL, "Attribute (%"SVf") is required", slot);
	279	}
	280	}
	281	} /* for each attributes */
	282
	283	if(triggers_queue){
	284	len = AvFILLp(triggers_queue) + 1;
	285	for(i = 0; i < len; i++){
	286	AV* const pair = (AV*)AvARRAY(triggers_queue)[i];
	287	SV* const trigger = AvARRAY(pair)[0];
	288	SV* const value = AvARRAY(pair)[1];
	289
	290	mcall1(object, trigger, value);
	291	}
	292	}
	293
	294	if(MOUSE_xc_flags(xc) & MOUSEf_XC_IS_ANON){
	295	set_slot(object, newSVpvs_flags("__ANON__", SVs_TEMP), meta);
d4712779	296	}
4e7e3250	297
	298	FREETMPS;
	299	LEAVE;
aa2d2e2c	300	}
aa2d2e2c	301
646c0371	302	MODULE = Mouse PACKAGE = Mouse
df6dd016	303
	304	PROTOTYPES: DISABLE
	305
cccb83de	306	BOOT:
	307	mouse_package = newSVpvs_share("package");
	308	mouse_namespace = newSVpvs_share("namespace");
3e44140b	309	mouse_methods = newSVpvs_share("methods");
a5df48e5	310	mouse_name = newSVpvs_share("name");
3e44140b	311
047d7af0	312	mouse_get_attribute = newSVpvs_share("get_attribute");
047d7af0	313	mouse_get_attribute_list = newSVpvs_share("get_attribute_list");
da4432f3	314
646c0371	315	MOUSE_CALL_BOOT(Mouse__Util);
1d5ecd5f	316	MOUSE_CALL_BOOT(Mouse__Util__TypeConstraints);
646c0371	317	MOUSE_CALL_BOOT(Mouse__Meta__Method__Accessor__XS);
aa2d2e2c	318	MOUSE_CALL_BOOT(Mouse__Meta__Attribute);
f48920c1	319
cccb83de	320
7d96ae4d	321	MODULE = Mouse PACKAGE = Mouse::Meta::Module
	322
	323	BOOT:
	324	INSTALL_SIMPLE_READER_WITH_KEY(Module, name, package);
	325	INSTALL_SIMPLE_READER_WITH_KEY(Module, _method_map, methods);
	326	INSTALL_SIMPLE_READER_WITH_KEY(Module, _attribute_map, attributes);
	327
	328	HV*
	329	namespace(SV* self)
	330	CODE:
	331	{
6a97bbda	332	SV* const package = get_slot(self, mouse_package);
7d96ae4d	333	if(!(package && SvOK(package))){
3e44140b	334	croak("No package name defined");
7d96ae4d	335	}
	336	RETVAL = gv_stashsv(package, GV_ADDMULTI);
	337	}
	338	OUTPUT:
	339	RETVAL
	340
3e44140b	341	# ignore extra arguments for extensibility
	342	void
	343	add_method(SV* self, SV* name, SV* code, ...)
	344	CODE:
	345	{
6a97bbda	346	SV* const package = get_slot(self, mouse_package); /* $self->{package} */
6a97bbda	347	SV* const methods = get_slot(self, mouse_methods); /* $self->{methods} */
3e44140b	348	GV* gv;
	349	SV* code_ref;
	350
	351	if(!(package && SvOK(package))){
	352	croak("No package name defined");
	353	}
	354
	355	SvGETMAGIC(name);
	356	SvGETMAGIC(code);
	357
	358	if(!SvOK(name)){
	359	mouse_throw_error(self, NULL, "You must define a method name");
	360	}
	361	if(!SvROK(code)){
	362	mouse_throw_error(self, NULL, "You must define a CODE reference");
	363	}
	364
	365	code_ref = code;
	366	if(SvTYPE(SvRV(code_ref)) != SVt_PVCV){
	367	SV* sv = code_ref; /* used in tryAMAGICunDEREF */
	368	SV** sp = &sv; /* used in tryAMAGICunDEREF */
	369	tryAMAGICunDEREF(to_cv); /* try \&{$code} */
	370	if(SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV){
	371	mouse_throw_error(self, NULL, "Not a CODE reference");
	372	}
	373	code_ref = sv;
	374	}
	375
	376	/* {$package . '::' . $name} -> gv */
	377	gv = gv_fetchpv(form("%"SVf"::%"SVf, package, name), GV_ADDMULTI, SVt_PVCV);
	378	if(GvCVu(gv)){ /* delete slot{gv} to work around "redefine" warning /
	379	SvREFCNT_dec(GvCV(gv));
	380	GvCV(gv) = NULL;
	381	}
	382	sv_setsv_mg((SV)gv, code_ref); / gv = $code_ref /
	383
6fe2272b	384	set_slot(methods, name, code); /* $self->{methods}{$name} = $code */
3e44140b	385
	386	/* TODO: name the CODE ref if it's anonymous */
	387	//code_entity = (CV*)SvRV(code_ref);
	388	//if(CvANON(code_entity)
	389	// && CvGV(code_entity) /* a cv under construction has no gv */ ){
	390
	391	// CvGV(code_entity) = gv;
	392	// CvANON_off(code_entity);
	393	//}
	394	}
	395
43165725	396	MODULE = Mouse PACKAGE = Mouse::Meta::Class
	397
	398	BOOT:
	399	INSTALL_SIMPLE_READER(Class, roles);
	400	INSTALL_SIMPLE_PREDICATE_WITH_KEY(Class, is_anon_class, anon_serial_id);
	401
cccb83de	402	void
	403	linearized_isa(SV* self)
	404	PPCODE:
	405	{
	406	SV* const stash_ref = mcall0(self, mouse_namespace); /* $self->namespace */
	407	AV* linearized_isa;
	408	I32 len;
	409	I32 i;
	410	if(!(SvROK(stash_ref) && SvTYPE(SvRV(stash_ref)) == SVt_PVHV)){
	411	croak("namespace() didn't return a HASH reference");
	412	}
	413	linearized_isa = mro_get_linear_isa((HV*)SvRV(stash_ref));
	414	len = AvFILLp(linearized_isa) + 1;
	415	EXTEND(SP, len);
	416	for(i = 0; i < len; i++){
	417	PUSHs(AvARRAY(linearized_isa)[i]);
	418	}
	419	}
	420
da4432f3	421	void
	422	get_all_attributes(SV* self)
	423	PPCODE:
	424	{
0aad0266	425	AV* const xc = mouse_get_xc(aTHX_ self);
0aad0266	426	AV* const all_attrs = MOUSE_xc_attrall(xc);
da4432f3	427	I32 const len = AvFILLp(all_attrs) + 1;
	428	I32 i;
	429
	430	EXTEND(SP, len);
	431	for(i = 0; i < len; i++){
	432	PUSHs( MOUSE_av_at(all_attrs, i) );
	433	}
	434	}
441964ce	435
aa2d2e2c	436	SV*
	437	new_object_(SV* meta, ...)
	438	CODE:
	439	{
	440	HV* const args = mouse_build_args(aTHX_ meta, NULL, 1, items, ax);
	441	AV* const xc = mouse_get_xc(aTHX_ meta);
d4712779	442
aa2d2e2c	443	RETVAL = mouse_instance_create(aTHX_ MOUSE_xc_stash(xc));
d4712779	444	mouse_class_initialize_object(aTHX_ meta, RETVAL, args, FALSE);
aa2d2e2c	445	}
	446
	447
	448	void
4e7e3250	449	_initialize_object(SV* meta, SV* object, HV* args, bool ignore_triggers = FALSE)
aa2d2e2c	450	CODE:
aa2d2e2c	451	{
d4712779	452	mouse_class_initialize_object(aTHX_ meta, object, args, ignore_triggers);
aa2d2e2c	453	}
aa2d2e2c	454
43165725	455	MODULE = Mouse PACKAGE = Mouse::Meta::Role
	456
	457	BOOT:
	458	INSTALL_SIMPLE_READER_WITH_KEY(Role, get_roles, roles);
	459	INSTALL_SIMPLE_PREDICATE_WITH_KEY(Role, is_anon_role, anon_serial_id);
	460
aa2d2e2c	461	MODULE = Mouse PACKAGE = Mouse::Object
43165725	462
aa2d2e2c	463	HV*
	464	BUILDARGS(SV* klass, ...)
	465	CODE:
	466	{
	467	RETVAL = mouse_build_args(aTHX_ NULL, klass, 1, items, ax);
	468	}
	469	OUTPUT:
	470	RETVAL