[svn:ponie] rev 316 - trunk/src/pmc

Author: nicholas
Date: Fri Jul  8 13:36:27 2005
New Revision: 316

Modified:
   trunk/src/pmc/perl5cargo_cult.pmc
Log:
And another bit that I forgoot. :-(


Modified: trunk/src/pmc/perl5cargo_cult.pmc
==============================================================================
--- trunk/src/pmc/perl5cargo_cult.pmc	(original)
+++ trunk/src/pmc/perl5cargo_cult.pmc	Fri Jul  8 13:36:27 2005
@@ -104,10 +104,25 @@ pmclass Perl5cargo_cult dynpmc {
 	abort();
     }
 
+    void set_number_native(FLOATVAL value) {
+        Perl_sv_setnv_backend(aTHX_ MUMBLE(SELF), value, SV_SMAGIC);
+    }
+
     FLOATVAL get_number() {
         return Perl_sv_2nv_backend(aTHX_ MUMBLE(SELF));
     }
 
+    void set_number_keyed_int (INTVAL key, FLOATVAL value) {
+        switch (key) {
+        case Ponie_N_SV_NV_NO_GMAGIC:
+            Perl_sv_setnv_backend(aTHX_ MUMBLE(SELF), value, 0);
+            break;
+        default:
+            croak ("Out of range or illegal key %d (max is %d)"
+                   " set_number_keyed_int", key, Ponie_N_MAX - 1);
+        }
+    }
+
     INTVAL get_integer() {
         return Perl_sv_2iv_backend(aTHX_ MUMBLE(SELF), SV_GMAGIC);
     }