Changeset 4738 for src/Main.hs

Timestamp:

06/17/05 14:46:26 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6529

Message:

* PIR - do {...} blocks.

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -298 +298 @@
 printConfigInfo (item:_) = do
         putStrLn $ createConfigLine item
+
+compPIR :: String -> IO ()
+compPIR = (putStr =<<) . doCompile "PIR" "-"
+
+runPIR :: String -> IO ()
+runPIR str = do
+    withArgs ["-CPIR", "-e", str] main
+    evalParrotFile "dump.ast"