[jackhill/guix/guix.git] / gnu / packages / ghostscript.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2013, 2015, 2016 Ludovic Courtès <ludo@gnu.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 ghostscript)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages image)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #:use-module (gnu packages tcl)
  #:use-module (gnu packages xorg)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial))

(define-public lcms
  (package
   (name "lcms")
   (version "2.6")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://sourceforge/lcms/lcms/" version
                                "/lcms2-" version ".tar.gz"))
            (sha256 (base32
                     "1c8lgq8gfs3nyplvbx9k8wzfj6r2bqi3f611vb1m8z3476454wji"))))
   (build-system gnu-build-system)
   (inputs `(("libjpeg-8" ,libjpeg-8)
             ("libtiff" ,libtiff)
             ("zlib" ,zlib)))
   (synopsis "Little CMS, a small-footprint colour management engine")
   (description
    "Little CMS is a small-footprint colour management engine, with special
focus on accuracy and performance.  It uses the International Color
Consortium standard (ICC), approved as ISO 15076-1.")
   (license license:x11)
   (home-page "http://www.littlecms.com/")))

(define-public libpaper
  (package
   (name "libpaper")
   (version "1.1.24")
   (source (origin
            (method url-fetch)
            (uri (string-append
                   ;; Debian moved their libpaper-1.1.24 to archive.debian.net
                   ;; but in the move the hash of their tarball changed.
                   "http://pkgs.fedoraproject.org/repo/pkgs/libpaper/libpaper_"
                   version ".tar.gz/5bc87d494ba470aba54f6d2d51471834/libpaper_"
                   version ".tar.gz"))
            (sha256 (base32
                     "0zhcx67afb6b5r936w5jmaydj3ks8zh83n9rm5sv3m3k8q8jib1q"))))
   (build-system gnu-build-system)
   (synopsis "Library for handling paper sizes")
   (description
    "The paper library and accompanying files are intended to provide a simple
way for applications to take actions based on a system- or user-specified
paper size.")
   (license license:gpl2)
   (home-page "https://packages.qa.debian.org/libp/libpaper.html")))

(define-public psutils
  (package
   (name "psutils")
   (version "17")
   (source (origin
            (method url-fetch)
            (uri "ftp://ftp.knackered.org/pub/psutils/psutils.tar.gz")
            (sha256 (base32
                     "1r4ab1fvgganm02kmm70b2r1azwzbav2am41gbigpa2bb1wynlrq"))))
   (build-system gnu-build-system)
   (inputs `(("perl" ,perl)))
   (arguments
    `(#:tests? #f ; none provided
      #:phases
      (alist-replace
       'configure
       (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
        (let ((perl (assoc-ref inputs "perl"))
              (out (assoc-ref outputs "out")))
         (copy-file "Makefile.unix" "Makefile")
         (substitute* "Makefile"
           (("/usr/local/bin/perl") (string-append perl "/bin/perl")))
         (substitute* "Makefile"
           (("/usr/local") out))
         ;; for the install phase
         (substitute* "Makefile"
           (("-mkdir") "mkdir -p"))
         ;; drop installation of non-free files
         (substitute* "Makefile"
           ((" install.include") ""))))
      %standard-phases)))
   (synopsis "Collection of utilities for manipulating PostScript documents")
   (description
    "PSUtils is a collection of utilities for manipulating PostScript
documents.  Programs included are psnup, for placing out several logical pages
on a single sheet of paper, psselect, for selecting pages from a document,
pstops, for general imposition, psbook, for signature generation for booklet
printing, and psresize, for adjusting page sizes.")
   (license (license:non-copyleft "file://LICENSE"
                                "See LICENSE in the distribution."))
   (home-page "http://knackered.org/angus/psutils/")))

(define-public ghostscript
  (package
   (name "ghostscript")
   (version "9.14.0")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://gnu/ghostscript/gnu-ghostscript-"
                                version ".tar.xz"))
            (sha256
             (base32
              "0q4jj41p0qbr4mgcc9q78f5zs8cm1g57wgryhsm2yq4lfslm3ib1"))
            (patches (search-patches "ghostscript-CVE-2013-5653.patch"
                                     "ghostscript-CVE-2015-3228.patch"
                                     "ghostscript-CVE-2016-7976.patch"
                                     "ghostscript-CVE-2016-7978.patch"
                                     "ghostscript-CVE-2016-7979.patch"
                                     "ghostscript-CVE-2016-8602.patch"
                                     "ghostscript-runpath.patch"))
            (modules '((guix build utils)))
            (snippet
             ;; Honor --docdir.
             '(substitute* "Makefile.in"
                (("^docdir=.*$") "docdir = @docdir@\n")
                (("^exdir=.*$") "exdir = $(docdir)/examples\n")))))
   (build-system gnu-build-system)
   (outputs '("out" "doc"))                  ;16 MiB of HTML/PS doc + examples
   (inputs `(("freetype" ,freetype)
             ("lcms" ,lcms)
             ("libjpeg-8" ,libjpeg-8)
             ("libpng" ,libpng)
             ("libpaper" ,libpaper)
             ("libtiff" ,libtiff)
             ("zlib" ,zlib)))
   (native-inputs
      `(("perl" ,perl)
        ("pkg-config" ,pkg-config) ; needed to find libtiff
        ("python" ,python-wrapper)
        ("tcl" ,tcl)))
   (arguments
    `(#:disallowed-references ("doc")
      #:phases
      (modify-phases %standard-phases
        (add-after 'configure 'patch-config-files
                   (lambda _
                     (substitute* "base/all-arch.mak"
                       (("/bin/sh") (which "bash")))
                     (substitute* "base/unixhead.mak"
                       (("/bin/sh") (which "bash")))))
        (add-after 'configure 'remove-doc-reference
                   (lambda _
                     ;; Don't retain a reference to the 'doc' output in 'gs'.
                     ;; The only use of this definition is in the output of
                     ;; 'gs --help', so this change is fine.
                     (substitute* "base/gscdef.c"
                       (("GS_DOCDIR")
                        "\"~/.guix-profile/share/doc/ghostscript\""))))
        (replace 'build
          (lambda _
            ;; Build 'libgs.so', but don't build the statically-linked 'gs'
            ;; binary (saves 18 MiB).
            (zero? (system* "make" "so" "-j"
                            (number->string (parallel-job-count))))))
        (replace 'install
          (lambda _
            (zero? (system* "make" "soinstall"))))
        (add-after 'install 'create-gs-symlink
          (lambda* (#:key outputs #:allow-other-keys)
            (let ((out (assoc-ref outputs "out")))
              ;; some programs depend on having a 'gs' binary available
              (symlink "gsc" (string-append out "/bin/gs"))))))))
   (synopsis "PostScript and PDF interpreter")
   (description
    "Ghostscript is an interpreter for the PostScript language and the PDF
file format.  It also includes a C library that implements the graphics
capabilities of the PostScript language.  It supports a wide variety of
output file formats and printers.")
   (license license:agpl3+)
   (home-page "http://www.gnu.org/software/ghostscript/")
   (properties '((upstream-name . "gnu-ghostscript")))))

(define-public ghostscript/x
  (package (inherit ghostscript)
    (name (string-append (package-name ghostscript) "-with-x"))
    (inputs `(("libxext" ,libxext)
              ("libxt" ,libxt)
              ,@(package-inputs ghostscript)))))

(define-public ijs
  (package
   (name "ijs")
   (version "9.14.0")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://gnu/ghostscript/gnu-ghostscript-"
                                version ".tar.xz"))
            (sha256 (base32
                     "0q4jj41p0qbr4mgcc9q78f5zs8cm1g57wgryhsm2yq4lfslm3ib1"))))
   (build-system gnu-build-system)
   (native-inputs
    `(("libtool"    ,libtool)
      ("automake"   ,automake)
      ("autoconf"   ,autoconf)))
   (arguments
    `(#:phases
      (alist-cons-after
       'unpack 'autogen
       (lambda _
         ;; need to regenerate macros
         (system* "autoreconf" "-if")
         ;; do not run configure
         (substitute* "autogen.sh"
           (("^.*\\$srcdir/configure.*") ""))
         (system* "bash" "autogen.sh")

         ;; create configure script in ./ijs/
         (chdir "ijs")
         ;; do not run configure
         (substitute* "autogen.sh"
           (("^.*\\$srcdir/configure.*") "")
           (("^ + && echo Now type.*$")  ""))
         (zero? (system* "bash" "autogen.sh")))
       %standard-phases)))
   (synopsis "IJS driver framework for inkjet and other raster devices")
   (description
    "IJS is a protocol for transmission of raster page images.  This package
provides the reference implementation of the raster printer driver
architecture.")
   (license license:expat)
   (home-page "http://www.gnu.org/software/ghostscript/")))

(define-public gs-fonts
  (package
   (name "gs-fonts")
   (version "8.11")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://sourceforge/gs-fonts/gs-fonts/"
                                version
                                "%20%28base%2035%2C%20GPL%29/ghostscript-fonts-std-"
                                version
                                ".tar.gz"))
            (sha256 (base32
                     "00f4l10xd826kak51wsmaz69szzm2wp8a41jasr4jblz25bg7dhf"))))
   (build-system gnu-build-system)
   (arguments
    `(#:tests? #f ; nothing to check, just files to copy
      #:modules ((guix build gnu-build-system)
                 (guix build utils)
                 (srfi srfi-1)) ; for alist-delete
      #:phases
       (alist-delete
        'configure
       (alist-delete
        'build
       (alist-replace
        'install
        (lambda* (#:key outputs #:allow-other-keys)
          (let* ((out (assoc-ref outputs "out"))
                 (dir (string-append out "/share/fonts/type1/ghostscript")))
            (mkdir-p dir)
            (for-each
              (lambda (file)
                (copy-file file (string-append dir "/" file)))
              (find-files "." "pfb|afm"))))
       %standard-phases)))))
   (synopsis "Free replacements for the PostScript fonts")
   (description
    "Ghostscript fonts provides fonts and font metrics customarily distributed with
Ghostscript.  It currently includes the 35 standard PostScript fonts.")
   (license license:gpl2)
   (home-page "https://sourceforge.net/projects/gs-fonts/")))

(define-public libspectre
  (package
   (name "libspectre")
   (version "0.2.7")
   (source (origin
            (method url-fetch)
            (uri (string-append "https://libspectre.freedesktop.org/releases/libspectre-"
                                version ".tar.gz"))
            (sha256 (base32
                     "1v63lqc6bhhxwkpa43qmz8phqs8ci4dhzizyy16d3vkb20m846z8"))))
   (build-system gnu-build-system)
   (inputs `(("ghostscript" ,ghostscript)))
   (native-inputs `(("pkg-config" ,pkg-config)))
   (synopsis "Postscript rendering library")
   (description
    "libspectre is a small library for rendering Postscript documents.
It provides a convenient easy to use API for handling and rendering
Postscript documents.")
   (license license:gpl2+)
   (home-page "http://www.freedesktop.org/wiki/Software/libspectre")))
Commit	Line	Data
bf4018fb AE	1	;;; GNU Guix --- Functional package management for GNU
bf4018fb AE	2	;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
1de17a64	3	;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
01aae5fc	4	;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
958d25ad	5	;;; Copyright © 2013, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
bf4018fb AE	6	;;;
	7	;;; This file is part of GNU Guix.
	8	;;;
	9	;;; GNU Guix is free software; you can redistribute it and/or modify it
	10	;;; under the terms of the GNU General Public License as published by
	11	;;; the Free Software Foundation; either version 3 of the License, or (at
	12	;;; your option) any later version.
	13	;;;
	14	;;; GNU Guix is distributed in the hope that it will be useful, but
	15	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	16	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	;;; GNU General Public License for more details.
	18	;;;
	19	;;; You should have received a copy of the GNU General Public License
	20	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	21
	22	(define-module (gnu packages ghostscript)
	23	#:use-module (gnu packages)
01aae5fc	24	#:use-module (gnu packages autotools)
bf4018fb	25	#:use-module (gnu packages compression)
a86177d6	26	#:use-module (gnu packages fontutils)
e55354b8	27	#:use-module (gnu packages image)
bf4018fb AE	28	#:use-module (gnu packages perl)
	29	#:use-module (gnu packages pkg-config)
	30	#:use-module (gnu packages python)
	31	#:use-module (gnu packages tcl)
7a75b02a	32	#:use-module (gnu packages xorg)
b5b73a82	33	#:use-module ((guix licenses) #:prefix license:)
bf4018fb AE	34	#:use-module (guix packages)
bf4018fb AE	35	#:use-module (guix download)
71eba3eb LC	36	#:use-module (guix build-system gnu)
71eba3eb LC	37	#:use-module (guix build-system trivial))
bf4018fb AE	38
	39	(define-public lcms
	40	(package
	41	(name "lcms")
6b282cc9	42	(version "2.6")
bf4018fb AE	43	(source (origin
bf4018fb AE	44	(method url-fetch)
de67e922 LF	45	(uri (string-append "mirror://sourceforge/lcms/lcms/" version
de67e922 LF	46	"/lcms2-" version ".tar.gz"))
bf4018fb	47	(sha256 (base32
6b282cc9	48	"1c8lgq8gfs3nyplvbx9k8wzfj6r2bqi3f611vb1m8z3476454wji"))))
bf4018fb AE	49	(build-system gnu-build-system)
	50	(inputs `(("libjpeg-8" ,libjpeg-8)
	51	("libtiff" ,libtiff)
	52	("zlib" ,zlib)))
	53	(synopsis "Little CMS, a small-footprint colour management engine")
	54	(description
	55	"Little CMS is a small-footprint colour management engine, with special
35b9e423	56	focus on accuracy and performance. It uses the International Color
bf4018fb AE	57	Consortium standard (ICC), approved as ISO 15076-1.")
	58	(license license:x11)
	59	(home-page "http://www.littlecms.com/")))
	60
	61	(define-public libpaper
	62	(package
	63	(name "libpaper")
	64	(version "1.1.24")
	65	(source (origin
	66	(method url-fetch)
	67	(uri (string-append
48fa9312 EF	68	;; Debian moved their libpaper-1.1.24 to archive.debian.net
	69	;; but in the move the hash of their tarball changed.
	70	"http://pkgs.fedoraproject.org/repo/pkgs/libpaper/libpaper_"
	71	version ".tar.gz/5bc87d494ba470aba54f6d2d51471834/libpaper_"
bf4018fb AE	72	version ".tar.gz"))
	73	(sha256 (base32
	74	"0zhcx67afb6b5r936w5jmaydj3ks8zh83n9rm5sv3m3k8q8jib1q"))))
	75	(build-system gnu-build-system)
35b9e423	76	(synopsis "Library for handling paper sizes")
bf4018fb AE	77	(description
	78	"The paper library and accompanying files are intended to provide a simple
	79	way for applications to take actions based on a system- or user-specified
	80	paper size.")
	81	(license license:gpl2)
48fa9312	82	(home-page "https://packages.qa.debian.org/libp/libpaper.html")))
bf4018fb	83
87ec7a7a AE	84	(define-public psutils
	85	(package
	86	(name "psutils")
	87	(version "17")
	88	(source (origin
	89	(method url-fetch)
	90	(uri "ftp://ftp.knackered.org/pub/psutils/psutils.tar.gz")
	91	(sha256 (base32
	92	"1r4ab1fvgganm02kmm70b2r1azwzbav2am41gbigpa2bb1wynlrq"))))
	93	(build-system gnu-build-system)
	94	(inputs `(("perl" ,perl)))
	95	(arguments
	96	`(#:tests? #f ; none provided
	97	#:phases
	98	(alist-replace
	99	'configure
	100	(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
	101	(let ((perl (assoc-ref inputs "perl"))
	102	(out (assoc-ref outputs "out")))
	103	(copy-file "Makefile.unix" "Makefile")
	104	(substitute* "Makefile"
	105	(("/usr/local/bin/perl") (string-append perl "/bin/perl")))
	106	(substitute* "Makefile"
	107	(("/usr/local") out))
	108	;; for the install phase
	109	(substitute* "Makefile"
	110	(("-mkdir") "mkdir -p"))
	111	;; drop installation of non-free files
	112	(substitute* "Makefile"
	113	((" install.include") ""))))
	114	%standard-phases)))
35b9e423	115	(synopsis "Collection of utilities for manipulating PostScript documents")
87ec7a7a AE	116	(description
87ec7a7a AE	117	"PSUtils is a collection of utilities for manipulating PostScript
35b9e423	118	documents. Programs included are psnup, for placing out several logical pages
87ec7a7a AE	119	on a single sheet of paper, psselect, for selecting pages from a document,
	120	pstops, for general imposition, psbook, for signature generation for booklet
	121	printing, and psresize, for adjusting page sizes.")
166191b3	122	(license (license:non-copyleft "file://LICENSE"
87ec7a7a AE	123	"See LICENSE in the distribution."))
	124	(home-page "http://knackered.org/angus/psutils/")))
	125
bf4018fb AE	126	(define-public ghostscript
	127	(package
	128	(name "ghostscript")
a6e81858	129	(version "9.14.0")
bf4018fb AE	130	(source (origin
	131	(method url-fetch)
	132	(uri (string-append "mirror://gnu/ghostscript/gnu-ghostscript-"
	133	version ".tar.xz"))
1d386b2d LC	134	(sha256
	135	(base32
	136	"0q4jj41p0qbr4mgcc9q78f5zs8cm1g57wgryhsm2yq4lfslm3ib1"))
34708a22 MW	137	(patches (search-patches "ghostscript-CVE-2013-5653.patch"
	138	"ghostscript-CVE-2015-3228.patch"
	139	"ghostscript-CVE-2016-7976.patch"
	140	"ghostscript-CVE-2016-7978.patch"
	141	"ghostscript-CVE-2016-7979.patch"
	142	"ghostscript-CVE-2016-8602.patch"
fc1adab1	143	"ghostscript-runpath.patch"))
9161ba81 LC	144	(modules '((guix build utils)))
	145	(snippet
	146	;; Honor --docdir.
	147	'(substitute* "Makefile.in"
	148	(("^docdir=.*$") "docdir = @docdir@\n")
	149	(("^exdir=.*$") "exdir = $(docdir)/examples\n")))))
bf4018fb	150	(build-system gnu-build-system)
9161ba81	151	(outputs '("out" "doc")) ;16 MiB of HTML/PS doc + examples
bf4018fb AE	152	(inputs `(("freetype" ,freetype)
	153	("lcms" ,lcms)
	154	("libjpeg-8" ,libjpeg-8)
	155	("libpng" ,libpng)
	156	("libpaper" ,libpaper)
	157	("libtiff" ,libtiff)
bf4018fb	158	("zlib" ,zlib)))
c4c4cc05 JD	159	(native-inputs
	160	`(("perl" ,perl)
	161	("pkg-config" ,pkg-config) ; needed to find libtiff
	162	("python" ,python-wrapper)
	163	("tcl" ,tcl)))
bf4018fb	164	(arguments
958d25ad LC	165	`(#:disallowed-references ("doc")
958d25ad LC	166	#:phases
c17b2adf LC	167	(modify-phases %standard-phases
	168	(add-after 'configure 'patch-config-files
	169	(lambda _
	170	(substitute* "base/all-arch.mak"
	171	(("/bin/sh") (which "bash")))
	172	(substitute* "base/unixhead.mak"
	173	(("/bin/sh") (which "bash")))))
9161ba81 LC	174	(add-after 'configure 'remove-doc-reference
	175	(lambda _
	176	;; Don't retain a reference to the 'doc' output in 'gs'.
	177	;; The only use of this definition is in the output of
	178	;; 'gs --help', so this change is fine.
	179	(substitute* "base/gscdef.c"
	180	(("GS_DOCDIR")
	181	"\"~/.guix-profile/share/doc/ghostscript\""))))
eb354bda LC	182	(replace 'build
	183	(lambda _
	184	;; Build 'libgs.so', but don't build the statically-linked 'gs'
	185	;; binary (saves 18 MiB).
	186	(zero? (system* "make" "so" "-j"
	187	(number->string (parallel-job-count))))))
	188	(replace 'install
	189	(lambda _
fa68a9bb EF	190	(zero? (system* "make" "soinstall"))))
	191	(add-after 'install 'create-gs-symlink
	192	(lambda* (#:key outputs #:allow-other-keys)
	193	(let ((out (assoc-ref outputs "out")))
	194	;; some programs depend on having a 'gs' binary available
	195	(symlink "gsc" (string-append out "/bin/gs"))))))))
f50d2669	196	(synopsis "PostScript and PDF interpreter")
bf4018fb	197	(description
a22dc0c4 LC	198	"Ghostscript is an interpreter for the PostScript language and the PDF
	199	file format. It also includes a C library that implements the graphics
	200	capabilities of the PostScript language. It supports a wide variety of
	201	output file formats and printers.")
a6e81858	202	(license license:agpl3+)
fd68cc2c LC	203	(home-page "http://www.gnu.org/software/ghostscript/")
fd68cc2c LC	204	(properties '((upstream-name . "gnu-ghostscript")))))
1f7c6a1f	205
7a75b02a	206	(define-public ghostscript/x
34708a22	207	(package (inherit ghostscript)
7a75b02a MW	208	(name (string-append (package-name ghostscript) "-with-x"))
	209	(inputs `(("libxext" ,libxext)
	210	("libxt" ,libxt)
	211	,@(package-inputs ghostscript)))))
	212
01aae5fc RW	213	(define-public ijs
	214	(package
	215	(name "ijs")
	216	(version "9.14.0")
	217	(source (origin
	218	(method url-fetch)
	219	(uri (string-append "mirror://gnu/ghostscript/gnu-ghostscript-"
	220	version ".tar.xz"))
	221	(sha256 (base32
	222	"0q4jj41p0qbr4mgcc9q78f5zs8cm1g57wgryhsm2yq4lfslm3ib1"))))
	223	(build-system gnu-build-system)
	224	(native-inputs
	225	`(("libtool" ,libtool)
	226	("automake" ,automake)
	227	("autoconf" ,autoconf)))
	228	(arguments
	229	`(#:phases
	230	(alist-cons-after
	231	'unpack 'autogen
	232	(lambda _
	233	;; need to regenerate macros
	234	(system* "autoreconf" "-if")
	235	;; do not run configure
	236	(substitute* "autogen.sh"
	237	(("^.\\$srcdir/configure.") ""))
	238	(system* "bash" "autogen.sh")
	239
	240	;; create configure script in ./ijs/
	241	(chdir "ijs")
	242	;; do not run configure
	243	(substitute* "autogen.sh"
	244	(("^.\\$srcdir/configure.") "")
	245	(("^ + && echo Now type.*$") ""))
	246	(zero? (system* "bash" "autogen.sh")))
	247	%standard-phases)))
	248	(synopsis "IJS driver framework for inkjet and other raster devices")
	249	(description
	250	"IJS is a protocol for transmission of raster page images. This package
	251	provides the reference implementation of the raster printer driver
	252	architecture.")
	253	(license license:expat)
	254	(home-page "http://www.gnu.org/software/ghostscript/")))
	255
1f7c6a1f AE	256	(define-public gs-fonts
	257	(package
	258	(name "gs-fonts")
	259	(version "8.11")
	260	(source (origin
	261	(method url-fetch)
	262	(uri (string-append "mirror://sourceforge/gs-fonts/gs-fonts/"
	263	version
	264	"%20%28base%2035%2C%20GPL%29/ghostscript-fonts-std-"
	265	version
	266	".tar.gz"))
	267	(sha256 (base32
	268	"00f4l10xd826kak51wsmaz69szzm2wp8a41jasr4jblz25bg7dhf"))))
	269	(build-system gnu-build-system)
	270	(arguments
	271	`(#:tests? #f ; nothing to check, just files to copy
	272	#:modules ((guix build gnu-build-system)
	273	(guix build utils)
	274	(srfi srfi-1)) ; for alist-delete
	275	#:phases
	276	(alist-delete
	277	'configure
	278	(alist-delete
	279	'build
	280	(alist-replace
	281	'install
	282	(lambda* (#:key outputs #:allow-other-keys)
	283	(let* ((out (assoc-ref outputs "out"))
	284	(dir (string-append out "/share/fonts/type1/ghostscript")))
	285	(mkdir-p dir)
	286	(for-each
	287	(lambda (file)
	288	(copy-file file (string-append dir "/" file)))
	289	(find-files "." "pfb\|afm"))))
	290	%standard-phases)))))
35b9e423	291	(synopsis "Free replacements for the PostScript fonts")
1f7c6a1f	292	(description
35b9e423 EB	293	"Ghostscript fonts provides fonts and font metrics customarily distributed with
35b9e423 EB	294	Ghostscript. It currently includes the 35 standard PostScript fonts.")
1f7c6a1f	295	(license license:gpl2)
3b3b60d0	296	(home-page "https://sourceforge.net/projects/gs-fonts/")))
c5ea1201	297
7cf2a2a1 AE	298	(define-public libspectre
	299	(package
	300	(name "libspectre")
	301	(version "0.2.7")
	302	(source (origin
	303	(method url-fetch)
5cc3096c	304	(uri (string-append "https://libspectre.freedesktop.org/releases/libspectre-"
7cf2a2a1 AE	305	version ".tar.gz"))
	306	(sha256 (base32
	307	"1v63lqc6bhhxwkpa43qmz8phqs8ci4dhzizyy16d3vkb20m846z8"))))
	308	(build-system gnu-build-system)
c4c4cc05 JD	309	(inputs `(("ghostscript" ,ghostscript)))
c4c4cc05 JD	310	(native-inputs `(("pkg-config" ,pkg-config)))
35b9e423	311	(synopsis "Postscript rendering library")
7cf2a2a1 AE	312	(description
	313	"libspectre is a small library for rendering Postscript documents.
	314	It provides a convenient easy to use API for handling and rendering
	315	Postscript documents.")
	316	(license license:gpl2+)
	317	(home-page "http://www.freedesktop.org/wiki/Software/libspectre")))