Changeset 3943 for src/Pugs/Run/Perl5.hs

Timestamp:

05/27/05 03:15:20 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* switch to use PL_modglobal.

Files:

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

src/Pugs/Run/Perl5.hs

@@ -46 +46 @@
 askPerl5Env :: IO Env
 askPerl5Env = do
-    sv  <- withCString "pugs::env" perl5_get_sv 
-    val <- svToVal sv
+    val <- deVal =<< pugs_getenv
     case val of
         VControl (ControlEnv env)   -> return env
-        _                           -> fail "cannot fetch $pugs::env"
+        _                           -> do
+            print val
+            fail "cannot fetch $pugs::env"
 
 pugs_eval :: CString -> IO PugsVal
@@ -61 +62 @@
 pugs_apply :: PugsVal -> PugsVal -> Ptr PugsVal -> IO PugsVal
 pugs_apply subPtr invPtr argsPtr = do
+    print "DEREF #0"
     env     <- askPerl5Env
-    -- print "DEREF #1"
+    print "DEREF #1"
     sub     <- deVal subPtr
-    -- print "DEREF #2"
+    print "DEREF #2"
     inv     <- deValMaybe invPtr
-    -- print "DEREF #3"
+    print "DEREF #3"
     args    <- mapM deVal =<< peekArray0 nullPtr argsPtr
     let subExp = case sub of