Changeset 2401 for src/Pugs/Compile.hs

Timestamp:

04/27/05 17:17:20 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* compile subroutines to Parrot.

Files:

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

src/Pugs/Compile.hs

@@ -12 +12 @@
 module Pugs.Compile where
 import Pugs.AST
+import Pugs.Internals
 import Pugs.Compile.Pugs (genPugs)
 import Pugs.Compile.Parrot (genPIR)
@@ -17 +18 @@
 
 compile :: String -> Env -> IO String
-compile "Haskell" = genGHC
-compile "Pugs" = genPugs
-compile "Parrot" = genPIR
-compile s = const (error $ "Cannot compile to " ++ s)
+compile "Haskell" env = fmap vCast $ runEval env genGHC
+compile "Pugs"    env = fmap vCast $ runEval env genPugs
+compile "Parrot"  env = fmap vCast $ runEval env genPIR
+compile s _ = fail $ "Cannot compile to " ++ s