From 92fd8975a1c0b680f8ee1477b8f3b132cf3870dc Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Tue, 5 Jan 2021 22:15:09 -0500 Subject: [PATCH] gnu: texlive-bin: Patch shell commands in scripts. * gnu/packages/tex.scm (texlive-bin)[phases]{patch-scripts}: New phase. --- gnu/packages/tex.scm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 4a4184c338..67fec8b474 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -406,6 +406,30 @@ (define-public texlive-bin (with-directory-excursion "texlive-scripts" (apply (assoc-ref %standard-phases 'unpack) (list #:source (assoc-ref inputs "texlive-scripts")))))) + (add-after 'unpack-texlive-scripts 'patch-scripts + (lambda _ + (let* ((scripts (append (find-files "texk/kpathsea" "^mktex") + (find-files "texlive-scripts" "\\.sh$"))) + (commands '("awk" "basename" "cat" "grep" "mkdir" "rm" + "sed" "sort" "uname")) + (command-regexp (format #f "\\b(~a)\\b" + (string-join commands "|"))) + (iso-8859-1-encoded-scripts + '("texlive-scripts/source/rubibtex.sh" + "texlive-scripts/source/rumakeindex.sh"))) + + (define (substitute-commands scripts) + (substitute* scripts + ((command-regexp dummy command) + (which command)))) + + (substitute-commands (lset-difference string= scripts + iso-8859-1-encoded-scripts)) + + (with-fluids ((%default-port-encoding "ISO-8859-1")) + (substitute-commands iso-8859-1-encoded-scripts)) + + #t))) (add-after 'install 'postint (lambda* (#:key inputs outputs #:allow-other-keys #:rest args) (let* ((out (assoc-ref outputs "out"))