Changeset 15675 for src/Pugs/Run

Timestamp:

03/13/07 10:17:48 (21 months ago)

Author:

audreyt

Message:

* Pugs.Run.Perl5: Preliminary support for converting

non-SvUTF8 data from Perl5.

Files:

• src/Pugs/Run/Perl5.hs (modified) (2 diffs)

src/Pugs/Run/Perl5.hs

@@ -44 +44 @@
 foreign export ccall "pugs_PvnToVal"
     pvnToVal :: CString -> CInt -> IO PugsVal
+
+foreign export ccall "pugs_PvnToValUTF8"
+    pvnToValUTF8 :: CString -> CInt -> IO PugsVal
 
 foreign export ccall "pugs_UndefVal"
@@ -130 +133 @@
 nvToVal = mkValPtr . VNum . realToFrac
 
+pvnToValUTF8 :: CString -> CInt -> IO PugsVal
+pvnToValUTF8 cstr len = do
+    str <- peekCStringLen (cstr, fromEnum len)
+    mkValPtr $ VStr (decodeUTF8 str)
+
 pvnToVal :: CString -> CInt -> IO PugsVal
 pvnToVal cstr len = do
     str <- peekCStringLen (cstr, fromEnum len)
-    ptr <- mkValPtr $ VStr (decodeUTF8 str)
-    return ptr
+    mkValPtr $ VStr str -- XXX - wrong - make Buf object!
 
 undefVal :: IO PugsVal