1 files changed, 42 insertions, 0 deletions
diff --git a/hadrian/src/Rules/Configure.hs b/hadrian/src/Rules/Configure.hs
new file mode 100644
index 0000000000..dd016c149f
--- /dev/null
+++ b/hadrian/src/Rules/Configure.hs
@@ -0,0 +1,42 @@
+module Rules.Configure (configureRules) where
+
+import qualified System.Info.Extra as System
+
+import Base
+import Builder
+import CommandLine
+import Context
+import GHC
+import Target
+import Utilities
+
+configureRules :: Rules ()
+configureRules = do
+    [configFile, "settings", configH] &%> \outs -> do
+        skip <- cmdSkipConfigure
+        if skip
+        then unlessM (doesFileExist configFile) $
+            error $ "Configuration file " ++ configFile ++ " is missing."
+                ++ "\nRun the configure script manually or do not use the "
+                ++ "--skip-configure flag."
+        else do
+            -- We cannot use windowsHost here due to a cyclic dependency.
+            when System.isWindows $ do
+                putBuild "| Checking for Windows tarballs..."
+                quietly $ cmd ["bash", "mk/get-win32-tarballs.sh", "download", System.arch]
+            let srcs    = map (<.> "in") outs
+                context = vanillaContext Stage0 compiler
+            need srcs
+            build $ target context (Configure ".") srcs outs
+
+    ["configure", configH <.> "in"] &%> \_ -> do
+        skip <- cmdSkipConfigure
+        if skip
+        then unlessM (doesFileExist "configure") $
+            error $ "The configure script is missing.\nRun the boot script"
+                ++ " manually or do not use the --skip-configure flag."
+        else do
+            need ["configure.ac"]
+            putBuild "| Running boot..."
+            verbosity <- getVerbosity
+            quietly $ cmd [EchoStdout (verbosity >= Loud)] "python3 boot"