[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[GNUnet-SVN] [gnunet] 01/04: contrib/packages/guix: use texinfo-5.2 for
|
From: |
gnunet |
|
Subject: |
[GNUnet-SVN] [gnunet] 01/04: contrib/packages/guix: use texinfo-5.2 for some packages. Start backporting Texlive-2012. |
|
Date: |
Tue, 26 Sep 2017 17:03:15 +0200 |
This is an automated email from the git hooks/post-receive script.
ng0 pushed a commit to branch master
in repository gnunet.
commit 72e116bbf82953534d5f0bfb307e1ecd662a5fe8
Author: ng0 <address@hidden>
AuthorDate: Tue Sep 26 12:22:58 2017 +0000
contrib/packages/guix: use texinfo-5.2 for some packages. Start backporting
Texlive-2012.
---
contrib/packages/guix/gnunet-doc.scm | 3 +-
contrib/packages/guix/guix-env.scm | 2 +-
.../guix/packages/gnunet/packages/texlive.scm | 182 +++++++++++++++++++++
3 files changed, 185 insertions(+), 2 deletions(-)
diff --git a/contrib/packages/guix/gnunet-doc.scm
b/contrib/packages/guix/gnunet-doc.scm
index 9b3293a17..d12de10a2 100644
--- a/contrib/packages/guix/gnunet-doc.scm
+++ b/contrib/packages/guix/gnunet-doc.scm
@@ -64,6 +64,7 @@
(gnu packages video)
(gnu packages web)
(gnu packages xiph)
+ ;;(gnunet packages texlive) ;GNUnet module including texlive-2012 WIP
((guix licenses) #:prefix license:))
(define %source-dir (string-append (current-source-directory)
@@ -115,7 +116,7 @@
("bluez" ,bluez) ; for optional bluetooth feature
("glib" ,glib)
;;("texlive-minimal" ,texlive-minimal) ; optional.
- ("texlive" ,texlive)
+ ("texlive" ,texlive) ;TODO: Stabilize Texlive-2012 package
("libogg" ,libogg)))
(native-inputs
`(("pkg-config" ,pkg-config)
diff --git a/contrib/packages/guix/guix-env.scm
b/contrib/packages/guix/guix-env.scm
index 6946fee57..1182eb08d 100644
--- a/contrib/packages/guix/guix-env.scm
+++ b/contrib/packages/guix/guix-env.scm
@@ -146,7 +146,7 @@
("autoconf" ,autoconf)
("automake" ,automake)
("gnu-gettext" ,gnu-gettext)
- ("texinfo" ,texinfo)
+ ("texinfo" ,texinfo-5.2) ; Debian stable.
("libtool" ,libtool)))
;; TODO: To make use of out:debug, which carries the symbols,
;; this file needs to fixed.
diff --git a/contrib/packages/guix/packages/gnunet/packages/texlive.scm
b/contrib/packages/guix/packages/gnunet/packages/texlive.scm
new file mode 100644
index 000000000..65430d693
--- /dev/null
+++ b/contrib/packages/guix/packages/gnunet/packages/texlive.scm
@@ -0,0 +1,182 @@
+;;; This file is part of GNUnet.
+;;; Copyright (C) 2017 GNUnet e.V.
+;;;
+;;; GNUnet 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, or (at your
+;;; option) any later version.
+;;;
+;;; GNUnet 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 GNUnet; see the file COPYING. If not, write to the
+;;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;;; Boston, MA 02110-1301, USA.
+
+;; Initially based on Guix commit eb0119efde826590a13973ab928c173780a7f257
+
+(define-module (gnunet packages texlive)
+ #:use-module ((guix licenses)
+ #:renamer (symbol-prefix-proc 'license:))
+ #:use-module (guix packages)
+ #:use-module (guix download)
+ #:use-module (guix build-system gnu)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages compression)
+ #:use-module (gnu packages fontutils)
+ #:use-module (gnu packages ghostscript)
+ #:use-module (gnu packages icu4c)
+ #:use-module (gnu packages image)
+ #:use-module (gnu packages pdf)
+ #:use-module (gnu packages perl)
+ #:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages python)
+ #:use-module (gnu packages compression))
+
+(define texlive-extra-src
+ (origin
+ (method url-fetch)
+ (uri
"http://ftp.math.utah.edu/pub/tex/historic/systems/texlive/2012/texlive-20120701-extra.tar.xz";)
+ ;;(uri
"ftp://tug.org/historic/systems/texlive/2012/texlive-20120701-extra.tar.xz";)
+ (sha256 (base32
+ "0cb8fnv4x281gy5ka779f00ssdmdpjj4x3pkh9j9vq45hrwg3522"))))
+
+(define texlive-texmf-src
+ (origin
+ (method url-fetch)
+ (uri
"http://ftp.math.utah.edu/pub/tex/historic/systems/texlive/2012/texlive-20120701-texmf.tar.xz";)
+ ;;(uri
"ftp://tug.org/historic/systems/texlive/2012/texlive-20120701-texmf.tar.xz";)
+ (sha256 (base32
+ "1fn1dg9k7pnh8a80j23zfkbrfnqyc4c2w4ss30dpkqj490nxsywq"))))
+
+;; Note that right now this does not include security fixes!
+;; FIXME: Needs more fixes, currently this fails building!
+
+(define-public texlive
+ (package
+ (name "texlive")
+ (version "2012")
+ (source (origin
+ (method url-fetch)
+ (uri
"http://ftp.math.utah.edu/pub/tex/historic/systems/texlive/2012/texlive-20120701-source.tar.xz";)
+ ;;(uri
"ftp://tug.org/historic/systems/texlive/2012/texlive-20120701-source.tar.xz";)
+ (sha256 (base32
+
"10bcrdfsqnc6y3gqcb8ndnjy07i5kz63as39irbq4gmcbmyn2rln"))))
+ (build-system gnu-build-system)
+ (inputs `(("texlive-extra-src" ,texlive-extra-src)
+ ("texlive-texmf-src" ,texlive-texmf-src)
+ ("fontconfig" ,fontconfig)
+ ("freetype" ,freetype)
+ ("icu4c" ,icu4c)
+ ("ghostscript" ,ghostscript)
+ ("libpng" ,libpng)
+ ("perl" ,perl)
+ ("poppler" ,poppler)
+ ("pkg-config" ,pkg-config)
+ ;; FIXME: Add interpreters csh, fontforge and ruby,
+ ;; once they are available.
+ ("python" ,python)
+ ("teckit" ,teckit)
+ ("t1lib" ,t1lib)
+ ("zlib" ,zlib)
+ ("zziplib" ,zziplib)))
+ (outputs '("out" "data"))
+ (arguments
+ `(#:out-of-source? #t
+ #:configure-flags
+ `("--disable-native-texlive-build"
+ ;; Although the texmf and texmf-dist data is taken from
+ ;; texlive-texmf, setting datarootdir is still useful:
+ ;; "make install" creates symbolic links to scripts in this place.
+ ,(string-append "--datarootdir=" (assoc-ref %outputs "data"))
+ ,(string-append "--infodir=" (assoc-ref %outputs "out") "/share/info")
+ ,(string-append "--mandir=" (assoc-ref %outputs "out") "/share/man")
+ "--without-x" ; FIXME: Drop as soon as X is available.
+ "--with-system-freetype2"
+ ;; "--with-system-gd"
+ ;; "--with-system-graphite"
+ "--with-system-icu"
+ "--with-system-libgs"
+ "--with-system-libpng"
+ "--with-system-poppler"
+ "--with-system-t1lib"
+ "--with-system-teckit"
+ "--with-system-xpdf"
+ "--with-system-zlib"
+ "--with-system-zziplib")
+ #:phases
+ (alist-replace
+ 'configure
+ (lambda* (#:key outputs #:allow-other-keys #:rest args)
+ (let ((configure (assoc-ref %standard-phases 'configure)))
+ (substitute* "utils/psutils/Makefile.in"
+ (("/usr/bin/env perl") (which "perl")))
+ (apply configure args)))
+ (alist-cons-after
+ 'install 'postinst
+ (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
+ (let ((texlive-extra (assoc-ref inputs "texlive-extra-src"))
+ (texlive-texmf (assoc-ref inputs "texlive-texmf-src"))
+ (out (assoc-ref outputs "out"))
+ (data (assoc-ref outputs "data"))
+ (unpack (assoc-ref %standard-phases 'unpack))
+ (patch-source-shebangs
+ (assoc-ref %standard-phases 'patch-source-shebangs)))
+ ;; Create symbolic links for the latex variants and their
+ ;; man pages.
+ (with-directory-excursion (string-append out "/bin/")
+ (for-each symlink
+ '("pdftex" "pdftex" "xetex" "luatex")
+ '("latex" "pdflatex" "xelatex" "lualatex")))
+ (with-directory-excursion (string-append out "/share/man/man1/")
+ (symlink "luatex.1" "lualatex.1"))
+ ;; Delete texmf and texmf-dist from "data", since they
+ ;; will be reinstalled from texlive-texmf.
+ (system* "rm" "-r" (string-append data "/texmf"))
+ (system* "rm" "-r" (string-append data "/texmf-dist"))
+ ;; Unpack texlive-extra and install tlpkg.
+ (mkdir "texlive-extra")
+ (with-directory-excursion "texlive-extra"
+ (apply unpack (list #:source texlive-extra))
+ (apply patch-source-shebangs (list #:source texlive-extra))
+ (system* "mv" "tlpkg" data)
+ (chdir ".."))
+ ;; Unpack and install texlive-texmf.
+ (mkdir "texlive-texmf")
+ (with-directory-excursion "texlive-texmf"
+ (apply unpack (list #:source texlive-texmf))
+ (apply patch-source-shebangs (list #:source texlive-texmf))
+ ;; Register "data" for kpathsea in texmf.cnf.
+ (substitute* "texmf/web2c/texmf.cnf"
+ (("TEXMFROOT = \\$SELFAUTOPARENT")
+ (string-append "TEXMFROOT = " data)))
+ (system* "mv" "texmf" data)
+ (system* "mv" "texmf-dist" data)
+ (chdir ".."))
+ ;; texmf.cnf must also be placed in "out", since kpsewhich does
+ ;; not know about "data" until it has found this file.
+ (mkdir (string-append out "/share/texmf"))
+ (mkdir (string-append out "/share/texmf/web2c"))
+ (copy-file (string-append data "/texmf/web2c/texmf.cnf")
+ (string-append out "/share/texmf/web2c/texmf.cnf"))))
+ (alist-cons-after 'patch-shebangs 'texconfig
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ ;; Configure the texlive system; inspired from
+ ;;
http://slackbuilds.org/repository/13.37/office/texlive/
+ (setenv "PATH" (string-append (getenv "PATH")
":" out "/bin"))
+ (system* "updmap-sys" "--nohash"
"--syncwithtrees")
+ (system* "mktexlsr")
+ (system* "fmtutil-sys" "--all")))
+ %standard-phases)))))
+ (synopsis "Tex Live, a package of the TeX typesetting system")
+ (description
+ "TeX Live provides a comprehensive TeX document production system.
+It includes all the major TeX-related programs, macro packages, and fonts
+that are free software, including support for many languages around the
+world.")
+ (license (license:fsf-free "http://tug.org/texlive/copying.html";))
+ (home-page "http://www.tug.org/texlive/";)))
--
To stop receiving notification emails like this one, please contact
address@hidden