gnu: Put autoconf-related phases immediately after the 'unpack phase.

* gnu/packages/audio.scm (audacity, rtmidi)[arguments]: Correct phases
accordingly.
* gnu/packages/bioinformatics.scm (mash, seek, vsearch, emboss,
htslib-for-sambamba)[arguments]: Likewise.
* gnu/packages/ci.scm (cuirass)[arguments]: Likewise.
* gnu/packages/compression.scm (minizip, xdelta)[arguments]: Likewise.
* gnu/packages/cpp.scm (libzen)[arguments]: Likewise.
* gnu/packages/crypto.scm (opendht)[arguments]: Likewise.
* gnu/packages/databases.scm (4store, mdbtools)[arguments]: Likewise.
* gnu/packages/debug.scm (stress-make)[arguments]: Likewise.
* gnu/packages/dns.scm (dnscrypt-proxy, dnscrypt-wrapper)[arguments]:
Likewise.
* gnu/packages/emacs.scm (emacs-pdf-tools)[arguments]: Likewise.
* gnu/packages/embedded.scm (libjaylink, openocd)[arguments]: Likewise.
* gnu/packages/engineering.scm (gerbv)[arguments]: Likewise.
* gnu/packages/erlang.scm (erlang)[arguments]: Likewise.
* gnu/packages/ftp.scm (weex)[arguments]: Likewise.
* gnu/packages/gnome.scm (dia)[arguments]: Likewise.
* gnu/packages/gnunet.scm (gnurl, guile-gnunet)[arguments]: Likewise.
* gnu/packages/gtk.scm (guile-rsvg, graphene)[arguments]: Likewise.
* gnu/packages/guile.scm (guildhall, guile-ics, guile-sqlite3)[arguments]:
Likewise.
* gnu/packages/ibus.scm (ibus-libpinyin)[arguments]: Likewise.
* gnu/packages/irc.scm (weechat)[arguments]: Likewise.
* gnu/packages/java.scm (classpath-devel)[arguments]: Likewise.
* gnu/packages/libreoffice.scm (libetonyek)[arguments]: Likewise.
* gnu/packages/libusb.scm (hidapi)[arguments]: Likewise.
* gnu/packages/linux.scm (gpm)[arguments]: Likewise.
* gnu/packages/logging.scm (glog)[arguments]: Likewise.
* gnu/packages/machine-learning.scm (ghmm)[arguments]: Likewise.
* gnu/packages/mail.scm (dovecot-trees, dovecot-libsodium-plugin, esmtp)
[arguments]: Likewise.
* gnu/packages/messaging.scm (freetalk, libmesode, libstrophe)[arguments]:
Likewise.
* gnu/packages/microcom.scm (microcom)[arguments]: Likewise.
* gnu/packages/ocaml.scm (ocaml-ssl)[arguments]: Likewise.
* gnu/packages/parallel.scm (slurm)[arguments]: Likewise.
* gnu/packages/pdf.scm (libharu)[arguments]: Likewise.
* gnu/packages/samba.scm (cifs-utils)[arguments]: Likewise.
* gnu/packages/serialization.scm (msgpack)[arguments]: Likewise.
* gnu/packages/shells.scm (scsh)[arguments]: Likewise.
* gnu/packages/telephony.scm (libiax2)[arguments]: Likewise.
* gnu/packages/textutils.scm (dotconf)[arguments]: Likewise.
* gnu/packages/version-control.scm (findnewest)[arguments]: Likewise.
* gnu/packages/video.scm (libmediainfo, mediainfo)[arguments]: Likewise.
This commit is contained in:
Kei Kebreau 2017-07-30 21:02:35 -04:00
parent 100b216d8a
commit d10092b849
No known key found for this signature in database
GPG Key ID: E6A5EE3C19467A0D
39 changed files with 85 additions and 86 deletions

View File

