{-# OPTIONS -#include "hschooks.h" #-}
-----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.76 2001/10/17 15:44:40 simonpj Exp $
+-- $Id: DriverFlags.hs,v 1.78 2001/10/29 13:25:19 simonmar Exp $
--
-- Driver flags
--
import DriverState
import DriverUtil
-import SysTools ( setTmpDir, setPgm, setDryRun, showGhcUsage )
+import SysTools
import CmdLineOpts
import Config
import Util
-- flags further down the list with the same prefix.
static_flags =
- [ ------- help -------------------------------------------------------
- ( "?" , NoArg showGhcUsage)
- , ( "-help" , NoArg showGhcUsage)
-
-
- ------- version ----------------------------------------------------
- , ( "-version" , NoArg (do hPutStrLn stdout (cProjectName
+ [ ------- help / version ----------------------------------------------
+ ( "?" , NoArg showGhcUsage)
+ , ( "-help" , NoArg showGhcUsage)
+ , ( "-print-libdir" , NoArg (do getTopDir >>= putStrLn
+ exitWith ExitSuccess))
+ , ( "-version" , NoArg (do putStrLn (cProjectName
++ ", version " ++ cProjectVersion)
exitWith ExitSuccess))
- , ( "-numeric-version", NoArg (do hPutStrLn stdout cProjectVersion
+ , ( "-numeric-version", NoArg (do putStrLn cProjectVersion
exitWith ExitSuccess))
------- verbosity ----------------------------------------------------
dynamic_flags = [
( "cpp", NoArg (updDynFlags (\s -> s{ cppFlag = True })) )
+ , ( "F", NoArg (updDynFlags (\s -> s{ ppFlag = True })) )
, ( "#include", HasArg (addCmdlineHCInclude) )
, ( "v", OptPrefix (setVerbosity) )
, ( "optL", HasArg (addOpt_L) )
, ( "optP", HasArg (addOpt_P) )
+ , ( "optF", HasArg (addOpt_F) )
, ( "optc", HasArg (addOpt_c) )
, ( "optm", HasArg (addOpt_m) )
, ( "opta", HasArg (addOpt_a) )
addOpt_L a = updDynFlags (\s -> s{opt_L = a : opt_L s})
addOpt_P a = updDynFlags (\s -> s{opt_P = a : opt_P s})
+addOpt_F a = updDynFlags (\s -> s{opt_F = a : opt_F s})
addOpt_c a = updDynFlags (\s -> s{opt_c = a : opt_c s})
addOpt_a a = updDynFlags (\s -> s{opt_a = a : opt_a s})
addOpt_m a = updDynFlags (\s -> s{opt_m = a : opt_m s})