Changeset 3901 for src/perl5

Timestamp:

05/26/05 05:57:27 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* Perl 6 values now roundtrip into Perl 5 land and back.

Location:

src/perl5

Files:

• perl5.c (modified) (2 diffs)
• perl5.h (modified) (1 diff)

src/perl5/perl5.c

@@ -126 +126 @@
 }
 
+bool
+perl5_SvTRUE ( SV * sv )
+{
+    bool *rv;
+    rv = SvTRUE(sv);
+    return rv;
+}
+
+void *
+perl5_SvPtr ( SV *sv )
+{
+    IV tmp = SvIV((SV*)SvRV(sv));
+    return((void *)tmp);
+}
+
 SV *
 perl5_newSVpv ( char * pv )
@@ -136 +151 @@
 {
     return(newSViv(iv));
+}
+
+SV *
+perl5_newSVptr ( void * ptr )
+{
+    SV *sv = newSV(0);
+    sv_setref_pv(sv, "pugs", ptr);
+    return(sv);
 }
 

src/perl5/perl5.h

@@ -5 +5 @@
 PerlInterpreter * perl5_init ( int argc, char **argv );
 char * perl5_SvPV ( SV * sv );
+bool perl5_SvTRUE ( SV * sv );
+void * perl5_SvPtr ( SV * sv );
 SV * perl5_newSVpv ( char * pv );
 SV * perl5_newSViv ( int iv );
+SV * perl5_newSVptr ( void * ptr );
 SV * perl5_call(char *subname, int argc, SV** args, int cxt);
 bool perl5_can(SV *inv, char *subname);