@ -328,7 +328,7 @@ engineers, musicians, soundtrack editors and composers.")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; FFmpeg is only detected if autoreconf runs. ;; FFmpeg is only detected if autoreconf runs.
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))) (zero? (system* "autoreconf" "-vfi")))))
;; The test suite is not "well exercised" according to the developers, ;; The test suite is not "well exercised" according to the developers,
@ -1979,8 +1979,8 @@ tempo and pitch of an audio recording independently of one another.")
(arguments (arguments
`(#:tests? #f ;no "check" target `(#:tests? #f ;no "check" target
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before (add-after
'configure 'autoconf 'unpack 'autoconf
(lambda _ (zero? (system* "autoreconf" "-vfi")))) (lambda _ (zero? (system* "autoreconf" "-vfi"))))
(add-before (add-before
'build 'fix-makefile 'build 'fix-makefile

View File

@ -3450,7 +3450,7 @@ sequences).")
(("^#include \"kseq\\.h\"") (("^#include \"kseq\\.h\"")
"#include \"htslib/kseq.h\"")) "#include \"htslib/kseq.h\""))
#t)) #t))
(add-before 'configure 'autoconf (add-after 'fix-includes 'autoconf
(lambda _ (zero? (system* "autoconf"))))))) (lambda _ (zero? (system* "autoconf")))))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
@ -4486,7 +4486,7 @@ distribution, coverage uniformity, strand specificity, etc.")
"Data2DB" "Data2DB"
"PCL2Bin"))) "PCL2Bin")))
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
(zero? (system* "bash" "gen_auto")))) (zero? (system* "bash" "gen_auto"))))
(add-after 'build 'build-additional-tools (add-after 'build 'build-additional-tools
@ -6164,7 +6164,7 @@ track. The database is exposed as a @code{TxDb} object.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (zero? (system* "autoreconf" "-vif"))))))) (lambda _ (zero? (system* "autoreconf" "-vif")))))))
(inputs (inputs
`(("zlib" ,zlib) `(("zlib" ,zlib)
@ -8381,14 +8381,14 @@ used by @code{ensembldb}, @code{Organism.dplyr}, and other packages.")
AC_DEFINE([PLD_png], [1], [Define to 1 if PNG support is available]) AC_DEFINE([PLD_png], [1], [Define to 1 if PNG support is available])
AM_CONDITIONAL(AMPNG, true)")) AM_CONDITIONAL(AMPNG, true)"))
#t)) #t))
(add-after 'unpack 'disable-update-check (add-after 'fix-checks 'disable-update-check
(lambda _ (lambda _
;; At build time there is no connection to the Internet, so ;; At build time there is no connection to the Internet, so
;; looking for updates will not work. ;; looking for updates will not work.
(substitute* "Makefile.am" (substitute* "Makefile.am"
(("\\$\\(bindir\\)/embossupdate") "")) (("\\$\\(bindir\\)/embossupdate") ""))
#t)) #t))
(add-before 'configure 'autogen (add-after 'disable-update-check 'autogen
(lambda _ (zero? (system* "autoreconf" "-vif"))))))) (lambda _ (zero? (system* "autoreconf" "-vif")))))))
(inputs (inputs
`(("perl" ,perl) `(("perl" ,perl)
@ -9453,7 +9453,7 @@ problems in genomics, brain imaging, astrophysics, and data mining.")
(substitute-keyword-arguments (package-arguments htslib) (substitute-keyword-arguments (package-arguments htslib)
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases `(modify-phases ,phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vif")))))))) (zero? (system* "autoreconf" "-vif"))))))))
(native-inputs (native-inputs

View File

@ -216,7 +216,7 @@ their dependencies.")
(substitute* "Makefile.am" (substitute* "Makefile.am"
(("tests/repo.scm \\\\") "\\")) (("tests/repo.scm \\\\") "\\"))
#t)) #t))
(add-before 'configure 'bootstrap (add-after 'disable-repo-tests 'bootstrap
(lambda _ (zero? (system* "sh" "bootstrap")))) (lambda _ (zero? (system* "sh" "bootstrap"))))
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)

View File

@ -114,7 +114,7 @@ in compression.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'enter-source (add-after 'unpack 'enter-source
(lambda _ (chdir "contrib/minizip") #t)) (lambda _ (chdir "contrib/minizip") #t))
(add-before 'configure 'autoreconf (add-after 'enter-source 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vif"))))))) (zero? (system* "autoreconf" "-vif")))))))
(native-inputs (native-inputs
@ -976,7 +976,7 @@ respectively, based on the reference implementation from Google.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'enter-build-directory (add-after 'unpack 'enter-build-directory
(lambda _ (chdir "xdelta3"))) (lambda _ (chdir "xdelta3")))
(add-before 'configure 'autoconf (add-after 'enter-build-directory 'autoconf
(lambda _ (zero? (system* "autoreconf" "-vfi"))))))) (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
(home-page "http://xdelta.com") (home-page "http://xdelta.com")
(synopsis "Delta encoder for binary files") (synopsis "Delta encoder for binary files")

View File

@ -45,12 +45,12 @@
'(#:phases '(#:phases
;; build scripts not in root of archive ;; build scripts not in root of archive
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'pre-configure (add-after 'unpack 'pre-configure
(lambda _ (lambda _
(chdir "Project/GNU/Library"))) (chdir "Project/GNU/Library")))
(add-before 'configure 'autogen (add-after 'pre-configure 'autogen
(lambda _ (lambda _
(zero? (system* "./autogen.sh"))))))) (zero? (system* "sh" "autogen.sh")))))))
(home-page "https://github.com/MediaArea/ZenLib") (home-page "https://github.com/MediaArea/ZenLib")
(synopsis "C++ utility library") (synopsis "C++ utility library")
(description "ZenLib is a C++ utility library. It includes classes for handling (description "ZenLib is a C++ utility library. It includes classes for handling

View File

@ -161,7 +161,7 @@ OpenBSD tool of the same name.")
(arguments (arguments
`(#:configure-flags '("--disable-tools" "--disable-python") `(#:configure-flags '("--disable-tools" "--disable-python")
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'autoconf (add-after 'unpack 'autoconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(home-page "https://github.com/savoirfairelinux/opendht/") (home-page "https://github.com/savoirfairelinux/opendht/")

View File

@ -115,9 +115,9 @@
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'generate-configure (add-after 'unpack 'generate-configure
(lambda _ (lambda _
(zero? (system* "./autogen.sh"))))))) (zero? (system* "sh" "autogen.sh")))))))
;; http://www.4store.org has been down for a while now. ;; http://www.4store.org has been down for a while now.
(home-page "https://github.com/garlik/4store") (home-page "https://github.com/garlik/4store")
(synopsis "Clustered RDF storage and query engine") (synopsis "Clustered RDF storage and query engine")
@ -1563,7 +1563,7 @@ for ODBC.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(home-page "http://mdbtools.sourceforge.net/") (home-page "http://mdbtools.sourceforge.net/")

