Build a copy of ghc-cabal with the in-tree compiler, for the bindist

3 files changed, 32 insertions, 45 deletions

diff --git a/utils/ghc-cabal/ghc-cabal.hs b/utils/ghc-cabal/Main.hs
index 81b47db659..81b47db659 100644
--- a/utils/ghc-cabal/ghc-cabal.hs
+++ b/utils/ghc-cabal/Main.hs
diff --git a/utils/ghc-cabal/ghc-cabal.cabal b/utils/ghc-cabal/ghc-cabal.cabal
new file mode 100644
index 0000000000..cd8d550c2e
--- /dev/null
+++ b/utils/ghc-cabal/ghc-cabal.cabal
@@ -0,0 +1,22 @@
+Name: ghc-cabal
+Version: 0.1
+Copyright: XXX
+License: BSD3
+-- XXX License-File: LICENSE
+Author: XXX
+Maintainer: XXX
+Synopsis: XXX
+Description:
+	XXX
+Category: Development
+build-type: Simple
+cabal-version: >=1.2
+
+Executable ghc-cabal
+    Main-Is: ghc-cabal.hs
+
+    Build-Depends: base       >= 3   && < 5,
+                   Cabal      >= 1.10 && < 1.12,
+                   directory  >= 1.1 && < 1.2,
+                   filepath   >= 1.2 && < 1.3
+
diff --git a/utils/ghc-cabal/ghc.mk b/utils/ghc-cabal/ghc.mk
index cfe61b3b54..9026eb18a8 100644
--- a/utils/ghc-cabal/ghc.mk
+++ b/utils/ghc-cabal/ghc.mk
@@ -25,8 +25,8 @@ $(GHC_CABAL_DIR)/dist/build/tmp/ghc-cabal$(exeext): $(wildcard libraries/Cabal/D
 $(GHC_CABAL_DIR)/dist/build/tmp/ghc-cabal$(exeext): $(wildcard libraries/Cabal/Distribution/*/*.hs)
 $(GHC_CABAL_DIR)/dist/build/tmp/ghc-cabal$(exeext): $(wildcard libraries/Cabal/Distribution/*.hs)
 
-$(GHC_CABAL_DIR)/dist/build/tmp/ghc-cabal$(exeext): $(GHC_CABAL_DIR)/ghc-cabal.hs | $$(dir $$@)/. bootstrapping/.
-	"$(GHC)" $(SRC_HC_OPTS) --make $(GHC_CABAL_DIR)/ghc-cabal.hs -o $@ \
+$(GHC_CABAL_DIR)/dist/build/tmp/ghc-cabal$(exeext): $(GHC_CABAL_DIR)/Main.hs | $$(dir $$@)/. bootstrapping/.
+	"$(GHC)" $(SRC_HC_OPTS) --make $(GHC_CABAL_DIR)/Main.hs -o $@ \
 	       -no-user-package-conf \
 	       -Wall $(WERROR) \
 	       -DCABAL_VERSION=$(CABAL_VERSION) \
@@ -46,49 +46,14 @@ $(eval $(call clean-target,$(GHC_CABAL_DIR),dist,\
 $(eval $(call all-target,$(GHC_CABAL_DIR),$(GHC_CABAL_INPLACE)))
 
 # -----------------------------------------------------------------------------
-# dummy-ghc
+# Now make another copy that goes in bindists. This needs to be built
+# with the in-tree compiler.
 
-# This is a tiny program to fool Cabal's configure that we have a
-# stage1 GHC, which lets us configure all the packages before we've
-# build stage1.
+$(GHC_CABAL_DIR)_USES_CABAL                   = YES
+$(GHC_CABAL_DIR)_PACKAGE                      = ghc-cabal
+$(GHC_CABAL_DIR)_dist-install_PROG            = ghc-cabal$(exeext)
+$(GHC_CABAL_DIR)_dist-install_INSTALL_INPLACE = NO
+$(GHC_CABAL_DIR)_dist-install_MODULES         = Main
 
-$(GHC_CABAL_DIR)_dist-dummy-ghc_MODULES = dummy-ghc
-$(GHC_CABAL_DIR)_dist-dummy-ghc_PROG    = dummy-ghc$(exeext)
-
-# depend on project.mk, so we pick up the new version number if it changes.
-$(GHC_CABAL_DIR)/dist-dummy-ghc/build/dummy-ghc.hs : $(GHC_CABAL_DIR)/ghc.mk $(MKDIRHIER) mk/project.mk compiler/main/DynFlags.hs
-	"$(MKDIRHIER)" $(dir $@)
-	"$(RM)" $(RM_OPTS) $@
-	echo 'import System.Environment'                                  >> $@
-	echo 'import System.Cmd'                                          >> $@
-	echo 'import System.Exit'                                         >> $@
-	echo 'main :: IO ()'                                              >> $@
-	echo 'main = do args <- getArgs'                                  >> $@
-	echo '          case args of'                                     >> $@
-	echo '              ["--numeric-version"] ->'                     >> $@
-	echo '                  putStrLn "$(ProjectVersion)"'             >> $@
-	echo '              ["--supported-languages"] ->'                 >> $@
-	echo '                  mapM_ putStrLn extensions'                >> $@
-	echo '              _ ->'                                         >> $@
-	echo '                  do e <- rawSystem "$(GHC_STAGE0)" args'   >> $@
-	echo '                     exitWith e'                            >> $@
-# This unpleasant sed script grabs the lines between the
-# 	xFlags ::
-# line and the
-#   ]
-# line of compiler/main/DynFlags.hs, and if they look like
-#   ( "PostfixOperators", ...
-# then it translates them into
-#   ["PostfixOperators", "NoPostfixOperators"] ++
-# Tabs are a pain to handle portably with sed, so rather than worrying
-# about them we just use tr to remove them all before we start.
-	echo 'extensions :: [String]'                                     >> $@
-	echo 'extensions ='                                               >> $@
-	'$(TR)' -d '\t' < compiler/main/DynFlags.hs | '$(SED)' '/^xFlags/,/]/s/^ *( *"\([^"]*\)"[^"]*/  ["\1", "No\1"] ++/p;d' >> $@
-	echo '  []'                                                       >> $@
-
-# We don't build dummy-ghc with Cabal, so we need to pass -package
-# flags manually
-utils/ghc-cabal_dist-dummy-ghc_HC_OPTS = -package process
-$(eval $(call build-prog,utils/ghc-cabal,dist-dummy-ghc,0))
+$(eval $(call build-prog,utils/ghc-cabal,dist-install,1))