me
/
guix
Archived
1
0
Fork 0
Code

gnu: itcl: Use G-expressions. 

* gnu/packages/tcl.scm (itcl)[arguments]:
Rewrite as G-expressions.
master
Tobias Geerinckx-Rice 2022-01-04 16:28:55 +01:00
parent 0ae5e25419
commit e662bdc489
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 22 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
gnu/packages/tcl.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; ;;;
@ -25,6 +25,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages tcl) (define-module (gnu packages tcl)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
@ -108,30 +109,26 @@
(base32 "0v0m1s3rlsbg7p366i6m5zcvnmixnch87jmczidjanqvmw76fk5c")))) (base32 "0v0m1s3rlsbg7p366i6m5zcvnmixnch87jmczidjanqvmw76fk5c"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags (list #:configure-flags
(list #~(list
(string-append (string-append "--exec-prefix=" #$output)
"--exec-prefix=" (assoc-ref %outputs "out")) (string-append "--with-tclinclude="
(string-append (assoc-ref %build-inputs "tcl") "/include")
"--with-tclinclude=" (assoc-ref %build-inputs "tcl") "/include") (string-append "--with-tcl="
(string-append (assoc-ref %build-inputs "tcl") "/lib"))
"--with-tcl=" (assoc-ref %build-inputs "tcl") "/lib")) #:test-target "test"
#:test-target "test" #:phases
#:phases #~(modify-phases %standard-phases
(modify-phases %standard-phases (add-after 'install 'clean-up-bin-and-lib
(add-after 'install 'cleanup-bin-and-lib (lambda _
(lambda* (#:key outputs #:allow-other-keys) ;; NOTE: (Sharlatan-20210213T204336+0000): libraries appearer in
;; NOTE: (Sharlatan-20210213T204336+0000): libraries appearer in ;; "out/lib/itcl{{version}}" and there are no binaries, some extra
;; "out/lib/itcl{{version}}" and there are no binaries, some extra ;; rename and remove spells are to be applied.
;; rename and remove spells are to be applied. (rmdir (string-append #$output "/bin"))
(let ((out (assoc-ref outputs "out"))) (rename-file (string-append #$output "/lib/itcl" #$version)
(rmdir (string-append #$output "/libtmp"))
(string-append out "/bin")) (rename-file (string-append #$output "/libtmp")
(rename-file (string-append #$output "/lib")))))))
(string-append out "/lib/itcl" ,version) (string-append out "/libtmp"))
(rename-file
(string-append out "/libtmp") (string-append out "/lib")))
#t)))))
(native-inputs (native-inputs
(list tcl)) (list tcl))
(inputs (inputs