View File

@ -319,7 +319,7 @@ down the road.")
(add-before 'configure 'repack-make (add-before 'configure 'repack-make
(lambda _ (lambda _
(zero? (system* "tar" "cJf" "./make.tar.xz" ,make-dir)))) (zero? (system* "tar" "cJf" "./make.tar.xz" ,make-dir))))
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi")))))))) (zero? (system* "autoreconf" "-vfi"))))))))
(home-page "https://github.com/losalamos/stress-make") (home-page "https://github.com/losalamos/stress-make")

View File

@ -181,7 +181,7 @@ high-volume and high-reliability applications. The name BIND stands for
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
;; Re-generate build files due to unbundling ltdl. ;; Re-generate build files due to unbundling ltdl.
;; TODO: Prevent generating new libltdl and building it. ;; TODO: Prevent generating new libltdl and building it.
@ -229,7 +229,7 @@ servers is included, and an up-to-date version is available at
#:tests? #f #:tests? #f
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'create-configure (add-after 'unpack 'create-configure
(lambda _ (lambda _
(zero? (system* "make" "configure"))))))) (zero? (system* "make" "configure")))))))
(native-inputs (native-inputs

View File

@ -1273,7 +1273,7 @@ single buffer.")
;; Build server side using 'gnu-build-system'. ;; Build server side using 'gnu-build-system'.
(add-after 'unpack 'enter-server-dir (add-after 'unpack 'enter-server-dir
(lambda _ (chdir "server") #t)) (lambda _ (chdir "server") #t))
(add-before 'configure 'autogen (add-after 'enter-server-dir 'autogen
(lambda _ (lambda _
(zero? (system* "bash" "autogen.sh")))) (zero? (system* "bash" "autogen.sh"))))

View File

@ -316,7 +316,7 @@ languages are C and C++.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(home-page "http://repo.or.cz/w/libjaylink.git") (home-page "http://repo.or.cz/w/libjaylink.git")
@ -400,7 +400,7 @@ language.")
"presto" "openjtag"))) "presto" "openjtag")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(home-page "http://openocd.org") (home-page "http://openocd.org")

View File

@ -485,7 +485,7 @@ ready for production.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autoconf (add-after 'unpack 'autoconf
(lambda _ (lambda _
;; Build rules contain references to Russian translation, but the ;; Build rules contain references to Russian translation, but the
;; needed files are missing; see ;; needed files are missing; see

View File

@ -143,7 +143,7 @@
(add-before 'configure 'set-erl-top (add-before 'configure 'set-erl-top
(lambda _ (lambda _
(setenv "ERL_TOP" (getcwd)))) (setenv "ERL_TOP" (getcwd))))
(add-before 'configure 'autoconf (add-after 'patch-source-env 'autoconf
(lambda _ (zero? (system* "./otp_build" "autoconf")))) (lambda _ (zero? (system* "./otp_build" "autoconf"))))
(add-after 'install 'patch-erl (add-after 'install 'patch-erl
;; This only works after install. ;; This only works after install.

View File

@ -159,7 +159,7 @@ FTP browser, as well as non-interactive commands such as 'ncftpput' and
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (zero? (system* "autoreconf" "-vfi"))))))) (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
(home-page "http://weex.sourceforge.net/") (home-page "http://weex.sourceforge.net/")
(synopsis "Non-interactive client for FTP synchronization") (synopsis "Non-interactive client for FTP synchronization")

View File

@ -312,7 +312,7 @@ either on a local, or remote machine via a number of methods.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'run-autogen (add-after 'unpack 'run-autogen
(lambda _ (lambda _
(system* "sh" "autogen.sh")))))) (system* "sh" "autogen.sh"))))))
(home-page "https://wiki.gnome.org/Apps/Dia") (home-page "https://wiki.gnome.org/Apps/Dia")

