1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
module Settings.Builders.Cc (ccBuilderArgs) where
import Hadrian.Haskell.Cabal.Type
import Settings.Builders.Common
ccBuilderArgs :: Args
ccBuilderArgs = do
way <- getWay
builder Cc ? mconcat
[ getContextData ccOpts
, getStagedSettingList ConfCcArgs
, builder (Cc CompileC) ? mconcat
[ arg "-Wall"
, cIncludeArgs
, Dynamic `wayUnit` way ? pure [ "-fPIC", "-DDYNAMIC" ]
, arg "-c", arg =<< getInput
, arg "-o", arg =<< getOutput ]
, builder (Cc (FindCDependencies CDep)) ? findCDepExpr CDep
, builder (Cc (FindCDependencies CxxDep)) ? findCDepExpr CxxDep
]
where
findCDepExpr depType = do
output <- getOutput
mconcat [ arg "-E"
, arg "-MM", arg "-MG"
, arg "-MF", arg output
, arg "-MT", arg $ dropExtension output -<.> "o"
, case depType of CDep -> mempty; CxxDep -> arg "-std=c++11"
, cIncludeArgs
, arg "-x", arg (case depType of CDep -> "c"; CxxDep -> "c++")
, arg =<< getInput
]
|
