amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gcl: Update to 2.6.14.

Browse source 
* gnu/packages/lisp.scm (gcl): Update to 2.6.14.
This commit is contained in:
Guillaume Le Vaillant 2023-03-02 15:00:09 +01:00
parent dfc5d6628f
commit d5e41d7166
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 114 additions and 107 deletions
Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/lisp.scm
View file

@ -139,25 +139,27 @@ Definition Facility.")
(license license:expat))) (license license:expat)))
(define-public gcl (define-public gcl
(let ((commit "ff7ef981765cc0efdb4b1db27c292f5c11a72753")
(revision "3")) ;Guix package revision
(package (package
(name "gcl") (name "gcl")
(version (git-version "2.6.12" revision commit)) (version "2.6.14")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://git.savannah.gnu.org/r/gcl.git") (url "https://git.savannah.gnu.org/r/gcl.git")
(commit commit))) (commit (string-append "Version_"
(string-map (lambda (c)
(if (char=? c #\.) #\_ c))
version)))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0z64fxxcaial2i1s1hms8r095dm1ff3wd8ivwdx894a3yln9c0an")))) (base32 "1b9m02rfnyflsr8n57v7llxz5m3mi7ip3ypwdww4pdhbgh0lzyg7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:parallel-build? #f ; The build system seems not to be thread safe. (list
#:parallel-build? #f ; The build system seems not to be thread safe.
#:test-target "ansi-tests/test_results" #:test-target "ansi-tests/test_results"
#:configure-flags ,#~(list #:configure-flags #~(list
"--enable-ansi" ; required by the maxima package "--enable-ansi" ; required by the maxima package
(string-append "CFLAGS=-I" (string-append "CFLAGS=-I"
#$(this-package-input "libtirpc") #$(this-package-input "libtirpc")
@ -166,11 +168,11 @@ Definition Facility.")
#$(this-package-input "libtirpc") #$(this-package-input "libtirpc")
"/lib") "/lib")
"LIBS=-ltirpc") "LIBS=-ltirpc")
#:make-flags ,#~(let ((gcc (search-input-file %build-inputs "/bin/gcc"))) #:make-flags #~(let ((gcc (search-input-file %build-inputs "/bin/gcc")))
(list (string-append "GCL_CC=" gcc) (list (string-append "GCL_CC=" gcc)
(string-append "CC=" gcc))) (string-append "CC=" gcc)))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'realpath-workaround (add-after 'unpack 'realpath-workaround
;; Calls to the realpath function can set errno even if the return ;; Calls to the realpath function can set errno even if the return
;; value of the function indicates that there is no error, which ;; value of the function indicates that there is no error, which
@ -179,6 +181,13 @@ Definition Facility.")
(substitute* "gcl/o/main.c" (substitute* "gcl/o/main.c"
(("massert\\(realpath\\(s,o\\)\\);" all) (("massert\\(realpath\\(s,o\\)\\);" all)
"massert((realpath(s, o) != NULL) && ((errno = 0) == 0));")))) "massert((realpath(s, o) != NULL) && ((errno = 0) == 0));"))))
(add-after 'unpack 'fix-missing-enum
(lambda _
;; The 'disassembler_style' enum is not defined anywhere,
;; and the parameter is not used...
(substitute* "gcl/o/main.c"
(("my_fprintf_styled\\(void \\*v,enum disassembler_style,")
"my_fprintf_styled(void *v,int disassembler_style,"))))
(add-after 'unpack 'fix-makefile (add-after 'unpack 'fix-makefile
;; The "final" target doesn't exist. ;; The "final" target doesn't exist.
(lambda _ (lambda _
@ -216,11 +225,10 @@ Definition Facility.")
(("\\(or \\(get-path \\*ld\\*\\) \\*ld\\*\\)") "*ld*") (("\\(or \\(get-path \\*ld\\*\\) \\*ld\\*\\)") "*ld*")
(("\\(get-path \"objdump --source \"\\)") (("\\(get-path \"objdump --source \"\\)")
(string-append "\"" (assoc-ref %build-inputs "binutils") (string-append "\"" (assoc-ref %build-inputs "binutils")
"/bin/objdump --source \""))) "/bin/objdump --source \"")))))
#t))
(add-after 'install 'wrap (add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((gcl (assoc-ref outputs "out")) (let* ((gcl #$output)
(input-path (lambda (lib path) (input-path (lambda (lib path)
(string-append (string-append
(assoc-ref inputs lib) path))) (assoc-ref inputs lib) path)))
@ -233,8 +241,7 @@ Definition Facility.")
(wrap-program (string-append gcl "/bin/gcl") (wrap-program (string-append gcl "/bin/gcl")
`("PATH" prefix ,(map (lambda (binary) `("PATH" prefix ,(map (lambda (binary)
(input-path binary "/bin")) (input-path binary "/bin"))
binaries)))) binaries))))))
#t))
;; drop strip phase to make maxima build, see ;; drop strip phase to make maxima build, see
;; https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html ;; https://www.ma.utexas.edu/pipermail/maxima/2008/009769.html
(delete 'strip)))) (delete 'strip))))
@ -249,7 +256,7 @@ features the ability to compile to native object code and to load native
object code modules directly into its lisp core. It also features a object code modules directly into its lisp core. It also features a
stratified garbage collection strategy, a source-level debugger and a built-in stratified garbage collection strategy, a source-level debugger and a built-in
interface to the Tk widget system.") interface to the Tk widget system.")
(license license:lgpl2.0+)))) (license license:lgpl2.0+)))
(define-public ecl (define-public ecl
(package (package