View File

@ -234,10 +234,10 @@ and support for SSL3 and TLS.")
(rename-file (string-append out "/share/man/man3") (rename-file (string-append out "/share/man/man3")
(string-append doc "/share/man/man3")) (string-append doc "/share/man/man3"))
#t))) #t)))
(add-before 'configure 'autoconf (add-after 'unpack 'autoconf
;; Clear artifacts left (shebangs) from release preparation. ;; Clear artifacts left (shebangs) from release preparation.
(lambda _ (lambda _
(zero? (system* "./buildconf")))) (zero? (system* "sh" "buildconf"))))
(replace 'check (replace 'check
(lambda _ (lambda _
;; It is unclear why test1026 fails, however the content of it ;; It is unclear why test1026 fails, however the content of it
@ -345,7 +345,7 @@ kinds of basic applications for the foundation of a GNU internet.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)

View File

@ -838,7 +838,7 @@ exceptions, macros, and a dynamic programming environment.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (modify-phases %standard-phases `(#:phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)

View File

@ -365,7 +365,7 @@ AM_SCM_LOG_FLAGS = --no-auto-compile -s")
;; reasons. It does not fail when run outside of Guix. ;; reasons. It does not fail when run outside of Guix.
(("tests/database.scm") "")) (("tests/database.scm") ""))
#t)) #t))
(add-before 'configure 'autogen (add-after 'fix-bug-22 'autogen
(lambda _ (lambda _
(zero? (system* "sh" "autogen.sh"))))))) (zero? (system* "sh" "autogen.sh")))))))
(inputs (inputs
@ -654,7 +654,7 @@ format is also supported.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
;; Repository comes with a broken symlink ;; Repository comes with a broken symlink
(delete-file "README") (delete-file "README")
@ -1126,7 +1126,7 @@ Guile's foreign function interface.")
("sqlite" ,sqlite))) ("sqlite" ,sqlite)))
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi")))) (zero? (system* "autoreconf" "-vfi"))))
(add-before 'build 'set-sqlite3-file-name (add-before 'build 'set-sqlite3-file-name

View File

@ -148,7 +148,7 @@ may also simplify input method development.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (and (zero? (system* "intltoolize")) (lambda _ (and (zero? (system* "intltoolize"))
(zero? (system* "autoreconf" "-vif"))))) (zero? (system* "autoreconf" "-vif")))))
(add-after 'wrap-program 'wrap-with-additional-paths (add-after 'wrap-program 'wrap-with-additional-paths

View File

@ -180,9 +180,9 @@ SILC and ICB protocols via plugins.")
"--with-tclconfig=" "--with-tclconfig="
(assoc-ref %build-inputs "tcl") "/lib")) (assoc-ref %build-inputs "tcl") "/lib"))
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (lambda _
(zero? (system* "./autogen.sh")))) (zero? (system* "sh" "autogen.sh"))))
(add-after 'install 'wrap (add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))

View File

@ -685,7 +685,7 @@ the standard javac executable. The tool runs on JamVM instead of SableVM.")))
"--disable-gjdoc") "--disable-gjdoc")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'remove-unsupported-anootations 'bootstrap
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vif")))) (zero? (system* "autoreconf" "-vif"))))
(add-after 'unpack 'remove-unsupported-annotations (add-after 'unpack 'remove-unsupported-annotations

View File

@ -364,7 +364,7 @@ CorelDRAW documents of all versions.")
(arguments (arguments
`(#:configure-flags '("--with-mdds=1.2") `(#:configure-flags '("--with-mdds=1.2")
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (system* "autoreconf")))))) (lambda _ (system* "autoreconf"))))))
(native-inputs (native-inputs
`(("cppunit" ,cppunit) `(("cppunit" ,cppunit)

View File

@ -332,7 +332,7 @@ devices.")
(arguments (arguments
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(inputs (inputs

View File

@ -3122,7 +3122,7 @@ write access to exFAT devices.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
;; The tarball was not generated with 'make dist' so we ;; The tarball was not generated with 'make dist' so we
;; need to bootstrap things ourselves. ;; need to bootstrap things ourselves.

View File

@ -75,7 +75,7 @@ staying as close to their API as is reasonable.")
("libtool" ,libtool))) ("libtool" ,libtool)))
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-before 'configure 'add-automake-files (add-after 'unpack 'add-automake-files
(lambda _ (lambda _
;; The 'test-driver' file is a dangling symlink to ;; The 'test-driver' file is a dangling symlink to
;; /usr/share/automake; replace it. We can't just run ;; /usr/share/automake; replace it. We can't just run

View File

@ -190,9 +190,9 @@ classification.")
"@unittest.skip(\"Disabled by Guix\")\n" "@unittest.skip(\"Disabled by Guix\")\n"
line))) line)))
#t)) #t))
(add-before 'configure 'autogen (add-after 'disable-broken-tests 'autogen
(lambda _ (lambda _
(zero? (system* "bash" "./autogen.sh"))))))) (zero? (system* "bash" "autogen.sh")))))))
(inputs (inputs
`(("python" ,python-2) ; only Python 2 is supported `(("python" ,python-2) ; only Python 2 is supported
("libxml2" ,libxml2))) ("libxml2" ,libxml2)))

