Changeset 4851 for src/Main.hs

Timestamp:

06/19/05 18:16:50 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* no longer use dump.ast -- -C now prints directly to stdout.

Suggested by Juerd.

Files:

• src/Main.hs (modified) (2 diffs)

src/Main.hs

@@ -167 +167 @@
 doCompileDump backend file prog = do
     str <- doCompile backend' file prog
-    writeFile "dump.ast" str
+    putStr str
     where
     backend' = capitalizeWord backend
@@ -304 +304 @@
 
 runPIR :: String -> IO ()
-runPIR str = do
-    withArgs ["-CPIR", "-e", str] main
-    evalParrotFile "dump.ast"
+runPIR = do
+    pir <- doCompile "PIR" "-"
+    writeFile "a.pir" pir
+    evalParrotFile "a.pir"