[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, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;;
;;; 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 cups)
  #: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 utils)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module (srfi srfi-1))

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