Changeset 4149

Timestamp:

05/30/05 07:34:50 (4 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.

Location:

src/Pugs

Files:

• Compile.hs (modified) (2 diffs)
• Compile/Pugs2.hs (added)

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