View File

@ -1169,9 +1169,9 @@ It supports mbox/Maildir and its own dbox/mdbox formats.")
"/lib/dovecot")) "/lib/dovecot"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (lambda _
(zero? (system* "./autogen.sh"))))))) (zero? (system* "sh" "autogen.sh")))))))
(home-page "https://0xacab.org/riseuplabs/trees") (home-page "https://0xacab.org/riseuplabs/trees")
(synopsis "NaCL-based Dovecot email storage encryption plugin") (synopsis "NaCL-based Dovecot email storage encryption plugin")
(description (description
@ -1225,9 +1225,9 @@ using lidsodium sealed boxes.
"/lib/dovecot")) "/lib/dovecot"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (lambda _
(zero? (system* "./autogen.sh"))))))) (zero? (system* "sh" "autogen.sh")))))))
(home-page "https://github.com/LuckyFellow/dovecot-libsodium-plugin") (home-page "https://github.com/LuckyFellow/dovecot-libsodium-plugin")
(synopsis "Libsodium password hashing schemes plugin for Dovecot") (synopsis "Libsodium password hashing schemes plugin for Dovecot")
(description (description

View File

@ -1209,7 +1209,7 @@ support, and more.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (lambda _
(zero? (system* "sh" "autogen.sh")))) (zero? (system* "sh" "autogen.sh"))))
;; For 'system' commands in Scheme code. ;; For 'system' commands in Scheme code.

