* new eclass for GHC packages

1 files changed, 135 insertions, 0 deletions

diff --git a/eclass/ghc-package.eclass b/eclass/ghc-package.eclass
new file mode 100644
index 000000000000..e40bdfbec594
--- /dev/null
+++ b/eclass/ghc-package.eclass
@@ -0,0 +1,135 @@
+# Copyright 1999-2004 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/eclass/ghc-package.eclass,v 1.1 2004/11/03 15:06:41 kosmikus Exp $
+#
+# Author: Andres Loeh <kosmikus@gentoo.org>
+#
+# This eclass helps with the Glasgow Haskell Compiler's package
+# configuration utility.
+
+ECLASS="ghc-package"
+INHERITED="$INHERITED $ECLASS"
+
+PATH="${PATH}:/opt/ghc/bin"
+
+# for later configuration using environment variables/
+# returns the name of the ghc executable
+ghc-getghc() {
+	echo "ghc"
+}
+
+# returns the name of the ghc-pkg executable
+ghc-getghcpkg() {
+	echo "ghc-pkg"
+}
+
+# returns the name of the ghc-pkg binary (ghc-pkg
+# itself usually is a shell script, and we have to
+# bypass the script under certain circumstances)
+ghc-getghcpkgbin() {
+	echo $(ghc-libdir)/"ghc-pkg.bin"
+}
+
+# returns the version of ghc
+ghc-version() {
+	$(ghc-getghc) --version | sed 's:^.*version ::'
+}
+
+# returns the library directory
+ghc-libdir() {
+	$(ghc-getghc) --print-libdir
+}
+
+# returns the (Gentoo) library configuration directory
+ghc-confdir() {
+	echo $(ghc-libdir)/gentoo
+}
+
+# returns the name of the local (package-specific)
+# package configuration file
+ghc-localpkgconf() {
+	echo "${PF}.conf"
+}
+
+# creates an empty local (package-specific) package
+# configuration file
+ghc-setup-pkg() {
+	echo '[]' > ${S}/$(ghc-localpkgconf)
+}
+
+# moves the local (package-specific) package configuration
+# file to its final destination
+ghc-install-pkg() {
+	mkdir -p ${D}/$(ghc-confdir)
+	cat ${S}/$(ghc-localpkgconf) | sed "s:${D}::" \
+		> ${D}/$(ghc-confdir)/$(ghc-localpkgconf)
+}
+
+# registers all packages in the local (package-specific)
+# package configuration file
+ghc-register-pkg() {
+	local localpkgconf
+	localpkgconf=$(ghc-confdir)/$1
+	for pkg in $(ghc-listpkg ${localpkgconf}); do
+		einfo "Registering ${pkg} ..."
+		$(ghc-getghcpkgbin) -f ${localpkgconf} -s ${pkg} \
+			| $(ghc-getghcpkg) -u --auto-ghci-libs --force
+	done
+}
+
+# re-adds all available .conf files to the global
+# package conf file, to be used on a ghc reinstallation
+ghc-reregister() {
+	einfo "Re-adding packages ..."
+	ewarn "This may cause several warnings, but they should be harmless."
+	pushd $(ghc-confdir)
+	for conf in *.conf; do
+		einfo "Processing ${conf} ..."
+		ghc-register-pkg ${conf}
+	done
+	popd
+}
+
+# unregisters ...
+ghc-unregister-pkg() {
+	local localpkgconf
+	localpkgconf=$(ghc-confdir)/$1
+	for pkg in $(ghc-reverse "$(ghc-listpkg ${localpkgconf})"); do
+		einfo "Unregistering ${pkg} ..."
+		$(ghc-getghcpkg) -r ${pkg} --force
+	done
+}
+
+# help-function: reverse a list
+ghc-reverse() {
+	local result
+	for i in $1; do
+		result="${i} ${result}"
+	done
+	echo ${result}
+}
+
+# show the packages in a package configuration file
+ghc-listpkg() {
+	[ -f $1 ] && echo $($(ghc-getghcpkgbin) -l -f $1) \
+			| cut -f2 -d':' \
+			| sed 's:,: :g'
+}
+
+# exported function: registers the package-specific package
+# configuration file
+ghc-package_pkg_postinst() {
+	ghc-register-pkg $(ghc-localpkgconf)
+}
+
+# exported function: unregisters the package-specific
+# package configuration file, under the condition that
+# after removal, no other instances of the package will
+# be left (necessary check because ghc packages are not
+# versioned)
+ghc-package_pkg_prerm() {
+	has_version "<${CATEGORY}/${PF}" || has_version ">${CATEGORY}/${PF}" \
+		|| ghc-unregister-pkg $(ghc-localpkgconf)
+}
+
+EXPORT_FUNCTIONS pkg_postinst pkg_prerm