;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Kei Kebreau ;;; Copyright © 2017 Gábor Boskovits ;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice ;;; Copyright © 2020 Jakub Kądziołka ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages hexedit) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (gnu packages) #:use-module (gnu packages autotools) #:use-module (gnu packages compression) #:use-module (gnu packages man) #:use-module (gnu packages ncurses) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix build-system gnu)) (define-public hexedit (package (name "hexedit") (version "1.5") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/pixel/hexedit") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1sfa4i374n1xrz2ivvzcd8jzc296ly11x1713s4bplvszcqpw6dv")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; no check target #:phases (modify-phases %standard-phases ;; Make F1 open the man page even if man-db is not in the profile. (add-after 'unpack 'patch-man-path (lambda* (#:key inputs outputs #:allow-other-keys) (substitute* "interact.c" (("\"man\"") (string-append "\"" (assoc-ref inputs "man-db") "/bin/man\"")) (("\"hexedit\"2018-07-13etc: snippets: Add guix-commit-message-use-https-home-page....Arun Isaac 2018-07-13etc: snippets: Add new build systems to package snippet....Arun Isaac dit.html") (license license:gpl2+))) (define-public ht (package (name "ht") (version "2.1.0") (source (origin (method url-fetch) (uri (string-append "https://sourceforge.net/projects/hte/files/ht-source/" name "-" version ".tar.bz2")) (sha256 (base32 "0w2xnw3z9ws9qrdpb80q55h6ynhh3aziixcfn45x91bzrbifix9i")))) (build-system gnu-build-system) (inputs (list lzo ncurses)) (synopsis "Viewer, editor, and analyzer for executable binaries") (description "ht is a terminal-based program to view, edit, and analyze any file, but with a special focus on executable binaries. Its goal is to combine the low-level functionality of a debugger with the usability of an @dfn{Integrated Development Environment} (IDE).") (home-page "http://hte.sourceforge.net/") (license license:gpl2))) (define-public bvi (package (name "bvi") (version "1.4.1") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/bvi/bvi/" version "/bvi-" version ".src.tar.gz")) (sha256 (base32 "0a0yl0dcyff31k3dr4dpgqmlwygp8iaslnr5gmb6814ylxf2ad9h")))) (build-system gnu-build-system) (arguments '(#:tests? #f)) ; no check target (inputs (list ncurses)) (synopsis "Binary file editor") (description "@command{bvi} is a display-oriented editor for binary files, based on the @command{vi} text editor.") (home-page "http://bvi.sourceforge.net/") (license license:gpl3+)))