Changeset 3956 for src/Pugs/Run

Timestamp:

05/27/05 04:31:40 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* new callconv -- pugs apply now takes Cxt

Files:

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

src/Pugs/Run/Perl5.hs

@@ -9 +9 @@
 import Pugs.Prim.Eval
 import Pugs.Embed.Perl5
+import Pugs.Types
 import Foreign
 import Foreign.C.Types
@@ -18 +19 @@
 
 foreign export ccall "pugs_Apply"
-    pugs_apply :: PugsVal -> PugsVal -> Ptr PugsVal -> IO PerlSV
+    pugs_apply :: PugsVal -> PugsVal -> Ptr PugsVal -> CInt -> IO PerlSV
 
 foreign export ccall "pugs_ValToSv"
@@ -60 +61 @@
     mkVal val
 
-pugs_apply :: PugsVal -> PugsVal -> Ptr PugsVal -> IO PerlSV
-pugs_apply subPtr invPtr argsPtr = do
+pugs_apply :: PugsVal -> PugsVal -> Ptr PugsVal -> CInt -> IO PerlSV
+pugs_apply subPtr invPtr argsPtr cxt = do
     -- print "DEREF #0"
     env     <- askPerl5Env
@@ -74 +75 @@
             VStr name   -> Var name
             _           -> Val sub
-    val <- runEvalIO env $ evalExp (App subExp (fmap Val inv) (map Val args))
+    val <- runEvalIO env $
+        evalExp (Cxt (cxtEnum cxt) $ App subExp (fmap Val inv) (map Val args))
     case val of
         PerlSV sv   -> return sv