Changeset 2750 for src/Pugs/Embed.hs

Timestamp:

05/05/05 22:20:07 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4271

Message:

* pugs -BParrot examples/mandel.p6

Files:

• src/Pugs/Embed.hs (modified) (2 diffs)

src/Pugs/Embed.hs

@@ -14 +14 @@
     module Pugs.Embed.Haskell,
     module Pugs.Embed.Parrot,
+    evalEmbedded
     -- module Pugs.Embed.Ponie,
 ) where
@@ -21 +22 @@
 -- import Pugs.Embed.Ponie
 
+evalEmbedded "Parrot"  code = do
+    evalParrot code
+evalEmbedded "Haskell" code = do
+    evalHaskell code
+    return ()
+evalEmbedded "Perl5" code = do
+    interp <- initPerl5 ""
+    evalPerl5 code
+    freePerl5 interp
+evalEmbedded s _ = fail $ "Cannot evaluate in " ++ s