[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.26")
    (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
          "1645f47all5w27bfhiq15vycdm954lmr6agqkrp68ksq6xglgvch"))
        (patches (search-patches "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")
87f29c1e	138	(version "9.26")
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
87f29c1e MB	148	"1645f47all5w27bfhiq15vycdm954lmr6agqkrp68ksq6xglgvch"))
87f29c1e MB	149	(patches (search-patches "ghostscript-no-header-creationdate.patch"
63eb4a2a DM	150	"ghostscript-no-header-id.patch"
63eb4a2a DM	151	"ghostscript-no-header-uuid.patch"))
d6158fe7 LF	152	(modules '((guix build utils)))
	153	(snippet
	154	;; Remove bundled libraries. The bundled OpenJPEG is a patched fork so
	155	;; we leave it, at least for now.
	156	;; TODO Try unbundling ijs, which is developed alongside Ghostscript.
68ab0ad5	157	;; Likewise for the thread-safe lcms2 fork called "lcms2art".
d6158fe7 LF	158	'(begin
d6158fe7 LF	159	(for-each delete-file-recursively '("freetype" "jbig2dec" "jpeg"
68ab0ad5	160	"libpng" "tiff" "zlib"))
6cbee49d	161	#t))))
d6158fe7 LF	162	(build-system gnu-build-system)
	163	(outputs '("out" "doc")) ;19 MiB of HTML/PS doc + examples
	164	(arguments
	165	`(#:disallowed-references ("doc")
	166	#:configure-flags
842c44c9 MB	167	(list (string-append "LDFLAGS=-Wl,-rpath="
	168	(assoc-ref %outputs "out") "/lib")
	169	"--with-system-libtiff"
d6158fe7 LF	170	"LIBS=-lz"
	171	(string-append "ZLIBDIR="
	172	(assoc-ref %build-inputs "zlib") "/include")
49d035ff LC	173	"--enable-dynamic"
	174
	175	,@(if (%current-target-system)
	176	'(;; Specify the native compiler, which is used to build 'echogs'
	177	;; and other intermediary tools when cross-compiling; see
	178	;; <https://ghostscript.com/FAQ.html>.
	179	"CCAUX=gcc"
	180
	181	;; Save 'config.log' etc. of the native build under
	182	;; auxtmp/, useful for debugging.
	183	"--enable-save_confaux")
	184	'()))
d6158fe7 LF	185	#:phases
d6158fe7 LF	186	(modify-phases %standard-phases
842c44c9 MB	187	(add-before 'configure 'create-output-directory
	188	(lambda* (#:key outputs #:allow-other-keys)
	189	;; The configure script refuses to function if the directory
	190	;; specified as -rpath does not already exist.
	191	(mkdir-p (string-append (assoc-ref outputs "out") "/lib"))
	192	#t))
d6158fe7	193	(add-after 'configure 'remove-doc-reference
eb354bda	194	(lambda _
d6158fe7 LF	195	;; Don't retain a reference to the 'doc' output in 'gs'.
	196	;; The only use of this definition is in the output of
	197	;; 'gs --help', so this change is fine.
	198	(substitute* "base/gscdef.c"
	199	(("GS_DOCDIR")
	200	"\"~/.guix-profile/share/doc/ghostscript\""))
68ab0ad5 MB	201	;; The docdir default changed in 9.23 and a compatibility
	202	;; symlink was added from datadir->docdir. Remove it.
	203	(substitute* "base/unixinst.mak"
	204	(("ln -s \\$\\(DESTDIR\\)\\$\\(docdir\\).*") ""))
d6158fe7 LF	205	#t))
	206	(add-after 'configure 'patch-config-files
	207	(lambda _
	208	(substitute* "base/unixhead.mak"
	209	(("/bin/sh") (which "sh")))
	210	#t))
49d035ff LC	211	,@(if (%current-target-system)
	212	`((add-after 'configure 'add-native-lz
	213	(lambda _
	214	;; Add missing '-lz' for native tools such as 'mkromfs'.
	215	(substitute* "Makefile"
	216	(("^AUXEXTRALIBS=(.*)$" _ value)
	217	(string-append "AUXEXTRALIBS = -lz " value "\n")))
	218	#t)))
	219	'())
d6158fe7 LF	220	(replace 'build
	221	(lambda _
	222	;; Build 'libgs.so', but don't build the statically-linked 'gs'
	223	;; binary (saves 22 MiB).
eb075edd MW	224	(invoke "make" "so" "-j"
eb075edd MW	225	(number->string (parallel-job-count)))))
d6158fe7 LF	226	(replace 'install
d6158fe7 LF	227	(lambda _
eb075edd	228	(invoke "make" "soinstall")))
d6158fe7 LF	229	(add-after 'install 'create-gs-symlink
	230	(lambda* (#:key outputs #:allow-other-keys)
	231	(let ((out (assoc-ref outputs "out")))
	232	;; Some programs depend on having a 'gs' binary available.
	233	(symlink "gsc" (string-append out "/bin/gs"))
	234	#t))))))
	235	(native-inputs
	236	`(("perl" ,perl)
	237	("python" ,python-wrapper)
49d035ff LC	238	("tcl" ,tcl)
	239
	240	;; When cross-compiling, some of the natively-built tools require all
	241	;; these libraries.
	242	,@(if (%current-target-system)
	243	`(("zlib/native" ,zlib)
68ab0ad5	244	("libjpeg/native" ,libjpeg))
49d035ff	245	'())))
d6158fe7 LF	246	(inputs
	247	`(("freetype" ,freetype)
	248	("jbig2dec" ,jbig2dec)
d6158fe7 LF	249	("libjpeg" ,libjpeg)
	250	("libpaper" ,libpaper)
	251	("libpng" ,libpng)
	252	("libtiff" ,libtiff)
	253	("zlib" ,zlib)))
	254	(synopsis "PostScript and PDF interpreter")
	255	(description
	256	"Ghostscript is an interpreter for the PostScript language and the PDF
a22dc0c4 LC	257	file format. It also includes a C library that implements the graphics
	258	capabilities of the PostScript language. It supports a wide variety of
	259	output file formats and printers.")
d6158fe7 LF	260	(home-page "https://www.ghostscript.com/")
d6158fe7 LF	261	(license license:agpl3+)))
1f7c6a1f	262
7a75b02a	263	(define-public ghostscript/x
7020a6ab	264	(package/inherit ghostscript
7a75b02a MW	265	(name (string-append (package-name ghostscript) "-with-x"))
	266	(inputs `(("libxext" ,libxext)
	267	("libxt" ,libxt)
	268	,@(package-inputs ghostscript)))))
	269
3e442f85 LC	270	(define-public ghostscript/cups
	271	(package/inherit ghostscript
	272	(name "ghostscript-with-cups")
	273	(inputs `(("cups" ,cups-minimal)
	274	,@(package-inputs ghostscript)))))
	275
01aae5fc RW	276	(define-public ijs
	277	(package
	278	(name "ijs")
55af10fb LF	279	(version (package-version ghostscript))
55af10fb LF	280	(source (package-source ghostscript))
01aae5fc RW	281	(build-system gnu-build-system)
	282	(native-inputs
	283	`(("libtool" ,libtool)
	284	("automake" ,automake)
	285	("autoconf" ,autoconf)))
	286	(arguments
	287	`(#:phases
1c09eb99 LF	288	(modify-phases %standard-phases
	289	(add-after 'unpack 'autogen
	290	(lambda _
	291	;; need to regenerate macros
	292	(system* "autoreconf" "-if")
	293	;; do not run configure
	294	(substitute* "autogen.sh"
	295	(("^.\\$srcdir/configure.") ""))
	296	(system* "bash" "autogen.sh")
	297	;; create configure script in ./ijs/
	298	(chdir "ijs")
	299	;; do not run configure
	300	(substitute* "autogen.sh"
	301	(("^.\\$srcdir/configure.") "")
	302	(("^ + && echo Now type.*$") ""))
8f52d898	303	(invoke "bash" "autogen.sh"))))))
01aae5fc RW	304	(synopsis "IJS driver framework for inkjet and other raster devices")
	305	(description
	306	"IJS is a protocol for transmission of raster page images. This package
	307	provides the reference implementation of the raster printer driver
	308	architecture.")
	309	(license license:expat)
55af10fb	310	(home-page (package-home-page ghostscript))))
01aae5fc	311
1f7c6a1f AE	312	(define-public gs-fonts
	313	(package
	314	(name "gs-fonts")
	315	(version "8.11")
	316	(source (origin
	317	(method url-fetch)
	318	(uri (string-append "mirror://sourceforge/gs-fonts/gs-fonts/"
	319	version
	320	"%20%28base%2035%2C%20GPL%29/ghostscript-fonts-std-"
	321	version
	322	".tar.gz"))
	323	(sha256 (base32
	324	"00f4l10xd826kak51wsmaz69szzm2wp8a41jasr4jblz25bg7dhf"))))
	325	(build-system gnu-build-system)
	326	(arguments
	327	`(#:tests? #f ; nothing to check, just files to copy
809bc394 ST	328
	329	#:modules ((guix build gnu-build-system)
	330	(guix build utils)
	331	(srfi srfi-1))
1f7c6a1f	332	#:phases
a6d352cc EF	333	(modify-phases %standard-phases
	334	(delete 'configure)
	335	(delete 'build)
	336	(replace 'install
	337	(lambda* (#:key outputs #:allow-other-keys)
	338	(let* ((out (assoc-ref outputs "out"))
	339	(dir (string-append out "/share/fonts/type1/ghostscript")))
	340	(mkdir-p dir)
	341	(for-each
	342	(lambda (file)
	343	(copy-file file (string-append dir "/" file)))
6449e68d MW	344	(find-files "." "pfb\|afm"))
6449e68d MW	345	#t))))))
35b9e423	346	(synopsis "Free replacements for the PostScript fonts")
1f7c6a1f	347	(description
35b9e423 EB	348	"Ghostscript fonts provides fonts and font metrics customarily distributed with
35b9e423 EB	349	Ghostscript. It currently includes the 35 standard PostScript fonts.")
1f7c6a1f	350	(license license:gpl2)
3b3b60d0	351	(home-page "https://sourceforge.net/projects/gs-fonts/")))
c5ea1201	352
7cf2a2a1 AE	353	(define-public libspectre
	354	(package
	355	(name "libspectre")
94522776	356	(version "0.2.8")
7cf2a2a1 AE	357	(source (origin
7cf2a2a1 AE	358	(method url-fetch)
5cc3096c	359	(uri (string-append "https://libspectre.freedesktop.org/releases/libspectre-"
7cf2a2a1 AE	360	version ".tar.gz"))
7cf2a2a1 AE	361	(sha256 (base32
94522776	362	"1a67iglsc3r05mzngyg9kb1gy8whq4fgsnyjwi7bqfw2i7rnl9b5"))))
7cf2a2a1	363	(build-system gnu-build-system)
c4c4cc05 JD	364	(inputs `(("ghostscript" ,ghostscript)))
c4c4cc05 JD	365	(native-inputs `(("pkg-config" ,pkg-config)))
35b9e423	366	(synopsis "Postscript rendering library")
7cf2a2a1 AE	367	(description
	368	"libspectre is a small library for rendering Postscript documents.
	369	It provides a convenient easy to use API for handling and rendering
	370	Postscript documents.")
	371	(license license:gpl2+)
57e7d748	372	(home-page "https://www.freedesktop.org/wiki/Software/libspectre")))