gnu: p2c: Update to 2.02.

* gnu/packages/pascal.scm (p2c): Update to 2.02.
[arguments]: Use gexp.
[native-inputs]: Add unzip.
This commit is contained in:
Ricardo Wurmus 2022-12-20 11:13:15 +01:00
parent fd4ca4a266
commit 4651d380b4
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -3,6 +3,7 @@
;;; Copyright © 2017 Kei Kebreau <address@hidden> ;;; Copyright © 2017 Kei Kebreau <address@hidden>
;;; Copyright © 2020 Eric Bavier <bavier@posteo.net> ;;; Copyright © 2020 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Ricardo Wurmus <rekado@elephly.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -23,6 +24,7 @@ (define-module (gnu packages pascal)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (gnu packages) #:use-module (gnu packages)
@ -229,43 +231,39 @@ (define-public fpc
(define-public p2c (define-public p2c
(package (package
(name "p2c") (name "p2c")
(version "2.01") (version "2.02")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://alum.mit.edu/www/toms/p2c/p2c-" (uri (string-append "http://users.fred.net/tds/lab/p2c/p2c-"
version ".tar.gz")) version ".zip"))
(sha256 (sha256
(base32 (base32
"03x72lv6jrvikbrpz4kfq1xp61l2jw5ki6capib71lxs65zndajn")))) "17q6s0vbz298pks80bxf4r6gm8kwbrml1q3vfs6g6yj75sqj58xs"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list
(let ((out (assoc-ref %outputs "out"))) #:make-flags
(list (string-append "CC=" ,(cc-for-target)) #~(list (string-append "CC=" #$(cc-for-target))
(string-append "HOMEDIR=" out "/lib/p2c") (string-append "HOMEDIR=" #$output "/lib/p2c")
(string-append "INCDIR=" out "/include/p2c") (string-append "INCDIR=" #$output "/include/p2c")
(string-append "BINDIR=" out "/bin") (string-append "BINDIR=" #$output "/bin")
(string-append "LIBDIR=" out "/lib") (string-append "LIBDIR=" #$output "/lib")
(string-append "MANDIR=" out "/share/man/man1") (string-append "MANDIR=" #$output "/share/man/man1")
"MANFILE=p2c.man.inst")) "MANFILE=p2c.man.inst")
#:test-target "test" #:test-target "test"
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-before 'build 'mkdir (add-before 'build 'mkdir
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) (mkdir-p (string-append #$output "/share/man"))
(mkdir-p (string-append out "/share/man")) (mkdir-p (string-append #$output "/lib"))
(mkdir-p (string-append out "/lib")) (mkdir-p (string-append #$output "/bin"))
(mkdir-p (string-append out "/bin")) (mkdir-p (string-append #$output "/include"))))
(mkdir-p (string-append out "/include"))) (add-before 'build 'chdir
#t)) (lambda _ (chdir "src"))))))
(add-before 'build 'chdir
(lambda* (#:key make-flags #:allow-other-keys)
(chdir "src")
#t)))))
(native-inputs (native-inputs
(list perl which)) (list perl unzip which))
(synopsis "p2c converts Pascal programs to C programs") (synopsis "p2c converts Pascal programs to C programs")
(description "This package provides @command{p2c}, a program to convert (description "This package provides @command{p2c}, a program to convert
Pascal source code to C source code, and @command{p2cc}, a compiler for Pascal source code to C source code, and @command{p2cc}, a compiler for