import Utilities

 import Hadrian.BuildPath

 import Hadrian.Expression

 -- | Build in-tree GMP library objects (if GmpInTree flag is set) and return

 -- their paths.

             cFlags <-

                 interpretInContext ctx $

                 mconcat

                     -- gmp symbols are only used by bignum logic in

                     -- ghc-internal and shouldn't be exported by the

                     -- ghc-internal shared library.

 configureEnvironment :: Stage -> Action [CmdOption]

 configureEnvironment stage = do

     context <- libffiContext stage

     sequence [ builderEnvironment "CC" $ Cc CompileC stage

              , builderEnvironment "CXX" $ Cc CompileC stage

              , builderEnvironment "NM" Nm

              , builderEnvironment "RANLIB" Ranlib

              , return . AddEnv  "CFLAGS" $ unwords  cFlags ++ " -w"

 -- Need the libffi archive and `trackAllow` all files in the build directory.

 -- See [Libffi indicating inputs].

             values <- unwords <$> expr

             not (null values) ?

                 arg ("--configure-option=" ++ key ++ "=" ++ values)

                            -- See https://github.com/snowleopard/hadrian/issues/523

                            , arg $ "-iquote"

                            , arg $ top -/- pkgPath pkg

                            , cFlags'

                            ]

     mconcat

         [ conf "CFLAGS"   cFlags

         , conf "--with-iconv-includes"    $ arg =<< getSetting IconvIncludeDir

         , conf "--with-iconv-libraries"   $ arg =<< getSetting IconvLibDir

         , conf "--with-gmp-includes"      $ arg =<< getSetting GmpIncludeDir

     module Oracles.Setting,

     module Settings,

     module UserSettings,

     packageDatabaseArgs, bootPackageDatabaseArgs,

     getStagedCCFlags, wayCcArgs

     ) where

             , pure [ "-I" ++ pkgPath pkg -/- dir | dir <- incDirs ]

             , pure [ "-I" ++       unifyPath dir | dir <- depDirs ] ]

 -- TODO: should be in a different file

 cWarnings :: Args

 cWarnings = mconcat

 includeCcArgs = do

     stage <- getStage

     rtsPath <- expr $ rtsBuildPath stage

             , prgFlags . ccProgram . tgtCCompiler <$> expr (targetStage Stage1)

             , queryTargetTarget tgtUnregisterised ? arg "-DUSE_MINIINTERPRETER"

             , arg "-Irts"

     autogen <- expr $ autogenPath context

     let cabalMacros = autogen -/- "cabal_macros.h"

     expr $ need [cabalMacros]

             -- Either "-E" is not part of the configured cpp args, or we can't add those args to invocations of things like this

             -- ROMES:TODO: , prgFlags . cppProgram . tgtCPreprocessor <$> getStagedTargetConfig

             , cIncludeArgs

 getLFlags :: Expr [String]

 getLFlags =

     mconcat [ prgFlags . ccLinkProgram . tgtCCompilerLink <$> getStagedTarget

             , getContextData ldOpts

             , getContextData depLdOpts ]