[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, 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2013, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;;
;;; 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.8")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://sourceforge/lcms/lcms/" version
                                "/lcms2-" version ".tar.gz"))
            (patches (search-patches "lcms-CVE-2016-10165.patch"))
            (sha256 (base32
                     "08pvl289g0mbznzx5l6ibhaldsgx41kwvdn2c974ga9fkli2pl36"))))
   (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/")
   (properties '((cpe-name . "little_cms_color_engine")))))

(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.21")
    (source
      (origin
        (method url-fetch)
        (uri (string-append "https://github.com/ArtifexSoftware/"
                            "ghostpdl-downloads/releases/download/gs"
                            (string-delete #\. version)
                            "/ghostscript-" version ".tar.xz"))
        (sha256
         (base32
          "0lyhjcrkmd5fcmh8h56bs4xr9k4jasmikv5vsix1hd4ai0ad1q9b"))
        (patches (search-patches "ghostscript-runpath.patch"
                                 "ghostscript-CVE-2017-8291.patch"
                                 "ghostscript-no-header-creationdate.patch"
                                 "ghostscript-no-header-id.patch"
                                 "ghostscript-no-header-uuid.patch"))
        (modules '((guix build utils)))
        (snippet
          ;; Remove bundled libraries. The bundled OpenJPEG is a patched fork so
          ;; we leave it, at least for now.
          ;; TODO Try unbundling ijs, which is developed alongside Ghostscript.
         '(begin
            (for-each delete-file-recursively '("freetype" "jbig2dec" "jpeg"
                                                "lcms2" "libpng"
                                                "tiff" "zlib"))))))
    (build-system gnu-build-system)
    (outputs '("out" "doc"))                  ;19 MiB of HTML/PS doc + examples
    (arguments
     `(#:disallowed-references ("doc")
       #:configure-flags
       (list "--with-system-libtiff"
             "LIBS=-lz"
             (string-append "ZLIBDIR="
                            (assoc-ref %build-inputs "zlib") "/include")
             "--enable-dynamic"

             ,@(if (%current-target-system)
                   '(;; Specify the native compiler, which is used to build 'echogs'
                     ;; and other intermediary tools when cross-compiling; see
                     ;; <https://ghostscript.com/FAQ.html>.
                     "CCAUX=gcc"

                     ;; Save 'config.log' etc. of the native build under
                     ;; auxtmp/, useful for debugging.
                     "--enable-save_confaux")
                   '()))
       #:phases
       (modify-phases %standard-phases
        (add-after 'unpack 'fix-doc-dir
          (lambda _
            ;; Honor --docdir.
            (substitute* "Makefile.in"
              (("^docdir=.*$") "docdir = @docdir@\n")
              (("^exdir=.*$") "exdir = $(docdir)/examples\n"))
            #t))
        (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\""))
            #t))
         (add-after 'configure 'patch-config-files
           (lambda _
             (substitute* "base/unixhead.mak"
               (("/bin/sh") (which "sh")))
             #t))
         ,@(if (%current-target-system)
               `((add-after 'configure 'add-native-lz
                   (lambda _
                     ;; Add missing '-lz' for native tools such as 'mkromfs'.
                     (substitute* "Makefile"
                       (("^AUXEXTRALIBS=(.*)$" _ value)
                        (string-append "AUXEXTRALIBS = -lz " value "\n")))
                     #t)))
               '())
         (replace 'build
           (lambda _
             ;; Build 'libgs.so', but don't build the statically-linked 'gs'
             ;; binary (saves 22 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"))
               #t))))))
    (native-inputs
     `(("perl" ,perl)
       ("python" ,python-wrapper)
       ("tcl" ,tcl)

       ;; When cross-compiling, some of the natively-built tools require all
       ;; these libraries.
       ,@(if (%current-target-system)
             `(("zlib/native" ,zlib)
               ("libjpeg/native" ,libjpeg)
               ("lcms2/native" ,lcms))
             '())))
    (inputs
     `(("freetype" ,freetype)
       ("jbig2dec" ,jbig2dec)
       ("lcms2" ,lcms)
       ("libjpeg" ,libjpeg)
       ("libpaper" ,libpaper)
       ("libpng" ,libpng)
       ("libtiff" ,libtiff)
       ("zlib" ,zlib)))
    (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.")
    (home-page "https://www.ghostscript.com/")
    (license license:agpl3+)))

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