| 1 | # Copyright 1999-2004 Gentoo Foundation |
1 | # Copyright 1999-2004 Gentoo Foundation |
| 2 | # Distributed under the terms of the GNU General Public License v2 |
2 | # Distributed under the terms of the GNU General Public License v2 |
| 3 | # $Header: /var/cvsroot/gentoo-x86/eclass/ghc-package.eclass,v 1.2 2004/11/03 20:38:35 kosmikus Exp $ |
3 | # $Header: /var/cvsroot/gentoo-x86/eclass/ghc-package.eclass,v 1.8 2005/04/07 22:00:20 kosmikus Exp $ |
| 4 | # |
4 | # |
| 5 | # Author: Andres Loeh <kosmikus@gentoo.org> |
5 | # Author: Andres Loeh <kosmikus@gentoo.org> |
| 6 | # |
6 | # |
| 7 | # This eclass helps with the Glasgow Haskell Compiler's package |
7 | # This eclass helps with the Glasgow Haskell Compiler's package |
| 8 | # configuration utility. |
8 | # configuration utility. |
| 9 | |
9 | |
|
|
10 | inherit versionator |
|
|
11 | |
| 10 | ECLASS="ghc-package" |
12 | ECLASS="ghc-package" |
| 11 | INHERITED="$INHERITED $ECLASS" |
13 | INHERITED="${INHERITED} ${ECLASS}" |
| 12 | |
14 | |
| 13 | PATH="${PATH}:/opt/ghc/bin" |
15 | # promote /opt/ghc/bin to a better position in the search path |
|
|
16 | PATH="/usr/bin:/opt/ghc/bin:${PATH}" |
| 14 | |
17 | |
| 15 | # for later configuration using environment variables/ |
18 | # for later configuration using environment variables/ |
| 16 | # returns the name of the ghc executable |
19 | # returns the name of the ghc executable |
| 17 | ghc-getghc() { |
20 | ghc-getghc() { |
| 18 | echo "ghc" |
21 | echo "ghc" |
| … | |
… | |
| 23 | echo "ghc-pkg" |
26 | echo "ghc-pkg" |
| 24 | } |
27 | } |
| 25 | |
28 | |
| 26 | # returns the name of the ghc-pkg binary (ghc-pkg |
29 | # returns the name of the ghc-pkg binary (ghc-pkg |
| 27 | # itself usually is a shell script, and we have to |
30 | # itself usually is a shell script, and we have to |
| 28 | # bypass the script under certain circumstances) |
31 | # bypass the script under certain circumstances); |
|
|
32 | # for Cabal, we add the global package config file, |
|
|
33 | # because for some reason that's required |
| 29 | ghc-getghcpkgbin() { |
34 | ghc-getghcpkgbin() { |
|
|
35 | if ghc-cabal; then |
|
|
36 | echo $(ghc-libdir)/"ghc-pkg.bin" "--global-conf=$(ghc-libdir)/package.conf" |
|
|
37 | else |
| 30 | echo $(ghc-libdir)/"ghc-pkg.bin" |
38 | echo $(ghc-libdir)/"ghc-pkg.bin" |
|
|
39 | fi |
| 31 | } |
40 | } |
| 32 | |
41 | |
| 33 | # returns the version of ghc |
42 | # returns the version of ghc |
|
|
43 | _GHC_VERSION_CACHE="" |
| 34 | ghc-version() { |
44 | ghc-version() { |
|
|
45 | if [[ -z "${_GHC_VERSION_CACHE}" ]]; then |
| 35 | $(ghc-getghc) --version | sed 's:^.*version ::' |
46 | _GHC_VERSION_CACHE="$($(ghc-getghc) --version | sed 's:^.*version ::')" |
|
|
47 | fi |
|
|
48 | echo "${_GHC_VERSION_CACHE}" |
|
|
49 | } |
|
|
50 | |
|
|
51 | # returns true for ghc >= 6.4 |
|
|
52 | ghc-cabal() { |
|
|
53 | version_is_at_least "6.4" "$(ghc-version)" |
| 36 | } |
54 | } |
| 37 | |
55 | |
| 38 | # returns the library directory |
56 | # returns the library directory |
|
|
57 | _GHC_LIBDIR_CACHE="" |
| 39 | ghc-libdir() { |
58 | ghc-libdir() { |
| 40 | $(ghc-getghc) --print-libdir |
59 | if [[ -z "${_GHC_LIBDIR_CACHE}" ]]; then |
|
|
60 | _GHC_LIBDIR_CACHE="$($(ghc-getghc) --print-libdir)" |
|
|
61 | fi |
|
|
62 | echo "${_GHC_LIBDIR_CACHE}" |
| 41 | } |
63 | } |
| 42 | |
64 | |
| 43 | # returns the (Gentoo) library configuration directory |
65 | # returns the (Gentoo) library configuration directory |
| 44 | ghc-confdir() { |
66 | ghc-confdir() { |
| 45 | echo $(ghc-libdir)/gentoo |
67 | echo $(ghc-libdir)/gentoo |
| … | |
… | |
| 49 | # package configuration file |
71 | # package configuration file |
| 50 | ghc-localpkgconf() { |
72 | ghc-localpkgconf() { |
| 51 | echo "${PF}.conf" |
73 | echo "${PF}.conf" |
| 52 | } |
74 | } |
| 53 | |
75 | |
|
|
76 | # make a ghci foo.o file from a libfoo.a file |
|
|
77 | ghc-makeghcilib() { |
|
|
78 | local outfile |
|
|
79 | outfile="$(dirname $1)/$(basename $1 | sed 's:^lib\?\(.*\)\.a$:\1.o:')" |
|
|
80 | ld --relocatable --discard-all --output="${outfile}" --whole-archive $1 |
|
|
81 | } |
|
|
82 | |
| 54 | # creates an empty local (package-specific) package |
83 | # creates a local (package-specific) package |
| 55 | # configuration file |
84 | # configuration file; the arguments should be |
|
|
85 | # uninstalled package description files, each |
|
|
86 | # containing a single package description; if |
|
|
87 | # no arguments are given, the resulting file is |
|
|
88 | # empty |
| 56 | ghc-setup-pkg() { |
89 | ghc-setup-pkg() { |
|
|
90 | local localpkgconf |
|
|
91 | localpkgconf="${S}/$(ghc-localpkgconf)" |
| 57 | echo '[]' > ${S}/$(ghc-localpkgconf) |
92 | echo '[' > ${localpkgconf} |
|
|
93 | while [ -n "$1" ]; do |
|
|
94 | cat "$1" >> ${localpkgconf} |
|
|
95 | shift |
|
|
96 | [ -n "$1" ] && echo ',' >> ${localpkgconf} |
|
|
97 | done |
|
|
98 | echo ']' >> ${localpkgconf} |
| 58 | } |
99 | } |
| 59 | |
100 | |
| 60 | # moves the local (package-specific) package configuration |
101 | # moves the local (package-specific) package configuration |
| 61 | # file to its final destination |
102 | # file to its final destination |
| 62 | ghc-install-pkg() { |
103 | ghc-install-pkg() { |
| … | |
… | |
| 67 | |
108 | |
| 68 | # registers all packages in the local (package-specific) |
109 | # registers all packages in the local (package-specific) |
| 69 | # package configuration file |
110 | # package configuration file |
| 70 | ghc-register-pkg() { |
111 | ghc-register-pkg() { |
| 71 | local localpkgconf |
112 | local localpkgconf |
| 72 | localpkgconf=$(ghc-confdir)/$1 |
113 | localpkgconf="$(ghc-confdir)/$1" |
|
|
114 | if [[ -f ${localpkgconf} ]]; then |
| 73 | for pkg in $(ghc-listpkg ${localpkgconf}); do |
115 | for pkg in $(ghc-listpkg ${localpkgconf}); do |
| 74 | einfo "Registering ${pkg} ..." |
116 | ebegin "Registering ${pkg} " |
| 75 | $(ghc-getghcpkgbin) -f ${localpkgconf} -s ${pkg} \ |
117 | $(ghc-getghcpkgbin) -f ${localpkgconf} -s ${pkg} \ |
| 76 | | $(ghc-getghcpkg) -u --force |
118 | | $(ghc-getghcpkg) -u --force > /dev/null |
|
|
119 | eend $? |
| 77 | done |
120 | done |
|
|
121 | fi |
| 78 | } |
122 | } |
| 79 | |
123 | |
| 80 | # re-adds all available .conf files to the global |
124 | # re-adds all available .conf files to the global |
| 81 | # package conf file, to be used on a ghc reinstallation |
125 | # package conf file, to be used on a ghc reinstallation |
| 82 | ghc-reregister() { |
126 | ghc-reregister() { |
| 83 | einfo "Re-adding packages ..." |
127 | einfo "Re-adding packages ..." |
| 84 | ewarn "This may cause several warnings, but they should be harmless." |
128 | einfo "(This may cause several warnings, but they should be harmless.)" |
|
|
129 | if [ -d "$(ghc-confdir)" ]; then |
| 85 | pushd $(ghc-confdir) |
130 | pushd $(ghc-confdir) > /dev/null |
| 86 | for conf in *.conf; do |
131 | for conf in *.conf; do |
| 87 | einfo "Processing ${conf} ..." |
132 | einfo "Processing ${conf} ..." |
| 88 | ghc-register-pkg ${conf} |
133 | ghc-register-pkg ${conf} |
| 89 | done |
134 | done |
| 90 | popd |
135 | popd > /dev/null |
|
|
136 | fi |
| 91 | } |
137 | } |
| 92 | |
138 | |
| 93 | # unregisters ... |
139 | # unregisters ... |
| 94 | ghc-unregister-pkg() { |
140 | ghc-unregister-pkg() { |
| 95 | local localpkgconf |
141 | local localpkgconf |
| 96 | localpkgconf=$(ghc-confdir)/$1 |
142 | localpkgconf="$(ghc-confdir)/$1" |
|
|
143 | if [[ -f ${localpkgconf} ]]; then |
| 97 | for pkg in $(ghc-reverse "$(ghc-listpkg ${localpkgconf})"); do |
144 | for pkg in $(ghc-reverse "$(ghc-listpkg ${localpkgconf})"); do |
| 98 | einfo "Unregistering ${pkg} ..." |
145 | ebegin "Unregistering ${pkg} " |
| 99 | $(ghc-getghcpkg) -r ${pkg} --force |
146 | $(ghc-getghcpkg) -r ${pkg} --force > /dev/null |
|
|
147 | eend $? |
| 100 | done |
148 | done |
|
|
149 | fi |
| 101 | } |
150 | } |
| 102 | |
151 | |
| 103 | # help-function: reverse a list |
152 | # help-function: reverse a list |
| 104 | ghc-reverse() { |
153 | ghc-reverse() { |
| 105 | local result |
154 | local result |
| … | |
… | |
| 109 | echo ${result} |
158 | echo ${result} |
| 110 | } |
159 | } |
| 111 | |
160 | |
| 112 | # show the packages in a package configuration file |
161 | # show the packages in a package configuration file |
| 113 | ghc-listpkg() { |
162 | ghc-listpkg() { |
|
|
163 | local ghcpkgcall |
|
|
164 | if ghc-cabal; then |
|
|
165 | echo $($(ghc-getghcpkg) list -f $1) \ |
|
|
166 | | sed \ |
|
|
167 | -e "s|^.*${f}:\([^:]*\).*$|\1|" \ |
|
|
168 | -e "s|/.*$||" \ |
|
|
169 | -e "s|,| |g" -e "s|[()]||g" |
|
|
170 | else |
| 114 | [ -f $1 ] && echo $($(ghc-getghcpkgbin) -l -f $1) \ |
171 | echo $($(ghc-getghcpkgbin) -l -f $1) \ |
| 115 | | cut -f2 -d':' \ |
172 | | cut -f2 -d':' \ |
| 116 | | sed 's:,: :g' |
173 | | sed 's:,: :g' |
|
|
174 | fi |
| 117 | } |
175 | } |
| 118 | |
176 | |
| 119 | # exported function: registers the package-specific package |
177 | # exported function: registers the package-specific package |
| 120 | # configuration file |
178 | # configuration file |
| 121 | ghc-package_pkg_postinst() { |
179 | ghc-package_pkg_postinst() { |
Parent Directory
| 
Revision Log
| 
Patch