View File

@ -42,7 +42,7 @@
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
(zero? (system* "autoreconf" "-i"))))))) (zero? (system* "autoreconf" "-i")))))))
(inputs `(("readline" ,readline))) (inputs `(("readline" ,readline)))

View File

@ -1631,9 +1631,9 @@ lets the client choose the concrete timeline.")
#:make-flags (list "OCAMLFIND_LDCONF=ignore") #:make-flags (list "OCAMLFIND_LDCONF=ignore")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda* (#:key #:allow-other-keys) (lambda* (#:key #:allow-other-keys)
(system* "./bootstrap") (system* "sh" "bootstrap")
(substitute* "src/OCamlMakefile" (substitute* "src/OCamlMakefile"
(("/bin/sh") (which "bash"))) (("/bin/sh") (which "bash")))
(substitute* "configure" (substitute* "configure"

View File

@ -136,8 +136,7 @@ and they are executed on lists of files, hosts, users or other items.")
(string-append "--with-ssl=" (assoc-ref %build-inputs "openssl"))) (string-append "--with-ssl=" (assoc-ref %build-inputs "openssl")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before (add-after 'unpack 'autogen
'configure 'autogen
(lambda _ (zero? (system* "autoconf"))))))) ; configure.ac was patched (lambda _ (zero? (system* "autoconf"))))))) ; configure.ac was patched
(home-page "http://slurm.schedmd.com/") (home-page "http://slurm.schedmd.com/")
(synopsis "Workload manager for cluster computing") (synopsis "Workload manager for cluster computing")

View File

