gnu/packages/autotools.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
   3 ;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
   5 ;;;
   6 ;;; This file is part of GNU Guix.
   7 ;;;
   8 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   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 ;;;
  13 ;;; GNU Guix is distributed in the hope that it will be useful, but
  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
  19 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 (define-module (gnu packages autotools)
  22   #:use-module (guix licenses)
  23   #:use-module (gnu packages)
  24   #:use-module (gnu packages perl)
  25   #:use-module (gnu packages m4)
  26   #:use-module (gnu packages bash)
  27   #:use-module (guix utils)
  28   #:use-module (guix packages)
  29   #:use-module (guix download)
  30   #:use-module (guix build-system gnu)
  31   #:use-module (guix build-system trivial)
  32   #:use-module (ice-9 match)
  33   #:export (autoconf-wrapper))
  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)
  48     (native-inputs
  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/")
  56     (synopsis "Create source code configuration scripts")
  57     (description
  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.")
  63     (license gpl3+))) ; some files are under GPLv2+
  64
  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
  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
  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."
  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"
 101                ;; XXX: Kludge to hide the circular dependency.
 102                ,(module-ref (resolve-interface '(gnu packages guile))
 103                             'guile-2.0))
 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)))))
 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))))
 158                 port)))
 159            (chmod (string-append bin "/autoconf") #o555)))))))
 160
 161 (define-public automake
 162   (package
 163     (name "automake")
 164     (version "1.15")
 165     (source (origin
 166              (method url-fetch)
 167              (uri (string-append "mirror://gnu/automake/automake-"
 168                                  version ".tar.xz"))
 169              (sha256
 170               (base32
 171                "0dl6vfi2lzz8alnklwxzfz624b95hb1ipjvd3mk177flmddcf24r"))
 172              (patches
 173               (list (search-patch "automake-skip-amhello-tests.patch")))))
 174     (build-system gnu-build-system)
 175     (native-inputs
 176      `(("autoconf" ,(autoconf-wrapper))
 177        ("perl" ,perl)))
 178     (native-search-paths
 179      (list (search-path-specification
 180             (variable "ACLOCAL_PATH")
 181             (files '("share/aclocal")))))
 182     (arguments
 183      '(#:modules ((guix build gnu-build-system)
 184                   (guix build utils)
 185                   (srfi srfi-1)
 186                   (srfi srfi-26)
 187                   (rnrs io ports))
 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)))
 200
 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))))
 229     (home-page "http://www.gnu.org/software/automake/")
 230     (synopsis "Making GNU standards-compliant Makefiles")
 231     (description
 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.")
 236     (license gpl2+)))                      ; some files are under GPLv3+
 237
 238 (define-public libtool
 239   (package
 240     (name "libtool")
 241     (version "2.4.2")
 242     (source (origin
 243              (method url-fetch)
 244              (uri (string-append "mirror://gnu/libtool/libtool-"
 245                                  version ".tar.gz"))
 246              (sha256
 247               (base32
 248                "0649qfpzkswgcj9vqkkr9rn4nlcx80faxpyqscy2k1x9c94f93dk"))
 249              (patches
 250               (list (search-patch "libtool-skip-tests.patch")
 251                     (search-patch "libtool-skip-tests-for-mips.patch")))))
 252     (build-system gnu-build-system)
 253     (native-inputs `(("m4" ,m4)
 254                      ("perl" ,perl)))
 255
 256     ;; Separate binaries from the rest.  During bootstrap, only ltdl is
 257     ;; used; not depending on the binaries allows us to avoid retaining
 258     ;; a reference to the bootstrap bash.
 259     (outputs '("bin"                         ; libtoolize, libtool, etc.
 260                "out"))                       ; libltdl.so, ltdl.h, etc.
 261
 262     (arguments
 263      (if (%current-target-system)
 264          '()                            ; no `check' phase when cross-building
 265          '(#:phases (alist-cons-before
 266                      'check 'pre-check
 267                      (lambda* (#:key inputs #:allow-other-keys)
 268                        ;; Run the test suite in parallel, if possible.
 269                        (setenv "TESTSUITEFLAGS"
 270                                (string-append
 271                                 "-j"
 272                                 (number->string (parallel-job-count))))
 273
 274                        ;; Path references to /bin/sh.
 275                        (let ((bash (assoc-ref inputs "bash")))
 276                          (substitute* "tests/testsuite"
 277                            (("/bin/sh")
 278                             (string-append bash "/bin/bash")))))
 279                      %standard-phases))))
 280     (synopsis "Generic shared library support tools")
 281     (description
 282      "GNU Libtool helps in the creation and use of shared libraries, by
 283 presenting a single consistent, portable interface that hides the usual
 284 complexity of working with shared libraries across platforms.")
 285     (license gpl3+)
 286     (home-page "http://www.gnu.org/software/libtool/")))
 287
 288 (define-public libtool-2.4.4
 289   (package (inherit libtool)
 290     (version "2.4.4")
 291     (source (origin
 292               (method url-fetch)
 293               (uri (string-append "mirror://gnu/libtool/libtool-"
 294                                   version ".tar.xz"))
 295               (sha256
 296                (base32
 297                 "0v3zq08qxv7k5067mpqrkjkjl3wphhg06i696mka90mzadc5nad8"))
 298               (patches
 299                (list (search-patch "libtool-2.4-skip-tests.patch")))))
 300
 301     (native-inputs `(("automake" ,automake)      ;some tests rely on 'aclocal'
 302                      ("autoconf" ,(autoconf-wrapper)) ;others on 'autom4te'
 303                      ,@(package-native-inputs libtool)))
 304
 305     (arguments
 306      ;; XXX: There are test failures on mips64el-linux starting from 2.4.4:
 307      ;; <http://hydra.gnu.org/build/181662>.
 308      (if (string-prefix? "mips64el"
 309                          (or (%current-target-system) (%current-system)))
 310          `(#:tests? #f
 311            ,@(package-arguments libtool))
 312          (package-arguments libtool)))))
 313
 314 (define-public libltdl
 315   ;; This is a libltdl package separate from the libtool package.  This is
 316   ;; useful because, unlike libtool, it has zero extra dependencies (making it
 317   ;; readily usable during bootstrap), and it builds very quickly since
 318   ;; Libtool's extensive test suite isn't run.
 319   (package
 320     (name "libltdl")
 321     (version (package-version libtool))
 322     (source (package-source libtool))
 323     (build-system gnu-build-system)
 324     (arguments
 325      '(#:configure-flags '("--enable-ltdl-install") ;really install it
 326        #:phases (alist-cons-before
 327                  'configure 'change-directory
 328                  (lambda _
 329                    (chdir "libltdl"))
 330                  %standard-phases)))
 331
 332     (synopsis "System-independent dlopen wrapper of GNU libtool")
 333     (description (package-description libtool))
 334     (home-page (package-home-page libtool))
 335     (license lgpl2.1+)))