me/guix
Archived
1
0
Fork 0
Code Activity

gnu: poke: Update to 1.0.

Browse source 
* gnu/packages/engineering.scm (poke): Update to 1.0.
[source]: Use URL-FETCH.
[native-inputs]: Remove AUTOCONF, AUTOMAKE, GETTEXT, and HELP2MAN.
[arguments]: Remove #:phases.
[supported-systems]: New field.
This commit is contained in:
Ludovic Courtès 2021-02-26 15:08:59 +01:00
parent 8753bb4192
commit 5e7388e15e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 41 additions and 58 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
gnu/packages/engineering.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 David Thompson <davet@gnu.org> ;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017, 2018, 2019, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2016, 2017, 2018 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
@ -2928,40 +2928,33 @@ GUI.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public poke (define-public poke
;; Upstream has yet to tag any releases.
(let ((commit "d33317a46e3b7c48130a471a48cbfea1abab70d8")
(revision "0"))
(package (package
(name "poke") (name "poke")
(version (git-version "0.0.0" revision commit)) (version "1.0")
(source (source (origin
(origin (method url-fetch)
(method git-fetch) (uri (string-append "mirror://gnu/poke/poke-" version
(uri (git-reference ".tar.gz"))
(url "git://git.savannah.gnu.org/poke.git")
(commit commit)
(recursive? #t)))
(sha256 (sha256
(base32 "1dd0r1x123bqi78lrsk58rvg9c9wka0kywdyzn7g3i4hkh54xb7d")) (base32
(file-name (git-file-name name version)))) "02jvla69xd0nnlg2bil2vxxxglqgylswml6h5hy2nxy0023hp4yy"))))
;; XXX: Version 1.0 only supports 64-bit systems.
(supported-systems '("x86_64-linux" "aarch64-linux"))
(build-system gnu-build-system) (build-system gnu-build-system)
;; The GUI, which we elide, requires tcl and tk. ;; The GUI, which we elide, requires tcl and tk.
(native-inputs `(("autoconf" ,autoconf) (native-inputs `(;; Requires bison 3.6+ but we currently only have 3.5.
("automake" ,automake)
;; Requires bison 3.6+ but we currently only have 3.5.
;; Bison 3.6 will be available in the next core update. ;; Bison 3.6 will be available in the next core update.
("bison-3.6" ,bison-3.6) ("bison-3.6" ,bison-3.6)
("clisp" ,clisp) ("clisp" ,clisp)
("dejagnu" ,dejagnu) ("dejagnu" ,dejagnu)
("flex" ,flex) ("flex" ,flex)
("gettext" ,gettext-minimal)
("help2man" ,help2man)
("libtool" ,libtool) ("libtool" ,libtool)
("perl" ,perl) ("perl" ,perl)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("python-2" ,python-2) ("python-2" ,python-2)
("python-3" ,python-3) ("python-3" ,python-3)))
("texinfo" ,texinfo)))
;; FIXME: Enable NBD support by adding `libnbd' (currently unpackaged). ;; FIXME: Enable NBD support by adding `libnbd' (currently unpackaged).
;; FIXME: A "hyperlinks-capable" `libtexststyle' needed for the hserver. ;; FIXME: A "hyperlinks-capable" `libtexststyle' needed for the hserver.
(inputs `(("json-c" ,json-c) (inputs `(("json-c" ,json-c)
@ -2970,24 +2963,14 @@ GUI.")
(arguments (arguments
;; To build the GUI, add the `--enable-gui' configure flag. ;; To build the GUI, add the `--enable-gui' configure flag.
;; To enable the "hyperlink server", add the `--enable-hserver' flag. ;; To enable the "hyperlink server", add the `--enable-hserver' flag.
`(#:configure-flags '("--enable-mi") `(#:configure-flags '("--enable-mi")))
#:phases (modify-phases %standard-phases
;; This is a non-trivial bootstrap that needs many of the
;; native-inputs and thus must run after `patch-shebangs'.
(delete 'bootstrap)
(add-after 'patch-source-shebangs 'bootstrap
(lambda _
(invoke "./bootstrap" "--no-git"
"--no-bootstrap-sync"
"--gnulib-srcdir=gnulib")
#t)))))
(home-page "http://jemarch.net/poke.html") (home-page "http://jemarch.net/poke.html")
(synopsis "Interactive, extensible editor for binary data") (synopsis "Interactive, extensible editor for binary data")
(description "GNU poke is an interactive, extensible editor for binary (description "GNU poke is an interactive, extensible editor for binary
data. Not limited to editing basic entities such as bits and bytes, it data. Not limited to editing basic entities such as bits and bytes, it
provides a full-fledged procedural, interactive programming language designed provides a full-fledged procedural, interactive programming language designed
to describe data structures and to operate on them.") to describe data structures and to operate on them.")
(license license:gpl3+)))) (license license:gpl3+)))
(define-public pcb2gcode (define-public pcb2gcode
(package (package