@ -254,7 +254,7 @@ Poppler PDF rendering library.")
(assoc-ref %build-inputs "libpng"))) (assoc-ref %build-inputs "libpng")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (zero? (system* "autoreconf" "-vif"))))))) (lambda _ (zero? (system* "autoreconf" "-vif")))))))
(inputs (inputs
`(("zlib" ,zlib) `(("zlib" ,zlib)

View File

@ -71,7 +71,7 @@
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; The 6.7 tarball is missing install.sh. Create it. ;; The 6.7 tarball is missing install.sh. Create it.
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-i")))) (zero? (system* "autoreconf" "-i"))))
(add-before 'configure 'set-root-sbin (add-before 'configure 'set-root-sbin

View File

@ -127,7 +127,7 @@ such as compact binary encodings, XML, or JSON.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autoconf (add-after 'unpack 'autoconf
(lambda _ (lambda _
(system* "autoreconf" "-vfi")))))) (system* "autoreconf" "-vfi"))))))
(home-page "http://www.msgpack.org") (home-page "http://www.msgpack.org")

View File

@ -430,7 +430,7 @@ use of experts and novices alike.")
(delete-file-recursively "rx") (delete-file-recursively "rx")
(symlink rxpath "rx")) (symlink rxpath "rx"))
#t)) #t))
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf"))))))) (zero? (system* "autoreconf")))))))
(inputs (inputs

View File

@ -272,7 +272,7 @@ and a supporting cryptographic kernel.")
("libtool" ,libtool))) ("libtool" ,libtool)))
(arguments (arguments
`(#:phases (modify-phases %standard-phases `(#:phases (modify-phases %standard-phases
(add-before 'configure 'autoconf (add-after 'unpack 'autoconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(home-page "https://gitlab.savoirfairelinux.com/sflphone/libiax2") (home-page "https://gitlab.savoirfairelinux.com/sflphone/libiax2")

View File

@ -579,7 +579,7 @@ categories.")
`(#:tests? #f ; FIXME maketest.sh does not work. `(#:tests? #f ; FIXME maketest.sh does not work.
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'autoreconf (add-after 'unpack 'autoreconf
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vif"))))))) (zero? (system* "autoreconf" "-vif")))))))
(native-inputs (native-inputs

View File

@ -1263,7 +1263,7 @@ output of the 'git' command.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap (add-after 'unpack 'bootstrap
(lambda _ (lambda _
(zero? (system* "autoreconf" "-vfi"))))))) (zero? (system* "autoreconf" "-vfi")))))))
(native-inputs `(("autoconf" ,autoconf) (native-inputs `(("autoconf" ,autoconf)

View File

@ -2253,9 +2253,9 @@ practically any type of media.")
(add-before 'configure 'pre-configure (add-before 'configure 'pre-configure
(lambda _ (lambda _
(chdir "Project/GNU/Library"))) (chdir "Project/GNU/Library")))
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (lambda _
(zero? (system* "./autogen.sh"))))))) (zero? (system* "sh" "autogen.sh")))))))
(home-page "https://mediaarea.net/en/MediaInfo") (home-page "https://mediaarea.net/en/MediaInfo")
(synopsis "Library for retrieving media metadata") (synopsis "Library for retrieving media metadata")
(description "MediaInfo is a library used for retrieving technical (description "MediaInfo is a library used for retrieving technical
@ -2311,9 +2311,9 @@ MPEG-2, MPEG-4, DVD (VOB)...
(add-before 'configure 'pre-configure (add-before 'configure 'pre-configure
(lambda _ (lambda _
(chdir "Project/GNU/CLI"))) (chdir "Project/GNU/CLI")))
(add-before 'configure 'autogen (add-after 'unpack 'autogen
(lambda _ (lambda _
(zero? (system* "./autogen.sh"))))))) (zero? (system* "sh" "autogen.sh")))))))
(home-page "https://mediaarea.net/en/MediaInfo") (home-page "https://mediaarea.net/en/MediaInfo")
(synopsis "Utility for reading media metadata") (synopsis "Utility for reading media metadata")
(description "MediaInfo is a utility used for retrieving technical (description "MediaInfo is a utility used for retrieving technical