Changeset 4149 for src/Pugs/Compile.hs

Timestamp:

05/30/05 07:34:50 (3 years ago)

Author:

SamB

svk:copy_cache_prev:

5706

Message:

Yet another attempt at a Perl->Haskell compiler. Based on talking with
dons++ in #haskell about pretty printing.

Files:

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

src/Pugs/Compile.hs

@@ -14 +14 @@
 import Pugs.Internals
 import Pugs.Compile.Pugs (genPugs)
+import Pugs.Compile.Pugs2 (genPugs2)
 import Pugs.Compile.Parrot (genPIR)
 import Pugs.Compile.Haskell (genGHC)
@@ -20 +21 @@
 compile "Haskell" env = fmap vCast $ runEvalIO env genGHC
 compile "Pugs"    env = fmap vCast $ runEvalIO env genPugs
+compile "Pugs2"   env = fmap vCast $ runEvalIO env genPugs2
 compile "Parrot"  env = fmap vCast $ runEvalIO env genPIR
 compile s _ = fail $ "Cannot compile to " ++ s