gnu: Add a2ps, trueprint, enscript, and source-highlight
* gnu/packages/pretty-print.scm: New file * gnu/packages/patches/source-highlight-regexrange-test.patch: New file * gnu-system.am (dist_patch_DATA): Add patch. (GNU_SYSTEM_MODULES): Add pretty-print.scm
This commit is contained in:
parent
cafb92d853
commit
583103416d
|
@ -176,6 +176,7 @@ GNU_SYSTEM_MODULES = \
|
||||||
gnu/packages/popt.scm \
|
gnu/packages/popt.scm \
|
||||||
gnu/packages/pth.scm \
|
gnu/packages/pth.scm \
|
||||||
gnu/packages/pulseaudio.scm \
|
gnu/packages/pulseaudio.scm \
|
||||||
|
gnu/packages/pretty-print.scm \
|
||||||
gnu/packages/python.scm \
|
gnu/packages/python.scm \
|
||||||
gnu/packages/qemu.scm \
|
gnu/packages/qemu.scm \
|
||||||
gnu/packages/qt.scm \
|
gnu/packages/qt.scm \
|
||||||
|
@ -322,6 +323,7 @@ dist_patch_DATA = \
|
||||||
gnu/packages/patches/slim-session.patch \
|
gnu/packages/patches/slim-session.patch \
|
||||||
gnu/packages/patches/slim-config.patch \
|
gnu/packages/patches/slim-config.patch \
|
||||||
gnu/packages/patches/slim-sigusr1.patch \
|
gnu/packages/patches/slim-sigusr1.patch \
|
||||||
|
gnu/packages/patches/source-highlight-regexrange-test.patch \
|
||||||
gnu/packages/patches/tcsh-fix-autotest.patch \
|
gnu/packages/patches/tcsh-fix-autotest.patch \
|
||||||
gnu/packages/patches/teckit-cstdio.patch \
|
gnu/packages/patches/teckit-cstdio.patch \
|
||||||
gnu/packages/patches/valgrind-glibc.patch \
|
gnu/packages/patches/valgrind-glibc.patch \
|
||||||
|
|
|
@ -0,0 +1,15 @@
|
||||||
|
Disable a single check. The failure is discussed at:
|
||||||
|
|
||||||
|
https://savannah.gnu.org/bugs/index.php?41786
|
||||||
|
|
||||||
|
--- a/lib/tests/test_regexranges_main.cpp 2012-04-14 08:58:25.000000000 -0500
|
||||||
|
+++ b/lib/tests/test_regexranges_main.cpp 2014-03-05 23:49:23.520402043 -0600
|
||||||
|
@@ -52,7 +52,7 @@
|
||||||
|
check_range_regex("simple regex");
|
||||||
|
check_range_regex("[[:alpha:]]+");
|
||||||
|
// test with a wrong regular expression
|
||||||
|
- check_range_regex("{notclosed", false);
|
||||||
|
+ // check_range_regex("{notclosed", false);
|
||||||
|
|
||||||
|
// reset regular expressions
|
||||||
|
ranges.clear();
|
|
@ -0,0 +1,224 @@
|
||||||
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
|
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
|
||||||
|
;;;
|
||||||
|
;;; 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 <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
(define-module (gnu packages pretty-print)
|
||||||
|
#:use-module (guix packages)
|
||||||
|
#:use-module (guix licenses)
|
||||||
|
#:use-module (guix download)
|
||||||
|
#:use-module (guix build-system gnu)
|
||||||
|
#:use-module (gnu packages)
|
||||||
|
#:use-module (gnu packages ghostscript)
|
||||||
|
#:use-module (gnu packages groff)
|
||||||
|
#:use-module (gnu packages imagemagick)
|
||||||
|
#:use-module (gnu packages gv)
|
||||||
|
#:use-module (gnu packages boost)
|
||||||
|
#:use-module (gnu packages bison)
|
||||||
|
#:use-module (gnu packages flex)
|
||||||
|
#:use-module (gnu packages gperf)
|
||||||
|
#:use-module (gnu packages perl)
|
||||||
|
#:use-module (gnu packages file))
|
||||||
|
|
||||||
|
(define-public a2ps
|
||||||
|
(package
|
||||||
|
(name "a2ps")
|
||||||
|
(version "4.14")
|
||||||
|
(source
|
||||||
|
(origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "mirror://gnu/a2ps/a2ps-"
|
||||||
|
version ".tar.gz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"195k78m1h03m961qn7jr120z815iyb93gwi159p1p9348lyqvbpk"))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(inputs
|
||||||
|
`(("psutils" ,psutils)
|
||||||
|
("groff" ,groff)
|
||||||
|
("gv" ,gv)
|
||||||
|
("imagemagick" ,imagemagick)))
|
||||||
|
(native-inputs
|
||||||
|
`(("gperf" ,gperf)
|
||||||
|
("perl" ,perl)
|
||||||
|
("file" ,file)))
|
||||||
|
(arguments
|
||||||
|
'(#:phases (alist-replace
|
||||||
|
'configure
|
||||||
|
(lambda* (#:key #:allow-other-keys #:rest args)
|
||||||
|
(let ((configure (assoc-ref %standard-phases 'configure)))
|
||||||
|
(substitute* "configure"
|
||||||
|
(("/usr/bin/file") (which "file")))
|
||||||
|
(apply configure args)))
|
||||||
|
(alist-cons-before
|
||||||
|
'build 'patch-scripts
|
||||||
|
(lambda _
|
||||||
|
(substitute*
|
||||||
|
'("afm/make_fonts_map.sh"
|
||||||
|
"tests/defs"
|
||||||
|
"tests/backup.tst"
|
||||||
|
"tests/styles.tst")
|
||||||
|
(("/bin/rm") (which "rm"))))
|
||||||
|
(alist-cons-before
|
||||||
|
'check 'patch-test-files
|
||||||
|
;; Alternatively, we could unpatch the shebangs in tstfiles
|
||||||
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
|
(let ((perl (assoc-ref inputs "perl")))
|
||||||
|
(substitute* '("tests/ps-ref/includeres.ps"
|
||||||
|
"tests/gps-ref/includeres.ps")
|
||||||
|
(("/usr/local/bin/perl")
|
||||||
|
(string-append perl "/bin/perl"))))
|
||||||
|
;; Some of the reference postscript contain a 'version 3'
|
||||||
|
;; string that in inconsistent with the source text in the
|
||||||
|
;; tstfiles directory. Erroneous search-and-replace?
|
||||||
|
(substitute* '("tests/ps-ref/InsertBlock.ps"
|
||||||
|
"tests/gps-ref/InsertBlock.ps"
|
||||||
|
"tests/ps-ref/bookie.ps"
|
||||||
|
"tests/gps-ref/bookie.ps")
|
||||||
|
(("version 3") "version 2"))
|
||||||
|
(substitute* '("tests/ps-ref/psmandup.ps"
|
||||||
|
"tests/gps-ref/psmandup.ps")
|
||||||
|
(("#! */bin/sh") (string-append
|
||||||
|
"#!" (which "sh")))))
|
||||||
|
%standard-phases)))))
|
||||||
|
(home-page "http://www.gnu.org/software/a2ps")
|
||||||
|
(synopsis "Any file to PostScript, including pretty-printing")
|
||||||
|
(description
|
||||||
|
"GNU a2ps converts almost anything to a PostScript file, ready for
|
||||||
|
printing. It accomplishes this by being able to delegate files to external
|
||||||
|
handlers, such as Groff and Gzip. It handles as many steps as is necessary to
|
||||||
|
produce a pretty-printed file. It also includes some extra abilities for
|
||||||
|
special cases, such as pretty-printing \"--help\" output.")
|
||||||
|
(license gpl3+)))
|
||||||
|
|
||||||
|
(define-public trueprint
|
||||||
|
(package
|
||||||
|
(name "trueprint")
|
||||||
|
(version "5.4")
|
||||||
|
(source
|
||||||
|
(origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "mirror://gnu/trueprint/trueprint-"
|
||||||
|
version ".tar.gz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"13rkc0fga10xyf56yy9dnq95zndnfadkhxflnp24skszj21y8jqh"))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(native-inputs `(("file" ,file)))
|
||||||
|
(arguments
|
||||||
|
;; Must define DIFF_CMD for tests to pass
|
||||||
|
'(#:configure-flags '("CPPFLAGS=-DDIFF_CMD=\\\"diff\\\"")
|
||||||
|
#:phases (alist-replace
|
||||||
|
'configure
|
||||||
|
(lambda* (#:key #:allow-other-keys #:rest args)
|
||||||
|
(let ((configure (assoc-ref %standard-phases 'configure)))
|
||||||
|
(substitute* "configure"
|
||||||
|
(("/usr/bin/file") (which "file")))
|
||||||
|
(apply configure args)))
|
||||||
|
%standard-phases)))
|
||||||
|
(home-page "http://www.gnu.org/software/trueprint")
|
||||||
|
(synopsis "Pretty-print C sources and other plain text to PostScript")
|
||||||
|
(description
|
||||||
|
"GNU Trueprint translates C source code files as PostScript files.
|
||||||
|
In addition to the basic source code output, it can also perform diff-marking,
|
||||||
|
indentation counting, function and file indices and more.")
|
||||||
|
(license gpl2)))
|
||||||
|
|
||||||
|
(define-public enscript
|
||||||
|
(package
|
||||||
|
(name "enscript")
|
||||||
|
(version "1.6.6")
|
||||||
|
(source
|
||||||
|
(origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "mirror://gnu/enscript/enscript-"
|
||||||
|
version ".tar.gz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"1fy0ymvzrrvs889zanxcaxjfcxarm2d3k43c9frmbl1ld7dblmkd"))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(home-page "http://www.gnu.org/software/enscript")
|
||||||
|
(synopsis "Generating PostScript, including pretty-printing")
|
||||||
|
(description
|
||||||
|
"GNU Enscript is a program to convert ASCII text files to PostScript,
|
||||||
|
HTML or RTF formats, to be stored in files or sent immediately to a printer.
|
||||||
|
It also includes the capability to perform syntax highlighting for several
|
||||||
|
different programming languages.")
|
||||||
|
(license gpl3+)))
|
||||||
|
|
||||||
|
(define-public source-highlight
|
||||||
|
(package
|
||||||
|
(name "source-highlight")
|
||||||
|
(version "3.1.7")
|
||||||
|
(source
|
||||||
|
(origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "mirror://gnu/src-highlite/source-highlight-"
|
||||||
|
version ".tar.gz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"1s49ld8cnpzhhwq0r7s0sfm3cg3nhhm0wla27lwraifrrl3y1cp1"))
|
||||||
|
(patches
|
||||||
|
(list (search-patch
|
||||||
|
;; Patch submitted as Savannah item #41786
|
||||||
|
"source-highlight-regexrange-test.patch")))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
;; The ctags that comes with emacs does not support the --excmd options,
|
||||||
|
;; so can't be used
|
||||||
|
(inputs
|
||||||
|
`(("boost" ,boost-1.54)))
|
||||||
|
(native-inputs
|
||||||
|
`(("bison" ,bison)
|
||||||
|
("flex" ,flex)
|
||||||
|
("file" ,file)))
|
||||||
|
(arguments
|
||||||
|
`(#:configure-flags
|
||||||
|
(list (string-append "--with-boost="
|
||||||
|
(assoc-ref %build-inputs "boost")))
|
||||||
|
#:parallel-tests? #f ;There appear to be race conditions
|
||||||
|
#:phases (alist-replace
|
||||||
|
'configure
|
||||||
|
(lambda* (#:key #:allow-other-keys #:rest args)
|
||||||
|
(let ((configure (assoc-ref %standard-phases 'configure)))
|
||||||
|
(substitute* "configure"
|
||||||
|
(("/usr/bin/file") (which "file")))
|
||||||
|
(apply configure args)))
|
||||||
|
(alist-cons-before
|
||||||
|
'check 'patch-test-files
|
||||||
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
|
;; Unpatch shebangs in test input so that source-highlight
|
||||||
|
;; is still able to infer input language
|
||||||
|
(substitute* '("tests/test.sh"
|
||||||
|
"tests/test2.sh"
|
||||||
|
"tests/test.tcl")
|
||||||
|
(((string-append "#! *" (which "sh"))) "#!/bin/sh"))
|
||||||
|
;; Initial patching unrecoverably removes whitespace, so
|
||||||
|
;; remove it also in the comparison output.
|
||||||
|
(substitute* '("tests/test.sh.html"
|
||||||
|
"tests/test2.sh.html"
|
||||||
|
"tests/test.tcl.html")
|
||||||
|
(("#! */bin/sh") "#!/bin/sh")))
|
||||||
|
%standard-phases))))
|
||||||
|
(home-page "http://www.gnu.org/software/src-highlite")
|
||||||
|
(synopsis "Produce a document with syntax highlighting from a source file")
|
||||||
|
(description
|
||||||
|
"GNU source-highlight reads in a source code file and produces an output
|
||||||
|
file in which the keywords are highlighted in different colors to designate
|
||||||
|
their syntactic role. It supports over 150 different languages and it can
|
||||||
|
output to 8 different formats, including HTML, LaTeX and ODF. It can also
|
||||||
|
output to ANSI color escape sequences, so that highlighted source code can be
|
||||||
|
seen in a terminal.")
|
||||||
|
(license gpl3+)))
|
Loading…
Reference in New Issue