Changeset 2750 for src/Main.hs

Timestamp:

05/05/05 22:20:07 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4271

Message:

* pugs -BParrot examples/mandel.p6

Files:

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

src/Main.hs

@@ -65 +65 @@
 run ("-c":file:_)               = readFile file >>= doCheck file
 
-run ("-C":backend:"-e":prog:_)           = doCompile backend "-e" prog
-run ("-C":backend:file:_)                = readFile file >>= doCompile backend file
+run ("-C":backend:"-e":prog:_)           = doCompileDump backend "-e" prog
+run ("-C":backend:file:_)                = readFile file >>= doCompileDump backend file
+
+run ("-B":backend:"-e":prog:_)           = doCompileRun backend "-e" prog
+run ("-B":backend:file:_)                = readFile file >>= doCompileRun backend file
+
 run ("--external":mod:"-e":prog:_)    = doExternal mod "-e" prog
 run ("--external":mod:file:_)         = readFile file >>= doExternal mod file
@@ -130 +134 @@
     putStrLn str
 
-doCompile :: [Char] -> FilePath -> String -> IO ()
+doCompile :: [Char] -> FilePath -> String -> IO String
 doCompile backend = doParseWith $ \env _ -> do
     globRef <- liftSTM $ do
         glob <- readTVar $ envGlobal env
         newTVar $ userDefined glob
-    str     <- compile backend env{ envGlobal = globRef }
+    compile backend env{ envGlobal = globRef }
+
+doCompileDump :: [Char] -> FilePath -> String -> IO ()
+doCompileDump backend file prog = do
+    str <- doCompile backend file prog
     writeFile "dump.ast" str
+
+doCompileRun :: [Char] -> FilePath -> String -> IO ()
+doCompileRun backend file prog = do
+    str <- doCompile backend file prog
+    evalEmbedded backend str
 
 doParseWith :: (Env -> FilePath -> IO a) -> FilePath -> String -> IO a