Changeset 2790 for src/Main.hs

Timestamp:

05/06/05 22:02:37 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4340

Message:

* Pugs is now a registered Parrot compiler. To wit:

eval_parrot '

compreg $P0, "Pugs"
$S0 = "say qq[There... and back again!]"
$P0 = compile $P0, $S0
invoke $P0

';

Files:

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

src/Main.hs

@@ -29 +29 @@
 import Pugs.Compile
 import qualified Data.Map as Map
+import Data.IORef
 
 -- |Pugs' entry point. Uses 'Pugs.Run.runWithArgs' to normalise the command-line 
@@ -35 +36 @@
 main = do
     hSetBuffering stdout NoBuffering
+    when (isJust _DoCompile) $ do
+        writeIORef (fromJust _DoCompile) doCompile
     runWithArgs run