X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xs-src%2FMouseUtil.xs;h=6af7e03981034db056c77591dd820ee412dfb118;hb=5132ec428048d13768f6bb012b779b991c45658e;hp=b1b4f050ee21cce02e5fee6216dea813b94b27fb;hpb=441964ce2aaf63287281b9084b131ecb124a3405;p=gitmo%2FMouse.git

diff --git a/xs-src/MouseUtil.xs b/xs-src/MouseUtil.xs
index b1b4f05..6af7e03 100644
--- a/xs-src/MouseUtil.xs
+++ b/xs-src/MouseUtil.xs
@@ -5,67 +5,67 @@
 #ifdef no_mro_get_linear_isa
 AV*
 mouse_mro_get_linear_isa(pTHX_ HV* const stash){
-	GV* const cachegv = *(GV**)hv_fetchs(stash, ISA_CACHE, TRUE);
-	AV* isa;
-	SV* gen;
-	CV* get_linear_isa;
-
-	if(!isGV(cachegv))
-		gv_init(cachegv, stash, ISA_CACHE, sizeof(ISA_CACHE)-1, TRUE);
-
-	isa = GvAVn(cachegv);
-	gen = GvSVn(cachegv);
-
-
-	if(SvIOK(gen) && SvIVX(gen) == (IV)mro_get_pkg_gen(stash)){
-		return isa; /* returns the cache if available */
-	}
-	else{
-		SvREADONLY_off(isa);
-		av_clear(isa);
-	}
-
-	get_linear_isa = get_cv("Mouse::Util::get_linear_isa", TRUE);
-
-	{
-		SV* avref;
-		dSP;
-
-		ENTER;
-		SAVETMPS;
-
-		PUSHMARK(SP);
-		mXPUSHp(HvNAME_get(stash), HvNAMELEN_get(stash));
-		PUTBACK;
-
-		call_sv((SV*)get_linear_isa, G_SCALAR);
-
-		SPAGAIN;
-		avref = POPs;
-		PUTBACK;
-
-		if(SvROK(avref) && SvTYPE(SvRV(avref)) == SVt_PVAV){
-			AV* const av  = (AV*)SvRV(avref);
-			I32 const len = AvFILLp(av) + 1;
-			I32 i;
-
-			for(i = 0; i < len; i++){
-				HV* const stash = gv_stashsv(AvARRAY(av)[i], FALSE);
-				if(stash)
-					av_push(isa, newSVpv(HvNAME(stash), 0));
-			}
-			SvREADONLY_on(isa);
-		}
-		else{
-			Perl_croak(aTHX_ "Mouse:Util::get_linear_isa() didn't return an ARRAY reference");
-		}
-
-		FREETMPS;
-		LEAVE;
-	}
-
-	sv_setiv(gen, (IV)mro_get_pkg_gen(stash));
-	return GvAV(cachegv);
+    GV* const cachegv = *(GV**)hv_fetchs(stash, ISA_CACHE, TRUE);
+    AV* isa;
+    SV* gen;
+    CV* get_linear_isa;
+
+    if(!isGV(cachegv))
+        gv_init(cachegv, stash, ISA_CACHE, sizeof(ISA_CACHE)-1, TRUE);
+
+    isa = GvAVn(cachegv);
+    gen = GvSVn(cachegv);
+
+
+    if(SvIOK(gen) && SvIVX(gen) == (IV)mro_get_pkg_gen(stash)){
+        return isa; /* returns the cache if available */
+    }
+    else{
+        SvREADONLY_off(isa);
+        av_clear(isa);
+    }
+
+    get_linear_isa = get_cv("Mouse::Util::get_linear_isa", TRUE);
+
+    {
+        SV* avref;
+        dSP;
+
+        ENTER;
+        SAVETMPS;
+
+        PUSHMARK(SP);
+        mXPUSHp(HvNAME_get(stash), HvNAMELEN_get(stash));
+        PUTBACK;
+
+        call_sv((SV*)get_linear_isa, G_SCALAR);
+
+        SPAGAIN;
+        avref = POPs;
+        PUTBACK;
+
+        if(SvROK(avref) && SvTYPE(SvRV(avref)) == SVt_PVAV){
+            AV* const av  = (AV*)SvRV(avref);
+            I32 const len = AvFILLp(av) + 1;
+            I32 i;
+
+            for(i = 0; i < len; i++){
+                HV* const stash = gv_stashsv(AvARRAY(av)[i], FALSE);
+                if(stash)
+                    av_push(isa, newSVpv(HvNAME(stash), 0));
+            }
+            SvREADONLY_on(isa);
+        }
+        else{
+            Perl_croak(aTHX_ "Mouse:Util::get_linear_isa() didn't return an ARRAY reference");
+        }
+
+        FREETMPS;
+        LEAVE;
+    }
+
+    sv_setiv(gen, (IV)mro_get_pkg_gen(stash));
+    return GvAV(cachegv);
 }
 #endif /* !no_mor_get_linear_isa */
 
@@ -112,31 +112,6 @@ mouse_throw_error(SV* const metaobject, SV* const data /* not used */, const cha
     }
 }
 
-
-/* equivalent to "blessed($x) && $x->isa($klass)" */
-bool
-mouse_is_instance_of(pTHX_ SV* const sv, SV* const klass){
-    assert(sv);
-    assert(klass);
-
-    if(IsObject(sv) && SvOK(klass)){
-        bool ok;
-
-        ENTER;
-        SAVETMPS;
-
-        ok = SvTRUEx(mcall1s(sv, "isa", klass));
-
-        FREETMPS;
-        LEAVE;
-
-        return ok;
-    }
-
-    return FALSE;
-}
-
-
 bool
 mouse_is_class_loaded(pTHX_ SV * const klass){
     HV *stash;
@@ -332,7 +307,7 @@ PPCODE:
         name_pv = SvPV_nolen_const(predicate_name);
     }
 
-    xsub = generate_isa_predicate_for(aTHX_ klass, name_pv);
+    xsub = mouse_generate_isa_predicate_for(aTHX_ klass, name_pv);
 
     if(predicate_name == NULL){ /* anonymous predicate */
         XPUSHs( newRV_noinc((SV*)xsub) );