Changeset 4655 for src/Pugs/Compile.hs

Timestamp:

06/14/05 23:42:15 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

6394

Message:

* PAST compileation and PIR emission, phase 1, works! Try this,

which generates, according to Leo, "100% correct" PIR:

% ./pugs -C PIR -e 'say "Hello, World!"'
% parrot dump.ast
Hello, World!

* Also because it's now a Proper Compiler, we have this now:

% ./pugs -C PIR -e '"Hello, World!"'
*** Literal value used in constant expression: VStr "Hello, World!"

Files:

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

src/Pugs/Compile.hs

@@ -16 +16 @@
 import Pugs.Compile.Pugs2 (genPugs2)
 import Pugs.Compile.Parrot (genPIR)
+import Pugs.Compile.PIR (genPIR')
 import Pugs.Compile.Haskell (genGHC)
 
@@ -23 +24 @@
 compile "Pugs2"   env = fmap vCast $ runEvalIO env genPugs2
 compile "Parrot"  env = fmap vCast $ runEvalIO env genPIR
+compile "Pir"     env = fmap vCast $ runEvalIO env genPIR'
+compile "PIR"     env = fmap vCast $ runEvalIO env genPIR'
 compile s _ = fail $ "Cannot compile to " ++ s