me
/
guix
Archived
1
0
Fork 0
Code

gnu: gnucobol: Use G-expressions. 

* gnu/packages/cobol.scm (gnucobol)[arguments]: Rewrite using
G-expressions.
Efraim Flashner 2022-10-14 07:54:53 +03:00
parent 2b7d89bed6
commit cfd74630dd
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gnu/packages/cobol.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -22,6 +22,7 @@
#:use-module (guix licenses) #:use-module (guix licenses)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module (gnu packages dbm) #:use-module (gnu packages dbm)
#:use-module (gnu packages multiprecision) #:use-module (gnu packages multiprecision)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
@ -43,21 +44,22 @@
(base32 (base32
"0x15ybfm63g7c9340fc6712h9v59spnbyaz4rf85pmnp3zbhaw2r")))) "0x15ybfm63g7c9340fc6712h9v59spnbyaz4rf85pmnp3zbhaw2r"))))
(arguments (arguments
'(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" (list
(assoc-ref %outputs "out") #:configure-flags
"/lib") #~(list (string-append "LDFLAGS=-Wl,-rpath="
(string-append "JSON_C_CFLAGS=-I" #$output "/lib")
(assoc-ref %build-inputs "json-c") (string-append "JSON_C_CFLAGS=-I"
"/include/json-c")) (search-input-directory %build-inputs
"/include/json-c")))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'place-cobol85-test-suite (add-after 'unpack 'place-cobol85-test-suite
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((newcob (assoc-ref inputs "newcob"))) (let ((newcob (assoc-ref inputs "newcob")))
(copy-file newcob "tests/cobol85/newcob.val.Z")))) (copy-file newcob "tests/cobol85/newcob.val.Z"))))
(add-before 'check 'set-TERM (add-before 'check 'set-TERM
;; Some tests expect a known terminal ;; Some tests expect a known terminal
(lambda _ (setenv "TERM" "xterm-256color")))) (lambda _ (setenv "TERM" "xterm-256color"))))
#:test-target "checkall")) #:test-target "checkall"))
(native-inputs (native-inputs
`(("perl" ,perl) `(("perl" ,perl)