Changeset 7552 for src/Pugs/Embed

Timestamp:

10/11/05 00:56:12 (3 years ago)

Author:

autrijus

Message:

* finalize Parrot embedding properly and let it flush

correctly, by calling Parrot_exit at exit. leo++

Location:

src/Pugs/Embed

Files:

• Parrot.hsc (modified) (4 diffs)
• Perl5.hs (modified) (1 diff)

src/Pugs/Embed/Parrot.hsc

@@ -134 +134 @@
 import System.IO.Unsafe
 import System.Directory
+import Pugs.Internals (_GlobalFinalizer)
 
 type ParrotString               = Ptr ()
@@ -163 +164 @@
     parrot_set_run_core interp PARROT_CGP_CORE
 #endif
+    -- parrot_set_debug interp 0x20
     parrot_imcc_init interp
     callback    <- mkCompileCallback compileToParrot
@@ -174 +176 @@
     set_pf_cur_cs pf seg
     parrot_loadbc interp pf
+    modifyIORef _GlobalFinalizer (>> parrot_exit 0)
     return interp
 
@@ -283 +286 @@
     parrot_get_strreg :: ParrotInterp -> CInt -> IO ParrotString
 
+foreign import ccall "Parrot_set_debug"
+    parrot_set_debug :: ParrotInterp -> CInt -> IO ()
+
+foreign import ccall "Parrot_exit"
+    parrot_exit :: CInt -> IO ()
+
 foreign import ccall "string_to_cstring"
     parrot_string_to_cstring :: ParrotInterp -> ParrotString -> IO CString

src/Pugs/Embed/Perl5.hs

@@ -135 +135 @@
                 Just val -> pugs_setenv =<< mkVal val
                 Nothing -> return ()
+            modifyIORef _GlobalFinalizer (>> perl_free interp)
             return interp