blob: d0050431645ac7214302de89dba970fb9b33543e (
plain)
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
module Rules.SimpleTargets (simplePackageTargets) where
import Base
import Context
import Packages
import Settings
import Data.Foldable
-- | Simple aliases for library and executable targets.
--
-- - @stage<N>:lib:<name>@ will build library @name@ with
-- the stage N compiler, putting the result under
-- @<build root>/stage<N>/lib@.
-- - @stage<N>:exe:<name>@ will build executable @name@
-- with the stage N-1 compiler, putting the result under
-- @<build root>/stage<N-1>/bin.
simplePackageTargets :: Rules ()
simplePackageTargets = traverse_ simpleTarget targets
where targets = [ (stage, target)
| stage <- [minBound..maxBound]
, target <- knownPackages
]
simpleTarget :: (Stage, Package) -> Rules ()
simpleTarget (stage, target) = do
let tgt = intercalate ":" [stagestr, typ, pkgname]
tgt ~> do
p <- getTargetPath stage target
need [ p ]
where typ = if isLibrary target then "lib" else "exe"
stagestr = stageString stage
pkgname = pkgName target
getTargetPath :: Stage -> Package -> Action FilePath
getTargetPath stage pkg
| isLibrary pkg = getLibraryPath stage pkg
| otherwise = getProgramPath stage pkg
getLibraryPath :: Stage -> Package -> Action FilePath
getLibraryPath stage pkg = pkgConfFile (vanillaContext stage pkg)
getProgramPath :: Stage -> Package -> Action FilePath
getProgramPath Stage0 _ =
error ("Cannot build a stage 0 executable target: " ++
"it is the boot compiler's toolchain")
getProgramPath stage pkg = programPath (vanillaContext (pred stage) pkg)
|
