amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Make modular TeX Live reproducible.

Browse source 
Fixes: https://issues.guix.gnu.org/73613

* gnu/packages/tex.scm (texlive-aleph):
(texlive-amstex):
(texlive-eplain):
(texlive-hitex):
(texlive-lollipop):
(texlive-mex):
(texlive-mltex):
(texlive-texsis):
(texlive-luatex):
(texlive-xmltex):
(texlive-latex-bin):
(texlive-cslatex):
(texlive-mptopdf):
(texlive-mflua):
(texlive-luajittex):
(texlive-csplain):
(texlive-luahbtex):
(texlive-jadetex):
(texlive-pdftex):
(texlive-optex):
(texlive-context-legacy):
(texlive-everyshi):
(texlive-xetex): Add libfaketime to native inputs.
* guix/build/texlive-build-system.scm (enforce-source-date-epoch): New function.
(create-formats): Wrap format generation within a `faketime' or `datefudge'
call, depending on the system.
(%standard-phases): Add a phase to obey to SOURCE_DATE_EPOCH.

Change-Id: Ieef6adb18b7f4373194e3550d41761f75334e574
This commit is contained in:
Nicolas Goaziou 2025-02-11 09:47:21 +01:00 • committed by Andreas Enge
parent f6d9057ff2
commit 9712d8daec
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3
2 changed files with 64 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/tex.scm
View file

