Add rule 'sdist-ghc'

See #219

hadrian.cabal

@@ -63,6 +63,7 @@ executable hadrian
                        , Rules.Program
                        , Rules.Register
                        , Rules.Selftest
+                       , Rules.Sdist
                        , Rules.Test
                        , Rules.Wrappers.Ghc
                        , Rules.Wrappers.GhcPkg

src/Main.hs

@@ -7,6 +7,7 @@ import qualified Environment
 import qualified Rules
 import qualified Rules.Clean
 import qualified Rules.Oracles
+import qualified Rules.Sdist
 import qualified Rules.Selftest
 import qualified Rules.Test
 import qualified Settings.Paths
@@ -23,6 +24,7 @@ main = shakeArgsWith options CmdLineFlag.cmdFlags $ \cmdLineFlags targets -> do
     rules = do
         Rules.Clean.cleanRules
         Rules.Oracles.oracleRules
+        Rules.Sdist.sourceDistRules
         Rules.Selftest.selftestRules
         Rules.Test.testRules
         Rules.buildRules

src/Rules/Actions.hs

@@ -1,7 +1,7 @@
 module Rules.Actions (
     build, buildWithCmdOptions, buildWithResources, copyFile, fixFile, moveFile,
     removeFile, copyDirectory, createDirectory, moveDirectory, removeDirectory,
-    applyPatch, runBuilder, makeExecutable, renderProgram, renderLibrary
+    applyPatch, runBuilder, runBuilderWith, makeExecutable, renderProgram, renderLibrary
     ) where
 
 import qualified System.Directory       as IO
@@ -152,12 +152,16 @@ applyPatch dir patch = do
     quietly $ cmd Shell cmdEcho [Cwd dir] [path, "-p0 <", patch]
 
 runBuilder :: Builder -> [String] -> Action ()
-runBuilder builder args = do
+runBuilder =
+    runBuilderWith []
+
+runBuilderWith :: [CmdOption] -> Builder -> [String] -> Action ()
+runBuilderWith options builder args = do
     needBuilder builder
     path <- builderPath builder
     let note = if null args then "" else " (" ++ intercalate ", " args ++ ")"
     putBuild $ "| Run " ++ show builder ++ note
-    quietly $ cmd [path] args
+    quietly $ cmd options [path] args
 
 makeExecutable :: FilePath -> Action ()
 makeExecutable file = do

src/Rules/Sdist.hs

@@ -0,0 +1,35 @@
+module Rules.Sdist (sourceDistRules) where
+
+import Base
+import Builder
+import Oracles.Config.Setting
+import Rules.Actions
+import Settings
+
+sourceDistRules :: Rules ()
+sourceDistRules = do
+    "sdist-ghc" ~> do
+        version <- setting ProjectVersion
+        let dest = "sdistprep/ghc/ghc-" ++ version
+            tarName = "../ghc-" ++ version ++ "-src.tar.xz"
+            cpFile a = copyFile      ("hadrian" -/- a) (dest -/- "hadrian" -/- a)
+            cpDir  a = copyDirectory ("hadrian" -/- a) (dest -/- "hadrian")
+        runBuilder (Make ".") [ "--no-print-directory", "-f", "ghc.mk"
+                              , "sdist-ghc-prep", "NO_INCLUDE_DEPS=YES"
+                              , "NO_INCLUDE_PKGDATA=YES"]
+        createDirectory $ dest -/- "hadrian"
+        cpDir  "cfg"
+        cpDir  "doc"
+        cpDir  "src"
+        cpFile "LICENSE"
+        cpFile "Makefile"
+        cpFile "README.md"
+        cpFile "appveyor.yml"
+        cpFile "build.bat"
+        cpFile "build.cabal.sh"
+        cpFile "build.sh"
+        cpFile "build.stack.sh"
+        cpFile "hadrian.cabal"
+        cpFile "stack.yaml"
+        runBuilderWith [Cwd "sdistprep/ghc"] Tar ["cJf", tarName, "ghc-" ++ version]
+        putSuccess "| Done. "