Changeset 4788 for src/Pugs/Embed

Timestamp:

06/18/05 12:58:05 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

6529

Message:

* Pugs.Embed.Parrot -- Pass contents of %*ENV<PUGS_PARROT_OPTS> as option to parrot.
* pugs::run -- Document this new environment variable.
* util/livecd/linuxrc -- Set PUGS_PARROT_OPTS to "-jO" for maximum speed.

Files:

• src/Pugs/Embed/Parrot.hsc (modified) (2 diffs)

src/Pugs/Embed/Parrot.hsc

@@ -13 +13 @@
 import Data.Maybe
 import Control.Monad
+import Pugs.Compat (getEnv)
 
 findExecutable' :: String -> IO (Maybe FilePath)
@@ -39 +40 @@
     -- parrot -j is fatal on systems where jit is not supported,
     -- so we use the next fastest CGP core.
-    rawSystem cmd ["-C", file]
+    args <- getEnv "PUGS_PARROT_OPTS"
+    let args' | isJust args = fromJust args
+              | otherwise   = "-C"
+    rawSystem cmd [args', file]
     return ()