@ -69,6 +69,7 @@
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (gnu packages boost) #:use-module (gnu packages boost)
#:use-module (gnu packages check)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages cpp) #:use-module (gnu packages cpp)
#:use-module (gnu packages digest) #:use-module (gnu packages digest)
@ -99,6 +100,7 @@
#:use-module (gnu packages ruby) #:use-module (gnu packages ruby)
#:use-module (gnu packages shells) #:use-module (gnu packages shells)
#:use-module (gnu packages tcl) #:use-module (gnu packages tcl)
#:use-module (gnu packages time)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages gawk) #:use-module (gnu packages gawk)
@ -2440,6 +2442,7 @@ number styles are available.")
(outputs '("out" "doc")) (outputs '("out" "doc"))
(build-system texlive-build-system) (build-system texlive-build-system)
(arguments (list #:create-formats #~(list "aleph"))) (arguments (list #:create-formats #~(list "aleph")))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-aleph-bin (list texlive-aleph-bin
texlive-cm texlive-cm
@ -3072,6 +3075,7 @@ create a bibliography.")
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(symlink pdftex "amstex")))))))) (symlink pdftex "amstex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-amsfonts (list texlive-amsfonts
texlive-cm texlive-cm
@ -15744,6 +15748,7 @@ Cosmetica font, which is a similar design to Optima and includes Greek.")
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(symlink pdftex "eplain")))))))) (symlink pdftex "eplain"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-babel (list texlive-babel
texlive-cm texlive-cm
@ -20477,6 +20482,7 @@ Indian Type Foundry, with support for LaTeX and pdfLaTeX.")
(outputs '("out" "doc")) (outputs '("out" "doc"))
(build-system texlive-build-system) (build-system texlive-build-system)
(arguments (list #:create-formats #~(list "hilatex" "hitex"))) (arguments (list #:create-formats #~(list "hilatex" "hitex")))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-babel (list texlive-babel
texlive-cm texlive-cm
@ -24728,6 +24734,7 @@ symbol variants more suited to work in logic.")
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(symlink tex "lollipop")))))))) (symlink tex "lollipop"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (list texlive-cm texlive-hyphen-base texlive-tex)) (propagated-inputs (list texlive-cm texlive-hyphen-base texlive-tex))
(home-page "https://ctan.org/pkg/lollipop") (home-page "https://ctan.org/pkg/lollipop")
(synopsis "TeX made easy") (synopsis "TeX made easy")
@ -26771,6 +26778,7 @@ with symbols, giving automatic alignment.")
(symlink pdftex "mex") (symlink pdftex "mex")
(symlink pdftex "pdfmex") (symlink pdftex "pdfmex")
(symlink pdftex "utf8mex")))))))) (symlink pdftex "utf8mex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-enctex (list texlive-enctex
texlive-hyphen-complete texlive-hyphen-complete
@ -27152,6 +27160,7 @@ avoids the spindliness of most other Type 1 versions of Computer Modern.")
(with-directory-excursion bin (with-directory-excursion bin
(symlink pdftex "mllatex") (symlink pdftex "mllatex")
(symlink pdftex "mltex")))))))) (symlink pdftex "mltex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-babel (list texlive-babel
texlive-cm texlive-cm
@ -36501,6 +36510,7 @@ produces.")
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(symlink pdftex "texsis")))))))) (symlink pdftex "texsis"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
texlive-hyphen-base texlive-hyphen-base
@ -45094,6 +45104,7 @@ LaTeX packages use of @samp{@@@@}) in nested package files.")
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(symlink euptex "platex")))))))) (symlink euptex "platex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-babel (list texlive-babel
texlive-cm texlive-cm
@ -45357,6 +45368,7 @@ their specific needs.")
(outputs '("out" "doc")) (outputs '("out" "doc"))
(build-system texlive-build-system) (build-system texlive-build-system)
(arguments (list #:create-formats #~(list "eptex" "ptex"))) (arguments (list #:create-formats #~(list "eptex" "ptex")))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
texlive-etex texlive-etex
@ -46214,6 +46226,7 @@ of the fonts used in printers shops in Lispia.")
(arguments (arguments
(list #:texlive-latex-bin? #f (list #:texlive-latex-bin? #f
#:create-formats #~(list "tex"))) #:create-formats #~(list "tex")))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
texlive-hyphen-base texlive-hyphen-base
@ -46480,6 +46493,7 @@ barcodes.")
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(symlink euptex "uplatex")))))))) (symlink euptex "uplatex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-babel (list texlive-babel
texlive-cm texlive-cm
@ -46550,6 +46564,7 @@ and e-upTeX.")
(outputs '("out" "doc")) (outputs '("out" "doc"))
(build-system texlive-build-system) (build-system texlive-build-system)
(arguments (list #:create-formats #~(list "euptex" "uptex"))) (arguments (list #:create-formats #~(list "euptex" "uptex")))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
texlive-etex texlive-etex
@ -48514,6 +48529,7 @@ environments and another with all extracted environments converted to
#~(and (not #$(or (target-ppc64le?) #~(and (not #$(or (target-ppc64le?)
(target-riscv64?))) (target-riscv64?)))
(list "luajithbtex" "luajittex")))) (list "luajithbtex" "luajittex"))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
texlive-etex texlive-etex
@ -48630,6 +48646,7 @@ clearly show any mismatches.")
"0ngbhdh8hgpjfqnrjlnp27x3qziks3yf2zp1qq7r4bjfa5jx9gr6")))) "0ngbhdh8hgpjfqnrjlnp27x3qziks3yf2zp1qq7r4bjfa5jx9gr6"))))
(build-system texlive-build-system) (build-system texlive-build-system)
(arguments (list #:create-formats #~(list "mflua"))) (arguments (list #:create-formats #~(list "mflua")))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (list texlive-luatex texlive-metafont texlive-mflua-bin)) (propagated-inputs (list texlive-luatex texlive-metafont texlive-mflua-bin))
(home-page "https://ctan.org/pkg/mflua") (home-page "https://ctan.org/pkg/mflua")
(synopsis "Configuration and base files for MFLua") (synopsis "Configuration and base files for MFLua")
@ -49698,6 +49715,7 @@ information in the TFM file.")
(let ((perl (search-input-file inputs "/bin/perl"))) (let ((perl (search-input-file inputs "/bin/perl")))
(substitute* "scripts/context/perl/mptopdf.pl" (substitute* "scripts/context/perl/mptopdf.pl"
(("exec perl") (string-append "exec " perl))))))))) (("exec perl") (string-append "exec " perl)))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(inputs (list perl)) (inputs (list perl))
(propagated-inputs (list texlive-pdftex texlive-plain)) (propagated-inputs (list texlive-pdftex texlive-plain))
(home-page "https://ctan.org/pkg/mptopdf") (home-page "https://ctan.org/pkg/mptopdf")
@ -50303,6 +50321,7 @@ see the structure of a document by looking at the source file of the manual.")
(substitute* "source/cslatex/base/cslatex.ins" (substitute* "source/cslatex/base/cslatex.ins"
(("\\keepsilent\n" all) (("\\keepsilent\n" all)
(string-append all "\\askforoverwritefalse\n")))))))) (string-append all "\\askforoverwritefalse\n"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-atbegshi (list texlive-atbegshi
texlive-atveryend texlive-atveryend
@ -58204,6 +58223,7 @@ formats.")
(symlink pdftex "latex") (symlink pdftex "latex")
(symlink luahbtex "lualatex") (symlink luahbtex "lualatex")
(symlink pdftex "pdflatex")))))))) (symlink pdftex "pdflatex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-babel (list texlive-babel
texlive-cm texlive-cm
@ -59187,6 +59207,7 @@ and @code{pdfxmltex}.")
(mkdir-p (string-append #$output "/bin")) (mkdir-p (string-append #$output "/bin"))
(symlink pdftex (string-append #$output "/bin/xmltex")) (symlink pdftex (string-append #$output "/bin/xmltex"))
(symlink pdftex (string-append #$output "/bin/pdfxmltex")))))))) (symlink pdftex (string-append #$output "/bin/pdfxmltex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-babel (list texlive-babel
texlive-cm texlive-cm
@ -60643,7 +60664,9 @@ in the same way as BSD/GNU @code{getopt_long(3)} functions do.")
"TEXMFSYSCONFIG = \"$TEXMFDIST/../texmf-config\",\n") "TEXMFSYSCONFIG = \"$TEXMFDIST/../texmf-config\",\n")
(("TEXMF *=.*") (("TEXMF *=.*")
"TEXMF = \"{$TEXMFCONFIG,$TEXMFVAR,$TEXMFHOME,$TEXMFSYSCONFIG,$TEXMFSYSVAR,$TEXMFDIST}\",\n"))))))) "TEXMF = \"{$TEXMFCONFIG,$TEXMFVAR,$TEXMFHOME,$TEXMFSYSCONFIG,$TEXMFSYSVAR,$TEXMFDIST}\",\n")))))))
(native-inputs (list texlive-kpathsea)) (native-inputs
(list (if (target-64bit?) libfaketime datefudge)
texlive-kpathsea))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
texlive-etex texlive-etex
@ -60767,7 +60790,9 @@ Either of the Plain and LaTeX2e formats may be used with the package.")
(list (list
#:texlive-latex-bin? #f #:texlive-latex-bin? #f
#:create-formats #~(list "luahbtex"))) #:create-formats #~(list "luahbtex")))
(native-inputs (list texlive-kpathsea)) (native-inputs
(list texlive-kpathsea
(if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
texlive-etex texlive-etex
@ -61525,7 +61550,9 @@ available.")
(symlink pdftex "csplain") (symlink pdftex "csplain")
(symlink pdftex "pdfcsplain") (symlink pdftex "pdfcsplain")
(symlink luatex "luacsplain")))))))) (symlink luatex "luacsplain"))))))))
(native-inputs (list texlive-xetex)) (native-inputs
(list texlive-xetex
(if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
texlive-cs texlive-cs
@ -70377,6 +70404,7 @@ of ink traps which typify the Kurier font.")
(with-directory-excursion bin (with-directory-excursion bin
(symlink pdftex "jadetex") (symlink pdftex "jadetex")
(symlink pdftex "pdfjadetex")))))))) (symlink pdftex "pdfjadetex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-amsfonts (list texlive-amsfonts
texlive-auxhook texlive-auxhook
@ -71297,6 +71325,7 @@ e-TeX.")
(string-append prefix (string-append prefix
#$(this-package-input "ghostscript") #$(this-package-input "ghostscript")
"/bin\"\n")))))))) "/bin\"\n"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(inputs (list ghostscript)) (inputs (list ghostscript))
(propagated-inputs (propagated-inputs
(list texlive-cm (list texlive-cm
@ -71829,6 +71858,7 @@ and back-ends. It also ensures compatibility with the @code{media9} and
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(symlink luatex "optex")))))))) (symlink luatex "optex"))))))))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-amsfonts (list texlive-amsfonts
texlive-cm texlive-cm
@ -73593,6 +73623,7 @@ to make the correct sequence of sections of a book block visible.")
(list (list
#:link-scripts #~(list "texexec.rb" "texmfstart.rb") #:link-scripts #~(list "texexec.rb" "texmfstart.rb")
#:create-formats #~(list "cont-en"))) #:create-formats #~(list "cont-en")))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(inputs (list ruby)) (inputs (list ruby))
(propagated-inputs (list texlive-context texlive-metapost texlive-mptopdf (propagated-inputs (list texlive-context texlive-metapost texlive-mptopdf
texlive-pdftex texlive-xetex)) texlive-pdftex texlive-xetex))
@ -89831,7 +89862,8 @@ compatibility reasons.")
(lambda _ (lambda _
(delete-file-recursively "web2c")))))) (delete-file-recursively "web2c"))))))
(native-inputs (native-inputs
(list texlive-firstaid (list (if (target-64bit?) libfaketime datefudge)
texlive-firstaid
texlive-l3kernel texlive-l3kernel
texlive-l3packages texlive-l3packages
texlive-latex texlive-latex
@ -90533,6 +90565,7 @@ that it will build with web2c out of the box.")
(arguments (arguments
(list #:link-scripts #~(list "xelatex-unsafe.sh" "xetex-unsafe.sh") (list #:link-scripts #~(list "xelatex-unsafe.sh" "xetex-unsafe.sh")
#:create-formats #~(list "xelatex" "xetex"))) #:create-formats #~(list "xelatex" "xetex")))
(native-inputs (list (if (target-64bit?) libfaketime datefudge)))
(propagated-inputs (propagated-inputs
(list texlive-babel (list texlive-babel
texlive-cm texlive-cm

30
guix/build/texlive-build-system.scm
View file

@ -91,6 +91,15 @@ runfile to replace. If a file has no matching runfile, it is ignored."
((command-regexp _ command) ((command-regexp _ command)
(which command)))))) (which command))))))
(define* (enforce-source-date-epoch #:rest _)
"Toggle FORCE_SOURCE_DATE in order to make some Web2C binaries obey to
SOURCE_DATE_EPOCH.
This is only a part of the solution to make TeX Live reproducible as format
generation also needs to be wrapped within a `faketime' call in the
`create-formats' phase."
(setenv "FORCE_SOURCE_DATE" "1"))
(define* (configure-texmf #:rest _) (define* (configure-texmf #:rest _)
"Ensure TEXMFVAR is writable and \"ls-R\" database is not required." "Ensure TEXMFVAR is writable and \"ls-R\" database is not required."
;; Default TEXMFVAR value is relative to $HOME, which is not set during ;; Default TEXMFVAR value is relative to $HOME, which is not set during
@ -176,7 +185,8 @@ runfile to replace. If a file has no matching runfile, it is ignored."
(install-as-runfiles "build" "\\.tfm$")) (install-as-runfiles "build" "\\.tfm$"))
local-sources))) local-sources)))
(define* (create-formats #:key create-formats inputs #:allow-other-keys) (define* (create-formats
#:key create-formats native-inputs inputs #:allow-other-keys)
(define (collect-locations inputs pred) (define (collect-locations inputs pred)
(delete-duplicates (delete-duplicates
(append-map (match-lambda (append-map (match-lambda
@ -194,8 +204,21 @@ runfile to replace. If a file has no matching runfile, it is ignored."
(setenv "LUAINPUTS" (setenv "LUAINPUTS"
(string-join (collect-locations inputs "\\.lua$") ":")) (string-join (collect-locations inputs "\\.lua$") ":"))
(mkdir-p "web2c") (mkdir-p "web2c")
(for-each (cut invoke "fmtutil-sys" "--byfmt" <> "--fmtdir=web2c") ;; The ".fmt" format files contain timestamps. Reset them.
create-formats) ;;
;; XXX: At the moment 32bit systems do not support "faketime" (see
;; <https://issues.guix.gnu.org/72239>), so accept "datefudge" for them.
(let* ((inputs (or native-inputs inputs))
(command
(cond
((assoc-ref inputs "libfaketime") "faketime")
((assoc-ref inputs "datefudge") "datefudge")
(else
(error "Missing 'libfaketime' or 'datefudge' native input")))))
(for-each (cut invoke
command "1970-01-01T00:00:00+00:00"
"fmtutil-sys" "--byfmt" <> "--fmtdir=web2c")
create-formats))
;; Remove cruft. ;; Remove cruft.
(for-each delete-file (find-files "web2c" "\\.log$")))) (for-each delete-file (find-files "web2c" "\\.log$"))))
@ -302,6 +325,7 @@ runfile to replace. If a file has no matching runfile, it is ignored."
(delete 'bootstrap) (delete 'bootstrap)
(delete 'configure) (delete 'configure)
(add-after 'unpack 'patch-shell-scripts patch-shell-scripts) (add-after 'unpack 'patch-shell-scripts patch-shell-scripts)
(add-before 'build 'enforce-source-date-epoch enforce-source-date-epoch)
(add-before 'build 'configure-texmf configure-texmf) (add-before 'build 'configure-texmf configure-texmf)
(add-before 'build 'delete-drv-files delete-drv-files) (add-before 'build 'delete-drv-files delete-drv-files)
(add-after 'delete-drv-files 'generate-font-metrics generate-font-metrics) (add-after 'delete-drv-files 'generate-font-metrics generate-font-metrics)