Changeset 5397 for src/Main.hs

Timestamp:

07/11/05 08:18:30 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7349

Message:

* Compilation no longer include prelude, unless PUGS_COMPILE_PRELUDE is set.

Files:

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

src/Main.hs

@@ -175 +175 @@
     codeGen backend env{ envGlobal = globRef }
 
+initCompile :: IO ()
+initCompile = do
+    compPrelude <- getEnv "PUGS_COMPILE_PRELUDE"
+    writeIORef _BypassPreludePC $ case compPrelude of
+        Nothing     -> True
+        Just ""     -> True
+        Just "0"    -> True
+        _           -> False
+
 doCompileDump :: String -> FilePath -> String -> IO ()
 doCompileDump backend file prog = do
+    initCompile
     str <- doCompile backend' file prog
     putStr str
@@ -186 +196 @@
 doCompileRun :: String -> FilePath -> String -> IO ()
 doCompileRun backend file prog = do
+    initCompile
     str <- doCompile backend' file prog
     evalEmbedded backend' str