mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-14 11:00:36 +02:00
Code Releases Activity

gnu: universal-ctags: Update to 5.9.20210509.0.

Browse source 
* gnu/packages/code.scm (universal-ctags): Update to 5.9.20210509.0.
[source](snippet): Adjust unbundling substitution.
[arguments]: Add #:test-target.  Patch more files before bootstrapping.
Remove trailing #t's.
[native-inputs]: Use PACKCC instead of an ad-hoc fork.
This commit is contained in:
Marius Bakke 2021-05-15 20:44:12 +02:00
parent 8eea80d86a
commit 6ee590eca8
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 18 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

56
gnu/packages/code.scm
View file

@ -13,7 +13,7 @@
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2019 Hartmut Goebel <h.goebel@goebel-consult.de> ;;; Copyright © 2019 Hartmut Goebel <h.goebel@goebel-consult.de>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Marius Bakke <marius@gnu.org> ;;; Copyright © 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2021 lu hui <luhuins@163.com> ;;; Copyright © 2021 lu hui <luhuins@163.com>
;;; ;;;
@ -349,7 +349,7 @@ features that are not supported by the standard @code{stdio} implementation.")
(define-public universal-ctags (define-public universal-ctags
(package (package
(name "universal-ctags") (name "universal-ctags")
(version "5.9.20201018.0") (version "5.9.20210509.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -359,64 +359,44 @@ features that are not supported by the standard @code{stdio} implementation.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"174p1w20pl25k996hfw61inw4mqhskmmic1lyw2m65firmkyvs7x")) "1sq94bnbzr40zwihfnsna759bbak0lw27j0yn12iwpg4xgb4hhwp"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
;; Remove the bundled PackCC and associated build rules. ;; Remove the bundled PackCC and associated build rules.
(substitute* "Makefile.am" (substitute* "Makefile.am"
(("\\$\\(packcc_verbose\\)\\$\\(PACKCC\\)") (("^PACKCC = .*")
"packcc") "PACKCC = packcc")
(("\\$\\(PEG_SRCS\\) \\$\\(PEG_HEADS\\): packcc\\$\\(EXEEXT\\)") (("\\$\\(PACKCC_FILES\\)")
"$(PEG_SRCS) $(PEG_HEADS):") "")
(("noinst_PROGRAMS \\+= packcc") (("\\$\\(PEG_SRCS\\) \\$\\(PEG_HEADS\\): \\$\\(PACKCC\\)")
"")) "$(PEG_SRCS) $(PEG_HEADS):"))
(delete-file-recursively "misc/packcc") (delete-file-recursively "misc/packcc")))))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(;; Don't use the build-time TMPDIR (/tmp/guix-build-...) at runtime. '(;; Don't use the build-time TMPDIR (/tmp/guix-build-...) at runtime.
#:configure-flags '("--enable-tmpdir=/tmp") #:configure-flags '("--enable-tmpdir=/tmp")
#:test-target "units"
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(add-after 'unpack 'make-files-writable (add-after 'unpack 'make-files-writable
(lambda _ (lambda _
(for-each make-file-writable (find-files ".")) (for-each make-file-writable (find-files "."))))
#t)) (add-before 'bootstrap 'patch-misc
(add-before 'bootstrap 'patch-optlib2c
(lambda _ (lambda _
;; The autogen.sh script calls out to optlib2c to ;; The autogen.sh script calls out to these scripts, so
;; generate translations, so we can not wait for the ;; we cannot wait for the patch-source-shebangs phase.
;; patch-source-shebangs phase. (for-each patch-shebang (find-files "misc"))))
(patch-shebang "misc/optlib2c")
#t))
(add-before 'check 'patch-tests (add-before 'check 'patch-tests
(lambda _ (lambda _
(substitute* "misc/units" (substitute* "misc/units"
(("SHELL=/bin/sh") (("SHELL=/bin/sh")
(string-append "SHELL=" (which "sh")))) (string-append "SHELL=" (which "sh"))))
(substitute* "Tmain/utils.sh" (substitute* "Tmain/utils.sh"
(("/bin/echo") (which "echo"))) (("/bin/echo") (which "echo"))))))))
#t)))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
;; XXX: Use ctags' own packcc fork even though we meticolously unbundle ("packcc" ,packcc)
;; it above. Mainly for historical reasons, and perhaps their changes
;; get upstreamed in the future.
("packcc"
,(let ((commit "03402b79505dc0024f90d5bebfd7e5d3fb62da9a"))
(package
(inherit packcc)
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/universal-ctags/packcc")
(commit commit)))
(file-name (git-file-name "packcc-for-ctags"
(string-take commit 7)))
(sha256
(base32
"0vxpdk9l2lf7f32nx1p3b3xmw2kw2wp95vnf9bc4lyqrg69pblm0")))))))
("perl" ,perl) ("perl" ,perl)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(inputs (inputs