From de67e922885baf68a746a0484ca0b45e45b0964b Mon Sep 17 00:00:00 2001 From: Leo Famulari Date: Thu, 21 Jul 2016 02:35:30 -0400 Subject: gnu: Update URLs for sourceforge.net. * gnu/packages/admin.scm: Update URLs pointing to sourceforge.net. * gnu/packages/audacity.scm: Likewise. * gnu/packages/audio.scm: Likewise. * gnu/packages/bioinformatics.scm: Likewise. * gnu/packages/boost.scm: Likewise. * gnu/packages/cdrom.scm: Likewise. * gnu/packages/code.scm: Likewise. * gnu/packages/compression.scm: Likewise. * gnu/packages/cups.scm: Likewise. * gnu/packages/djvu.scm: Likewise. * gnu/packages/docbook.scm: Likewise. * gnu/packages/documentation.scm: Likewise. * gnu/packages/flashing-tools.scm: Likewise. * gnu/packages/fonts.scm: Likewise. * gnu/packages/fontutils.scm: Likewise. * gnu/packages/games.scm: Likewise. * gnu/packages/ghostscript.scm: Likewise. * gnu/packages/gl.scm: Likewise. * gnu/packages/gnucash.scm: Likewise. * gnu/packages/graphviz.scm: Likewise. * gnu/packages/image.scm: Likewise. * gnu/packages/libreoffice.scm: Likewise. * gnu/packages/libusb.scm: Likewise. * gnu/packages/linux.scm: Likewise. * gnu/packages/lirc.scm: Likewise. * gnu/packages/maths.scm: Likewise. * gnu/packages/mcrypt.scm: Likewise. * gnu/packages/mp3.scm: Likewise. * gnu/packages/music.scm: Likewise. * gnu/packages/networking.scm: Likewise. * gnu/packages/onc-rpc.scm: Likewise. * gnu/packages/password-utils.scm: Likewise. * gnu/packages/pdf.scm: Likewise. * gnu/packages/perl.scm: Likewise. * gnu/packages/photo.scm: Likewise. * gnu/packages/popt.scm: Likewise. * gnu/packages/python.scm: Likewise. * gnu/packages/rdesktop.scm: Likewise. * gnu/packages/screen.scm: Likewise. * gnu/packages/swig.scm: Likewise. * gnu/packages/tcl.scm: Likewise. * gnu/packages/version-control.scm: Likewise. * gnu/packages/video.scm: Likewise. * gnu/packages/w3m.scm: Likewise. * gnu/packages/web.scm: Likewise. * gnu/packages/wm.scm: Likewise. * gnu/packages/xdisorg.scm: Likewise. * gnu/packages/xml.scm: Likewise. --- gnu/packages/version-control.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/packages/version-control.scm') diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 61560d5fe7..58bcaad064 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -935,8 +935,8 @@ accessed and migrated on modern systems.") (version "4.24") (source (origin (method url-fetch) - (uri (string-append "mirror://sourceforge/aegis/aegis-" - version ".tar.gz")) + (uri (string-append "mirror://sourceforge/aegis/aegis/" version + "/aegis-" version ".tar.gz")) (sha256 (base32 "18s86ssarfmc4l17gbpzybca29m5wa37cbaimdji8czlcry3mcjl")) -- cgit v1.2.3 From 730c740e43edd659652374601058b3249d0ca96c Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 22 Jul 2016 14:44:58 +0300 Subject: gnu: bazaar: Use 'modify-phases'. * gnu/packages/version-control.scm (bazaar)[arguments]: Use 'modify-phases'. --- gnu/packages/version-control.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'gnu/packages/version-control.scm') diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 58bcaad064..6d0d4f991d 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -94,12 +94,13 @@ `(#:tests? #f ; no test target #:python ,python-2 ; Python 3 apparently not yet supported, see ; https://answers.launchpad.net/bzr/+question/229048 - #:phases (alist-cons-after - 'unpack 'fix-mandir - (lambda _ - (substitute* "setup.py" - (("man/man1") "share/man/man1"))) - %standard-phases))) + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-mandir + (lambda _ + (substitute* "setup.py" + (("man/man1") "share/man/man1")) + #t))))) (home-page "https://gnu.org/software/bazaar") (synopsis "Version control system supporting both distributed and centralized workflows") (description -- cgit v1.2.3 From aac42d78852daa7930f79f1c1061f1558f93abd3 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 22 Jul 2016 15:45:15 +0300 Subject: gnu: git-flow: Use 'modify-phases'. * gnu/packages/version-control.scm (git-flow)[arguments]: Use 'modify-phases'. --- gnu/packages/version-control.scm | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'gnu/packages/version-control.scm') diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 6d0d4f991d..0ad9f1c28a 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -490,19 +490,19 @@ will work.") '(#:tests? #f ; no tests #:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out"))) - #:phases (alist-cons-after - 'unpack 'reset-shFlags-link - (lambda* (#:key inputs #:allow-other-keys) - ;; The link points to a file in the shFlags submodule. - ;; Redirect it to point to our system shFlags. - (let ((shflags (assoc-ref inputs "shflags"))) - (begin - (delete-file "gitflow-shFlags") - (symlink (string-append shflags "/src/shflags") - "gitflow-shFlags")))) - (alist-delete - 'configure - (alist-delete 'build %standard-phases))))) + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'reset-shFlags-link + (lambda* (#:key inputs #:allow-other-keys) + ;; The link points to a file in the shFlags submodule. + ;; Redirect it to point to our system shFlags. + (let ((shflags (assoc-ref inputs "shflags"))) + (begin + (delete-file "gitflow-shFlags") + (symlink (string-append shflags "/src/shflags") + "gitflow-shFlags"))))) + (delete 'configure) + (delete 'build)))) (home-page "http://nvie.com/posts/a-successful-git-branching-model/") (synopsis "Git extensions for Vincent Driessen's branching model") (description -- cgit v1.2.3 From ce84c924ac0b537aba83936a124e13c6bafb0a2a Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 22 Jul 2016 15:49:54 +0300 Subject: gnu: subversion: Use https. * gnu/packages/version-control.scm (subversion)[source]: Use https. [home-page]: Use https. --- gnu/packages/version-control.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/packages/version-control.scm') diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 0ad9f1c28a..51be56c150 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -685,7 +685,7 @@ property manipulation.") (version "1.8.16") (source (origin (method url-fetch) - (uri (string-append "http://archive.apache.org/dist/subversion/" + (uri (string-append "https://archive.apache.org/dist/subversion/" "subversion-" version ".tar.bz2")) (sha256 (base32 @@ -739,7 +739,7 @@ property manipulation.") ("python" ,python-2) ; incompatible with Python 3 (print syntax) ("sqlite" ,sqlite) ("zlib" ,zlib))) - (home-page "http://subversion.apache.org/") + (home-page "https://subversion.apache.org/") (synopsis "Revision control system") (description "Subversion exists to be universally recognized and adopted as a -- cgit v1.2.3 From 7c5a1454144cafb37c0aa2844bc4d258bb69c413 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 22 Jul 2016 15:52:35 +0300 Subject: gnu: subversion: Use 'modify-phases'. * gnu/packages/version-control.scm (subversion)[arguments]: Use 'modify-phases'. --- gnu/packages/version-control.scm | 65 +++++++++++++++++++--------------------- 1 file changed, 31 insertions(+), 34 deletions(-) (limited to 'gnu/packages/version-control.scm') diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 51be56c150..705f24194a 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -692,41 +692,38 @@ property manipulation.") "0imkxn25n6sbcgfldrx4z29npjprb1lxjm5fb89q4297161nx3zi")))) (build-system gnu-build-system) (arguments - '(#:phases (alist-cons-after - 'configure 'patch-libtool-wrapper-ls - (lambda* (#:key inputs #:allow-other-keys) - ;; This substitution allows tests svnauthz_tests and - ;; svnlook_tests to pass. These tests execute svnauthz and - ;; svnlook through their libtool wrapper scripts from svn - ;; hooks, whose empty environments cause "ls: command not - ;; found" errors. It would be nice if this fix ultimately - ;; made its way into libtool. - (let ((coreutils (assoc-ref inputs "coreutils"))) - (substitute* "libtool" - (("\\\\`ls") (string-append "\\`" coreutils "/bin/ls"))))) - (alist-cons-after - 'install 'install-perl-bindings - (lambda* (#:key outputs #:allow-other-keys) - ;; Follow the instructions from - ;; 'subversion/bindings/swig/INSTALL'. - (let ((out (assoc-ref outputs "out"))) - (and (zero? (system* "make" "swig-pl-lib")) - ;; FIXME: Test failures. - ;; (zero? (system* "make" "check-swig-pl")) - (zero? (system* "make" "install-swig-pl-lib")) + '(#:phases + (modify-phases %standard-phases + (add-after 'configure 'patch-libtool-wrapper-ls + (lambda* (#:key inputs #:allow-other-keys) + ;; This substitution allows tests svnauthz_tests and svnlook_tests + ;; to pass. These tests execute svnauthz and svnlook through + ;; their libtool wrapper scripts from svn hooks, whose empty + ;; environments cause "ls: command not found" errors. It would be + ;; nice if this fix ultimately made its way into libtool. + (let ((coreutils (assoc-ref inputs "coreutils"))) + (substitute* "libtool" + (("\\\\`ls") (string-append "\\`" coreutils "/bin/ls")))))) + (add-after 'install 'install-perl-bindings + (lambda* (#:key outputs #:allow-other-keys) + ;; Follow the instructions from 'subversion/bindings/swig/INSTALL'. + (let ((out (assoc-ref outputs "out"))) + (and (zero? (system* "make" "swig-pl-lib")) + ;; FIXME: Test failures. + ;; (zero? (system* "make" "check-swig-pl")) + (zero? (system* "make" "install-swig-pl-lib")) - ;; Set the right installation prefix. - (with-directory-excursion - "subversion/bindings/swig/perl/native" - (and (zero? - (system* "perl" "Makefile.PL" - (string-append "PREFIX=" out))) - (zero? - (system* "make" "install" - (string-append "OTHERLDFLAGS=" - "-Wl,-rpath=" - out "/lib")))))))) - %standard-phases)))) + ;; Set the right installation prefix. + (with-directory-excursion + "subversion/bindings/swig/perl/native" + (and (zero? + (system* "perl" "Makefile.PL" + (string-append "PREFIX=" out))) + (zero? + (system* "make" "install" + (string-append "OTHERLDFLAGS=" + "-Wl,-rpath=" + out "/lib")))))))))))) (native-inputs `(("pkg-config" ,pkg-config) ;; For the Perl bindings. -- cgit v1.2.3 From bf3c57ff2dcaf54d1cb2767101f092c715bb5aee Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 22 Jul 2016 15:56:21 +0300 Subject: gnu: cssc: Use 'modify-phases'. * gnu/packages/version-control.scm (cssc)[arguments]: Use 'modify-phases'. --- gnu/packages/version-control.scm | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'gnu/packages/version-control.scm') diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 705f24194a..cdaf53c33a 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -898,23 +898,23 @@ large, complex patch files.") "cssc-missing-include.patch")))) (build-system gnu-build-system) (arguments - `(#:phases (alist-cons-before - 'check 'precheck - (lambda _ - (begin - (substitute* "tests/common/test-common" - (("/bin/pwd") (which "pwd"))) + `(#:phases + (modify-phases %standard-phases + (add-before 'check 'precheck + (lambda _ + (begin + (substitute* "tests/common/test-common" + (("/bin/pwd") (which "pwd"))) - (substitute* "tests/prt/all-512.sh" - (("/bin/sh") (which "sh"))) + (substitute* "tests/prt/all-512.sh" + (("/bin/sh") (which "sh"))) - ;; XXX: This test has no hope of passing until there is a "nogroup" - ;; entry (or at least some group to which the guix builder does - ;; not belong) in the /etc/group file of the build environment. - ;; Currently we do not have such a group. Disable this test for now. - (substitute* "tests/Makefile" - (("test-delta ") "")))) - %standard-phases))) + ;; XXX: This test has no hope of passing until there is a "nogroup" + ;; entry (or at least some group to which the guix builder does + ;; not belong) in the /etc/group file of the build environment. + ;; Currently we do not have such a group. Disable this test for now. + (substitute* "tests/Makefile" + (("test-delta ") "")))))))) ;; These are needed for the tests (native-inputs `(("git" ,git) ("cvs" ,cvs))) -- cgit v1.2.3 From 2ce516d359d9f2525f6b78f1de6dcee8de1c40ae Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 22 Jul 2016 17:17:02 +0300 Subject: gnu: git: Use 'modify-phases'. * gnu/packages/version-control.scm (git)[arguments]: Use 'modify-phases'. --- gnu/packages/version-control.scm | 39 ++++++++++++++++++--------------------- 1 file changed, 18 insertions(+), 21 deletions(-) (limited to 'gnu/packages/version-control.scm') diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index cdaf53c33a..450f7f5a14 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -167,25 +167,23 @@ as well as the classic centralized workflow.") #:modules ((srfi srfi-1) ,@%gnu-build-system-modules) #:phases - (alist-cons-after - 'configure 'patch-makefile-shebangs - (lambda _ - (substitute* "Makefile" - (("/bin/sh") (which "sh")) - (("/usr/bin/perl") (which "perl")) - (("/usr/bin/python") (which "python")))) - (alist-cons-after - 'install 'install-shell-completion - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (completions (string-append out "/etc/bash_completion.d"))) - ;; TODO: Install the tcsh and zsh completions in the right place. - (mkdir-p completions) - (copy-file "contrib/completion/git-completion.bash" - (string-append completions "/git")) - #t)) - (alist-cons-after - 'install 'split + (modify-phases %standard-phases + (add-after 'configure 'patch-makefile-shebangs + (lambda _ + (substitute* "Makefile" + (("/bin/sh") (which "sh")) + (("/usr/bin/perl") (which "perl")) + (("/usr/bin/python") (which "python"))))) + (add-after 'install 'install-shell-completion + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (completions (string-append out "/etc/bash_completion.d"))) + ;; TODO: Install the tcsh and zsh completions in the right place. + (mkdir-p completions) + (copy-file "contrib/completion/git-completion.bash" + (string-append completions "/git")) + #t))) + (add-after 'install 'split (lambda* (#:key inputs outputs #:allow-other-keys) ;; Split the binaries to the various outputs. (let* ((out (assoc-ref outputs "out")) @@ -257,8 +255,7 @@ as well as the classic centralized workflow.") ;; specify a single directory, not a search path. (wrap-program (string-append out "/bin/git") `("PATH" ":" prefix - ("$HOME/.guix-profile/libexec/git-core"))))) - %standard-phases))))) + ("$HOME/.guix-profile/libexec/git-core"))))))))) (native-search-paths ;; For HTTPS access, Git needs a single-file certificate bundle, specified -- cgit v1.2.3 From 8ef843c711e73db2aac9e9b6e4193bc13b7c1dad Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 22 Jul 2016 17:34:57 +0300 Subject: gnu: aegis: Use 'modify-phases'. * gnu/packages/version-control.scm (aegis)[arguments]: Use 'modify-phases'. --- gnu/packages/version-control.scm | 60 +++++++++++++++++++--------------------- 1 file changed, 29 insertions(+), 31 deletions(-) (limited to 'gnu/packages/version-control.scm') diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 450f7f5a14..d0decefc9a 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -964,39 +964,37 @@ accessed and migrated on modern systems.") "--sharedstatedir=/var/com/aegis") #:parallel-build? #f ; There are some nasty racy rules in the Makefile. #:phases - (alist-cons-before - 'configure 'pre-conf - (lambda _ - (substitute* (append '("configure" - "etc/check-tar-gz.sh" - "etc/patches.sh" - "etc/test.sh" - "script/aexver.in" - "script/aebisect.in" - "script/aeintegratq.in" - "script/tkaegis.in" - "script/test_funcs.in" - "web/eg_oss_templ.sh" - "web/webiface.html" - "libaegis/getpw_cache.cc") - (find-files "test" "\\.sh")) - (("/bin/sh") (which "sh"))) - (setenv "SH" (which "sh"))) - (alist-replace - 'check - (lambda _ - (let ((home (string-append (getcwd) "/my-new-home"))) - ;; Some tests need to write to $HOME. - (mkdir home) - (setenv "HOME" home) + (modify-phases %standard-phases + (add-before 'configure 'pre-conf + (lambda _ + (substitute* (append '("configure" + "etc/check-tar-gz.sh" + "etc/patches.sh" + "etc/test.sh" + "script/aexver.in" + "script/aebisect.in" + "script/aeintegratq.in" + "script/tkaegis.in" + "script/test_funcs.in" + "web/eg_oss_templ.sh" + "web/webiface.html" + "libaegis/getpw_cache.cc") + (find-files "test" "\\.sh")) + (("/bin/sh") (which "sh"))) + (setenv "SH" (which "sh")))) + (replace 'check + (lambda _ + (let ((home (string-append (getcwd) "/my-new-home"))) + ;; Some tests need to write to $HOME. + (mkdir home) + (setenv "HOME" home) - ;; This test assumes that flex has been symlinked to "lex". - (substitute* "test/00/t0011a.sh" - (("type lex") "type flex")) + ;; This test assumes that flex has been symlinked to "lex". + (substitute* "test/00/t0011a.sh" + (("type lex") "type flex")) - ;; The author decided to call the check rule "sure". - (zero? (system* "make" "sure")))) - %standard-phases)))) + ;; The author decided to call the check rule "sure". + (zero? (system* "make" "sure")))))))) (home-page "http://aegis.sourceforge.net") (synopsis "Project change supervisor") (description "Aegis is a project change supervisor, and performs some of -- cgit v1.2.3