[jackhill/guix/guix.git] / gnu / packages / autotools.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages autotools)
  #:use-module (guix licenses)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages m4)
  #:use-module (gnu packages bash)
  #:use-module (guix utils)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module (ice-9 match)
  #:export (autoconf-wrapper))

(define-public autoconf
  (package
    (name "autoconf")
    (version "2.69")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://gnu/autoconf/autoconf-"
                          version ".tar.xz"))
      (sha256
       (base32
        "113nlmidxy9kjr45kg9x3ngar4951mvag1js2a3j8nxcz34wxsv4"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("perl" ,perl)
       ("m4" ,m4)))
    ;; XXX: testsuite: 209 and 279 failed. The latter is an impurity. It
    ;; should use our own "cpp" instead of "/lib/cpp".
    (arguments `(#:tests? #f))
    (home-page
     "http://www.gnu.org/software/autoconf/")
    (synopsis "Create source code configuration scripts")
    (description
     "Autoconf offers the developer a robust set of M4 macros which expand
into shell code to test the features of Unix-like systems and to adapt
automatically their software package to these systems.  The resulting shell
scripts are self-contained and portable, freeing the user from needing to
know anything about Autoconf or M4.")
    (license gpl3+))) ; some files are under GPLv2+

(define-public autoconf-2.68
  (package (inherit autoconf)
    (version "2.68")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://gnu/autoconf/autoconf-"
                          version ".tar.xz"))
      (sha256
       (base32
        "1fjm21k2na07f3vasf288a0zx66lbv0hd3l9bvv3q8p62s3pg569"))))))

(define-public autoconf-2.64
  ;; As of GDB 7.8, GDB is still developed using this version of Autoconf.
  (package (inherit autoconf)
    (version "2.64")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://gnu/autoconf/autoconf-"
                          version ".tar.xz"))
      (sha256
       (base32
        "0j3jdjpf5ly39dlp0bg70h72nzqr059k0x8iqxvaxf106chpgn9j"))))))


(define* (autoconf-wrapper #:optional (autoconf autoconf))
  "Return an wrapper around AUTOCONF that generates `configure' scripts that
use our own Bash instead of /bin/sh in shebangs.  For that reason, it should
only be used internally---users should not end up distributing `configure'
files with a system-specific shebang."
  (package (inherit autoconf)
    (location (source-properties->location (current-source-location)))
    (name (string-append (package-name autoconf) "-wrapper"))
    (build-system trivial-build-system)
    (inputs `(("guile"
               ;; XXX: Kludge to hide the circular dependency.
               ,(module-ref (resolve-interface '(gnu packages guile))
                            'guile-2.0))
              ("autoconf" ,autoconf)
              ("bash" ,bash)))
    (arguments
     '(#:modules ((guix build utils))
       #:builder
       (begin
         (use-modules (guix build utils))
         (let* ((out      (assoc-ref %outputs "out"))
                (bin      (string-append out "/bin"))
                (autoconf (string-append
                           (assoc-ref %build-inputs "autoconf")
                           "/bin/autoconf"))
                (guile    (string-append
                           (assoc-ref %build-inputs "guile")
                           "/bin/guile"))
                (sh       (string-append
                           (assoc-ref %build-inputs "bash")
                           "/bin/sh"))
                (modules  ((compose dirname dirname dirname)
                           (search-path %load-path
                                        "guix/build/utils.scm"))))
           (mkdir-p bin)

           ;; Symlink all the binaries but `autoconf'.
           (with-directory-excursion bin
             (for-each (lambda (file)
                         (unless (string=? (basename file) "autoconf")
                           (symlink file (basename file))))
                       (find-files (dirname autoconf) ".*")))

           ;; Add an `autoconf' binary that wraps the real one.
           (call-with-output-file (string-append bin "/autoconf")
             (lambda (port)
               ;; Shamefully, Guile can be used in shebangs only if a
               ;; single argument is passed (-ds); otherwise it gets
               ;; them all as a single argument and fails to parse them.
               (format port "#!~a
export GUILE_LOAD_PATH=\"~a\"
export GUILE_LOAD_COMPILED_PATH=\"~a\"
exec ~a --no-auto-compile \"$0\" \"$@\"
!#~%"
                       sh modules modules guile)
               (write
                `(begin
                   (use-modules (guix build utils))
                   (let ((result (apply system* ,autoconf
                                        (cdr (command-line)))))
                     (when (and (file-exists? "configure")
                                (not (file-exists? "/bin/sh")))
                       ;; Patch regardless of RESULT, because `autoconf
                       ;; -Werror' can both create a `configure' file and
                       ;; return a non-zero exit code.
                       (patch-shebang "configure"))
                     (exit (status:exit-val result))))
                port)))
           (chmod (string-append bin "/autoconf") #o555)))))))

(define-public automake
  (package
    (name "automake")
    (version "1.15")
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://gnu/automake/automake-"
                                 version ".tar.xz"))
             (sha256
              (base32
               "0dl6vfi2lzz8alnklwxzfz624b95hb1ipjvd3mk177flmddcf24r"))
             (patches
              (list (search-patch "automake-skip-amhello-tests.patch")))))
    (build-system gnu-build-system)
    (native-inputs
     `(("autoconf" ,(autoconf-wrapper))
       ("perl" ,perl)))
    (native-search-paths
     (list (search-path-specification
            (variable "ACLOCAL_PATH")
            (files '("share/aclocal")))))
    (arguments
     '(#:modules ((guix build gnu-build-system)
                  (guix build utils)
                  (srfi srfi-1)
                  (srfi srfi-26)
                  (rnrs io ports))
       #:phases (alist-cons-before
                 'patch-source-shebangs 'patch-tests-shebangs
                 (lambda _
                   (let ((sh (which "sh")))
                     (substitute* (find-files "t" "\\.(sh|tap)$")
                       (("#![[:blank:]]?/bin/sh")
                        (string-append "#!" sh)))

                     ;; Set these variables for all the `configure' runs
                     ;; that occur during the test suite.
                     (setenv "SHELL" sh)
                     (setenv "CONFIG_SHELL" sh)))

                 ;; Files like `install-sh', `mdate.sh', etc. must use
                 ;; #!/bin/sh, otherwise users could leak erroneous shebangs
                 ;; in the wild.  See <http://bugs.gnu.org/14201> for an
                 ;; example.
                 (alist-cons-after
                  'install 'unpatch-shebangs
                  (lambda* (#:key outputs #:allow-other-keys)
                    (let* ((out (assoc-ref outputs "out"))
                           (dir (string-append out "/share")))
                      (define (starts-with-shebang? file)
                        (equal? (call-with-input-file file
                                  (lambda (p)
                                    (list (get-u8 p) (get-u8 p))))
                                (map char->integer '(#\# #\!))))

                      (for-each (lambda (file)
                                  (when (and (starts-with-shebang? file)
                                             (executable-file? file))
                                    (format #t "restoring shebang on `~a'~%"
                                            file)
                                    (substitute* file
                                      (("^#!.*/bin/sh")
                                       "#!/bin/sh")
                                      (("^#!.*/bin/env(.*)$" _ args)
                                       (string-append "#!/usr/bin/env"
                                                      args)))))
                                (find-files dir ".*"))))
                  %standard-phases))))
    (home-page "http://www.gnu.org/software/automake/")
    (synopsis "Making GNU standards-compliant Makefiles")
    (description
     "Automake the part of the GNU build system for producing
standards-compliant Makefiles.  Build requirements are entered in an
intuitive format and then Automake works with Autoconf to produce a robust
Makefile, simplifying the entire process for the developer.")
    (license gpl2+)))                      ; some files are under GPLv3+

(define-public libtool
  (package
    (name "libtool")
    (version "2.4.5")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://gnu/libtool/libtool-"
                                  version ".tar.xz"))
              (sha256
               (base32
                "0zhphv4n9bdd6sz66lqfrfqcsnv89mg2bykgi5w9401va4vc3al4"))
              (patches
               (list (search-patch "libtool-skip-tests.patch")))))
    (build-system gnu-build-system)
    (propagated-inputs `(("m4" ,m4)))
    (native-inputs `(("m4" ,m4)
                     ("perl" ,perl)
                     ("automake" ,automake)      ;some tests rely on 'aclocal'
                     ("autoconf" ,(autoconf-wrapper)))) ;others on 'autom4te'

    (arguments
     `(;; Libltdl is provided as a separate package, so don't install it here.
       #:configure-flags '("--disable-ltdl-install")

       ;; XXX: There are test failures on mips64el-linux starting from 2.4.4:
       ;; <http://hydra.gnu.org/build/181662>.
       #:tests? ,(not (string-prefix? "mips64"
                                      (or (%current-target-system)
                                          (%current-system))))

       #:phases (alist-cons-before
                 'check 'pre-check
                 (lambda* (#:key inputs #:allow-other-keys)
                   ;; Run the test suite in parallel, if possible.
                   (setenv "TESTSUITEFLAGS"
                           (string-append
                            "-j"
                            (number->string (parallel-job-count))))

                   ;; Path references to /bin/sh.
                   (let ((bash (assoc-ref inputs "bash")))
                     (substitute* "tests/testsuite"
                       (("/bin/sh")
                        (string-append bash "/bin/bash")))))
                 %standard-phases)))
    (synopsis "Generic shared library support tools")
    (description
     "GNU Libtool helps in the creation and use of shared libraries, by
presenting a single consistent, portable interface that hides the usual
complexity of working with shared libraries across platforms.")
    (license gpl3+)
    (home-page "http://www.gnu.org/software/libtool/")))

(define-public libltdl
  ;; This is a libltdl package separate from the libtool package.  This is
  ;; useful because, unlike libtool, it has zero extra dependencies (making it
  ;; readily usable during bootstrap), and it builds very quickly since
  ;; Libtool's extensive test suite isn't run.
  (package
    (name "libltdl")
    (version "2.4.4")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://gnu/libtool/libtool-"
                                  version ".tar.xz"))
              (sha256
               (base32
                "0v3zq08qxv7k5067mpqrkjkjl3wphhg06i696mka90mzadc5nad8"))
              (patches
               (list (search-patch "libtool-skip-tests.patch")))))
    (build-system gnu-build-system)
    (arguments
     '(#:configure-flags '("--enable-ltdl-install") ;really install it
       #:phases (alist-cons-before
                 'configure 'change-directory
                 (lambda _
                   (chdir "libltdl"))
                 %standard-phases)))

    (synopsis "System-independent dlopen wrapper of GNU libtool")
    (description (package-description libtool))
    (home-page (package-home-page libtool))
    (license lgpl2.1+)))
Commit	Line	Data
233e7676 LC	1	;;; GNU Guix --- Functional package management for GNU
233e7676 LC	2	;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
e13f715b	3	;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
c6e96280	4	;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
80ffc708	5	;;;
233e7676	6	;;; This file is part of GNU Guix.
80ffc708	7	;;;
233e7676	8	;;; GNU Guix is free software; you can redistribute it and/or modify it
80ffc708 NK	9	;;; under the terms of the GNU General Public License as published by
	10	;;; the Free Software Foundation; either version 3 of the License, or (at
	11	;;; your option) any later version.
	12	;;;
233e7676	13	;;; GNU Guix is distributed in the hope that it will be useful, but
80ffc708 NK	14	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	15	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	;;; GNU General Public License for more details.
	17	;;;
	18	;;; You should have received a copy of the GNU General Public License
233e7676	19	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
80ffc708	20
1ffa7090	21	(define-module (gnu packages autotools)
4a44e743	22	#:use-module (guix licenses)
59a43334	23	#:use-module (gnu packages)
1ffa7090 LC	24	#:use-module (gnu packages perl)
1ffa7090 LC	25	#:use-module (gnu packages m4)
7cd1d7bd LC	26	#:use-module (gnu packages bash)
7cd1d7bd LC	27	#:use-module (guix utils)
80ffc708 NK	28	#:use-module (guix packages)
80ffc708 NK	29	#:use-module (guix download)
7cd1d7bd	30	#:use-module (guix build-system gnu)
c6e96280 MR	31	#:use-module (guix build-system trivial)
	32	#:use-module (ice-9 match)
	33	#:export (autoconf-wrapper))
80ffc708 NK	34
	35	(define-public autoconf
	36	(package
	37	(name "autoconf")
	38	(version "2.69")
	39	(source
	40	(origin
	41	(method url-fetch)
	42	(uri (string-append "mirror://gnu/autoconf/autoconf-"
	43	version ".tar.xz"))
	44	(sha256
	45	(base32
	46	"113nlmidxy9kjr45kg9x3ngar4951mvag1js2a3j8nxcz34wxsv4"))))
	47	(build-system gnu-build-system)
a6abac9f	48	(native-inputs
80ffc708 NK	49	`(("perl" ,perl)
	50	("m4" ,m4)))
	51	;; XXX: testsuite: 209 and 279 failed. The latter is an impurity. It
	52	;; should use our own "cpp" instead of "/lib/cpp".
	53	(arguments `(#:tests? #f))
	54	(home-page
	55	"http://www.gnu.org/software/autoconf/")
f50d2669	56	(synopsis "Create source code configuration scripts")
80ffc708	57	(description
a22dc0c4 LC	58	"Autoconf offers the developer a robust set of M4 macros which expand
	59	into shell code to test the features of Unix-like systems and to adapt
	60	automatically their software package to these systems. The resulting shell
	61	scripts are self-contained and portable, freeing the user from needing to
	62	know anything about Autoconf or M4.")
4a44e743	63	(license gpl3+))) ; some files are under GPLv2+
80ffc708	64
c6e96280 MR	65	(define-public autoconf-2.68
	66	(package (inherit autoconf)
	67	(version "2.68")
	68	(source
	69	(origin
	70	(method url-fetch)
	71	(uri (string-append "mirror://gnu/autoconf/autoconf-"
	72	version ".tar.xz"))
	73	(sha256
	74	(base32
	75	"1fjm21k2na07f3vasf288a0zx66lbv0hd3l9bvv3q8p62s3pg569"))))))
	76
2a7050ab LC	77	(define-public autoconf-2.64
	78	;; As of GDB 7.8, GDB is still developed using this version of Autoconf.
	79	(package (inherit autoconf)
	80	(version "2.64")
	81	(source
	82	(origin
	83	(method url-fetch)
	84	(uri (string-append "mirror://gnu/autoconf/autoconf-"
	85	version ".tar.xz"))
	86	(sha256
	87	(base32
	88	"0j3jdjpf5ly39dlp0bg70h72nzqr059k0x8iqxvaxf106chpgn9j"))))))
	89
	90
c6e96280 MR	91	(define* (autoconf-wrapper #:optional (autoconf autoconf))
	92	"Return an wrapper around AUTOCONF that generates `configure' scripts that
	93	use our own Bash instead of /bin/sh in shebangs. For that reason, it should
	94	only be used internally---users should not end up distributing `configure'
	95	files with a system-specific shebang."
7cd1d7bd LC	96	(package (inherit autoconf)
	97	(location (source-properties->location (current-source-location)))
	98	(name (string-append (package-name autoconf) "-wrapper"))
	99	(build-system trivial-build-system)
	100	(inputs `(("guile"
168030ea LC	101	;; XXX: Kludge to hide the circular dependency.
	102	,(module-ref (resolve-interface '(gnu packages guile))
	103	'guile-2.0))
7cd1d7bd LC	104	("autoconf" ,autoconf)
	105	("bash" ,bash)))
	106	(arguments
	107	'(#:modules ((guix build utils))
	108	#:builder
	109	(begin
	110	(use-modules (guix build utils))
	111	(let* ((out (assoc-ref %outputs "out"))
	112	(bin (string-append out "/bin"))
	113	(autoconf (string-append
	114	(assoc-ref %build-inputs "autoconf")
	115	"/bin/autoconf"))
	116	(guile (string-append
	117	(assoc-ref %build-inputs "guile")
	118	"/bin/guile"))
	119	(sh (string-append
	120	(assoc-ref %build-inputs "bash")
	121	"/bin/sh"))
	122	(modules ((compose dirname dirname dirname)
	123	(search-path %load-path
	124	"guix/build/utils.scm"))))
	125	(mkdir-p bin)
	126
	127	;; Symlink all the binaries but `autoconf'.
	128	(with-directory-excursion bin
	129	(for-each (lambda (file)
	130	(unless (string=? (basename file) "autoconf")
	131	(symlink file (basename file))))
	132	(find-files (dirname autoconf) ".*")))
	133
	134	;; Add an `autoconf' binary that wraps the real one.
	135	(call-with-output-file (string-append bin "/autoconf")
	136	(lambda (port)
	137	;; Shamefully, Guile can be used in shebangs only if a
	138	;; single argument is passed (-ds); otherwise it gets
	139	;; them all as a single argument and fails to parse them.
	140	(format port "#!~a
	141	export GUILE_LOAD_PATH=\"~a\"
	142	export GUILE_LOAD_COMPILED_PATH=\"~a\"
	143	exec ~a --no-auto-compile \"$0\" \"$@\"
	144	!#~%"
	145	sh modules modules guile)
	146	(write
	147	`(begin
	148	(use-modules (guix build utils))
	149	(let ((result (apply system* ,autoconf
	150	(cdr (command-line)))))
f11617d8 LC	151	(when (and (file-exists? "configure")
	152	(not (file-exists? "/bin/sh")))
	153	;; Patch regardless of RESULT, because `autoconf
	154	;; -Werror' can both create a `configure' file and
	155	;; return a non-zero exit code.
	156	(patch-shebang "configure"))
	157	(exit (status:exit-val result))))
7cd1d7bd LC	158	port)))
	159	(chmod (string-append bin "/autoconf") #o555)))))))
	160
80ffc708 NK	161	(define-public automake
	162	(package
	163	(name "automake")
aebb05b0	164	(version "1.15")
7cd1d7bd LC	165	(source (origin
	166	(method url-fetch)
	167	(uri (string-append "mirror://gnu/automake/automake-"
	168	version ".tar.xz"))
	169	(sha256
	170	(base32
aebb05b0	171	"0dl6vfi2lzz8alnklwxzfz624b95hb1ipjvd3mk177flmddcf24r"))
01eafd38 LC	172	(patches
01eafd38 LC	173	(list (search-patch "automake-skip-amhello-tests.patch")))))
80ffc708	174	(build-system gnu-build-system)
a6abac9f	175	(native-inputs
c6e96280	176	`(("autoconf" ,(autoconf-wrapper))
01eafd38	177	("perl" ,perl)))
a9db7d10 LC	178	(native-search-paths
	179	(list (search-path-specification
	180	(variable "ACLOCAL_PATH")
af070955	181	(files '("share/aclocal")))))
7cd1d7bd	182	(arguments
01eafd38	183	'(#:modules ((guix build gnu-build-system)
63b7c6c1 LC	184	(guix build utils)
	185	(srfi srfi-1)
	186	(srfi srfi-26)
	187	(rnrs io ports))
7cd1d7bd LC	188	#:phases (alist-cons-before
	189	'patch-source-shebangs 'patch-tests-shebangs
	190	(lambda _
	191	(let ((sh (which "sh")))
	192	(substitute* (find-files "t" "\\.(sh\|tap)$")
	193	(("#![[:blank:]]?/bin/sh")
	194	(string-append "#!" sh)))
	195
	196	;; Set these variables for all the `configure' runs
	197	;; that occur during the test suite.
	198	(setenv "SHELL" sh)
	199	(setenv "CONFIG_SHELL" sh)))
9be8d7c8	200
63b7c6c1 LC	201	;; Files like `install-sh', `mdate.sh', etc. must use
	202	;; #!/bin/sh, otherwise users could leak erroneous shebangs
	203	;; in the wild. See <http://bugs.gnu.org/14201> for an
	204	;; example.
	205	(alist-cons-after
	206	'install 'unpatch-shebangs
	207	(lambda* (#:key outputs #:allow-other-keys)
	208	(let* ((out (assoc-ref outputs "out"))
	209	(dir (string-append out "/share")))
	210	(define (starts-with-shebang? file)
	211	(equal? (call-with-input-file file
	212	(lambda (p)
	213	(list (get-u8 p) (get-u8 p))))
	214	(map char->integer '(#\# #\!))))
	215
	216	(for-each (lambda (file)
	217	(when (and (starts-with-shebang? file)
	218	(executable-file? file))
	219	(format #t "restoring shebang on `~a'~%"
	220	file)
	221	(substitute* file
	222	(("^#!.*/bin/sh")
	223	"#!/bin/sh")
	224	(("^#!./bin/env(.)$" _ args)
	225	(string-append "#!/usr/bin/env"
	226	args)))))
	227	(find-files dir ".*"))))
	228	%standard-phases))))
7cd1d7bd	229	(home-page "http://www.gnu.org/software/automake/")
f50d2669	230	(synopsis "Making GNU standards-compliant Makefiles")
80ffc708	231	(description
79c311b8 LC	232	"Automake the part of the GNU build system for producing
	233	standards-compliant Makefiles. Build requirements are entered in an
	234	intuitive format and then Automake works with Autoconf to produce a robust
	235	Makefile, simplifying the entire process for the developer.")
7cd1d7bd	236	(license gpl2+))) ; some files are under GPLv3+
36d4d49e NK	237
	238	(define-public libtool
	239	(package
	240	(name "libtool")
a101c891	241	(version "2.4.5")
36d4d49e	242	(source (origin
c154e1ea LC	243	(method url-fetch)
	244	(uri (string-append "mirror://gnu/libtool/libtool-"
	245	version ".tar.xz"))
	246	(sha256
	247	(base32
a101c891	248	"0zhphv4n9bdd6sz66lqfrfqcsnv89mg2bykgi5w9401va4vc3al4"))
c154e1ea LC	249	(patches
c154e1ea LC	250	(list (search-patch "libtool-skip-tests.patch")))))
36d4d49e	251	(build-system gnu-build-system)
62c155c0	252	(propagated-inputs `(("m4" ,m4)))
36d4d49e	253	(native-inputs `(("m4" ,m4)
c154e1ea LC	254	("perl" ,perl)
	255	("automake" ,automake) ;some tests rely on 'aclocal'
	256	("autoconf" ,(autoconf-wrapper)))) ;others on 'autom4te'
2f8a123e	257
36d4d49e	258	(arguments
3246cc91 LC	259	`(;; Libltdl is provided as a separate package, so don't install it here.
	260	#:configure-flags '("--disable-ltdl-install")
	261
	262	;; XXX: There are test failures on mips64el-linux starting from 2.4.4:
	263	;; <http://hydra.gnu.org/build/181662>.
	264	#:tests? ,(not (string-prefix? "mips64"
	265	(or (%current-target-system)
	266	(%current-system))))
c154e1ea	267
3246cc91 LC	268	#:phases (alist-cons-before
	269	'check 'pre-check
	270	(lambda* (#:key inputs #:allow-other-keys)
	271	;; Run the test suite in parallel, if possible.
	272	(setenv "TESTSUITEFLAGS"
	273	(string-append
	274	"-j"
	275	(number->string (parallel-job-count))))
42ff70e2	276
3246cc91 LC	277	;; Path references to /bin/sh.
	278	(let ((bash (assoc-ref inputs "bash")))
	279	(substitute* "tests/testsuite"
	280	(("/bin/sh")
	281	(string-append bash "/bin/bash")))))
	282	%standard-phases)))
f50d2669	283	(synopsis "Generic shared library support tools")
36d4d49e	284	(description
79c311b8 LC	285	"GNU Libtool helps in the creation and use of shared libraries, by
	286	presenting a single consistent, portable interface that hides the usual
	287	complexity of working with shared libraries across platforms.")
4a44e743	288	(license gpl3+)
36d4d49e	289	(home-page "http://www.gnu.org/software/libtool/")))
e13f715b	290
3cbb3f9c LC	291	(define-public libltdl
	292	;; This is a libltdl package separate from the libtool package. This is
	293	;; useful because, unlike libtool, it has zero extra dependencies (making it
	294	;; readily usable during bootstrap), and it builds very quickly since
	295	;; Libtool's extensive test suite isn't run.
	296	(package
	297	(name "libltdl")
a101c891 LC	298	(version "2.4.4")
	299	(source (origin
	300	(method url-fetch)
	301	(uri (string-append "mirror://gnu/libtool/libtool-"
	302	version ".tar.xz"))
	303	(sha256
	304	(base32
	305	"0v3zq08qxv7k5067mpqrkjkjl3wphhg06i696mka90mzadc5nad8"))
	306	(patches
	307	(list (search-patch "libtool-skip-tests.patch")))))
3cbb3f9c LC	308	(build-system gnu-build-system)
	309	(arguments
	310	'(#:configure-flags '("--enable-ltdl-install") ;really install it
	311	#:phases (alist-cons-before
	312	'configure 'change-directory
	313	(lambda _
	314	(chdir "libltdl"))
	315	%standard-phases)))
	316
	317	(synopsis "System-independent dlopen wrapper of GNU libtool")
	318	(description (package-description libtool))
	319	(home-page (package-home-page libtool))
	320	(license lgpl2.1+)))