Hi Ludovic, Ludovic Courtès writes: > Ricardo Wurmus skribis: > >> Simon Tournier writes: >> >>>>> Instead of Python, would it possible to implement in Guile? I mean, >>>>> does Python have something that is missing in Guile? >>>>> >>>>> The facility for manipulating Tar? Something else? >>>> >>>> I think nothing else. As I understand Python implemented Tar inside the >>>> language itself in 2500 lines of code by manipulating binary data. >>>> >>>> /gnu/store/...-python-3.9.9/lib/python3.9/tarfile.py >>>> >>>> Technically it's probably possible to use tar utility with --append flag >>>> instead of opening a new file and streaming to it as the Python script >>>> does. To be honest I would like not to write it in this way if the >>>> Python script does not block current patch for merge. >>> >>> Ok, thanks for explaining. >>> >>>> Also I don't see myself writing Tar implementation in Guile, yet. ;-) >>> >>> Maybe not reimplementing Tar in Guile, maybe just enough for working. >>> Or maybe some Guile bindings. Or maybe something is already around for >>> the bootstrap story. >> >> gash-utils has (gash ustar); it’s about 620 lines of code. > > Disarchive also has a tar implementation. No excuse! :-) > > Oleg, could you check which of these would satisfy your needs? I had a > plan to improve the tar implementation in Gash-Utils, perhaps it’s a > good time to get my act together. Gash-Utils should work, e.g. [1] script. It's already possible to rewrite with Gash-Utils, but at least write-ustar-file and write-ustar-footer should be exported in ustar.scm. Disarchive requires to write a file specification in case of using disarchive-assemble. And disarchive-assemble does not work, if I don't miss anything [2]. Also gzip compression does not work in a Guile REPL. [1]: --8<---------------cut here---------------start------------->8--- #!/usr/bin/env -S guile --no-auto-compile -e main -s !# (set! %load-path (append '("/gnu/store/...-gash-utils-0.1.0/share/guile/site/3.0" "/gnu/store/...-gash-0.2.0/share/guile/site/3.0") %load-path)) (set! %load-compiled-path (append '("/gnu/store/...-gash-utils-0.1.0/lib/guile/3.0/site-ccache" "/gnu/store/...-gash-0.2.0/lib/guile/3.0/site-ccache") %load-compiled-path)) (use-modules (gash ustar) (srfi srfi-26) (guix build utils)) (define write-ustar-file (@@ (gash ustar) write-ustar-file)) (define write-ustar-footer (@@ (gash ustar) write-ustar-footer)) (define (main . args) (call-with-port (open-file "out.tar.gz" "wb") (lambda (port) (with-directory-excursion "." (call-with-compressed-output-port 'gzip port (cut write-ustar-file <> "Makefile.am" #:verbosity 0))) (with-directory-excursion "doc" (call-with-compressed-output-port 'gzip port (cut write-ustar-file <> "." #:verbosity 0))) (write-ustar-footer port)))) --8<---------------cut here---------------end--------------->8--- [2]: --8<---------------cut here---------------start------------->8--- $ guile ,m(disarchive assemblers tarball) (assemble-tarball (disassemble-tarball "out.tar") "result/out.tar") # Generated tarball: $ tar tf result/out.tar/sha256/1e7100029373723df900712d1191be0bad5beadf752f367bb264fab891c36356 ./ ./images/ ./images/bootstrap-graph.dot ./images/service-graph.pdf ./guix-cookbook.zh_Hans.texi tar: Unexpected EOF in archive tar: Error is not recoverable: exiting now # Original tarball: $ tar tf out.tar ./ ./images/ ./images/bootstrap-graph.dot ./images/bootstrap-graph.eps ./images/bootstrap-graph.pdf ./images/bootstrap-graph.png ./images/bootstrap-packages.dot ./images/bootstrap-packages.eps ./images/bootstrap-packages.pdf ./images/bootstrap-packages.png ./images/coreutils-bag-graph.dot ./images/coreutils-bag-graph.eps ./images/coreutils-bag-graph.pdf ./images/coreutils-bag-graph.png ./images/coreutils-graph.dot ./images/coreutils-graph.eps ./images/coreutils-graph.pdf ./images/coreutils-graph.png ./images/coreutils-size-map.eps ./images/coreutils-size-map.png ./images/gcc-core-mesboot0-graph.dot ./images/gcc-core-mesboot0-graph.eps ./images/gcc-core-mesboot0-graph.pdf ./images/gcc-core-mesboot0-graph.png ./images/installer-network.png ./images/installer-partitions.png ./images/installer-resume.png ./images/service-graph.dot ./images/service-graph.eps ./images/service-graph.pdf ./images/service-graph.png ./images/shepherd-graph.dot ./images/shepherd-graph.eps ./images/shepherd-graph.pdf ./images/shepherd-graph.png ./.dirstamp ./environment-gdb.scm ./fdl-1.3.texi ./os-config-bare-bones.texi ./os-config-desktop.texi ./os-config-lightweight-desktop.texi ./package-hello.json ./package-hello.scm ./stamp-1 ./stamp-10 ./stamp-11 ./stamp-2 ./stamp-3 ./stamp-4 ./stamp-5 ./stamp-6 ./stamp-7 ./stamp-8 ./stamp-9 ./stamp-vti ./contributing.fa.texi ./guix.fa.texi ./contributing.fi.texi ./guix.fi.texi ./contributing.it.texi ./guix.it.texi ./contributing.ko.texi ./guix.ko.texi ./contributing.sk.texi ./guix.sk.texi ./guix-cookbook.es.texi ./guix-cookbook.fa.texi ./guix-cookbook.fi.texi ./guix-cookbook.pt_BR.texi ./guix-cookbook.ru.texi ./guix-cookbook.zh_Hans.texi ./version-fa.texi ./guix.fa.info-1 ./guix.fa.info-2 ./guix.fa.info-3 ./guix.fa.info-4 ./guix.fa.info-5 ./guix.fa.info-6 ./guix.fa.info ./version-fi.texi ./guix.fi.info-1 ./guix.fi.info-2 ./guix.fi.info-3 ./guix.fi.info-4 ./guix.fi.info-5 ./guix.fi.info-6 ./guix.fi.info ./version-it.texi ./guix.it.info-1 ./guix.it.info-2 ./guix.it.info-3 ./guix.it.info-4 ./guix.it.info-5 ./guix.it.info-6 ./guix.it.info ./version-ko.texi ./guix.ko.info-1 ./guix.ko.info-2 ./guix.ko.info-3 ./guix.ko.info-4 ./guix.ko.info-5 ./guix.ko.info-6 ./guix.ko.info ./version-sk.texi ./guix.sk.info-1 ./guix.sk.info-2 ./guix.sk.info-3 ./guix.sk.info-4 ./guix.sk.info-5 ./guix.sk.info-6 ./guix.sk.info ./guix-cookbook.es.info ./guix-cookbook.fa.info ./guix-cookbook.fi.info ./guix-cookbook.pt_BR.info ./guix-cookbook.ru.info ./guix-cookbook.zh_Hans.info ./he-config-bare-bones.scm ./guix-lint.1 ./build.scm ./contributing.texi ./guix-cookbook.texi ./htmlxref.cnf ./local.mk ./guix-cookbook.info ./guix-gc.1 ./guix-git.1 ./guix-container.1 ./guix-copy.1 ./guix-describe.1 ./guix-processes.1 ./guix-size.1 ./guix-weather.1 ./guix-shell.1 ./guix-cookbook.ko.texi ./guix-cookbook.fr.texi ./guix-cookbook.de.texi ./guix-cookbook.sk.texi ./contributing.zh_CN.texi ./contributing.ru.texi ./contributing.pt_BR.texi ./contributing.fr.texi ./contributing.es.texi ./contributing.de.texi ./guix.zh_CN.texi ./guix.ru.texi ./guix.pt_BR.texi ./guix.de.texi ./guix.es.texi ./guix.fr.texi ./guix-cookbook.sk.info ./guix-cookbook.de.info ./guix-cookbook.fr.info ./guix-cookbook.ko.info ./version-de.texi ./version-ru.texi ./version-fr.texi ./version-es.texi ./version-pt_BR.texi ./version-zh_CN.texi ./guix-daemon.1 ./guix.pt_BR.info-1 ./guix.pt_BR.info-2 ./guix.fr.info-1 ./guix.fr.info-2 ./guix.de.info-1 ./guix.de.info-2 ./guix.pt_BR.info-3 ./guix.ru.info-1 ./guix.ru.info-2 ./guix.fr.info-3 ./guix.ru.info-3 ./guix.zh_CN.info-1 ./guix.zh_CN.info-2 ./guix.es.info-1 ./guix.es.info-2 ./guix.de.info-3 ./guix.pt_BR.info-4 ./guix.fr.info-4 ./guix.ru.info-4 ./guix.zh_CN.info-3 ./guix.de.info-4 ./guix.es.info-3 ./guix.ru.info-5 ./guix.pt_BR.info-5 ./guix.zh_CN.info-4 ./guix.fr.info-5 ./guix.es.info-4 ./guix.de.info-5 ./guix.pt_BR.info-6 ./guix.ru.info-6 ./guix.fr.info-6 ./guix.pt_BR.info-7 ./guix.es.info-5 ./guix.zh_CN.info-5 ./guix.de.info-6 ./guix.pt_BR.info ./guix.ru.info-7 ./guix.fr.info-7 ./guix.ru.info-8 ./guix.de.info-7 ./guix.es.info-6 ./guix.fr.info-8 ./guix.zh_CN.info-6 ./guix.ru.info ./guix.fr.info ./guix.de.info-8 ./guix.zh_CN.info-7 ./guix.es.info-7 ./guix.de.info ./guix.zh_CN.info ./guix.es.info-8 ./guix.es.info ./guix.texi ./version.texi ./guix.info-1 ./guix.info-2 ./guix.info-3 ./guix.info-4 ./guix.info-5 ./guix.info-6 ./guix.info-7 ./guix.info ./guix-build.1 ./guix-archive.1 ./guix-import.1 ./guix-offload.1 ./guix-graph.1 ./guix-hash.1 ./guix-challenge.1 ./guix-download.1 ./guix-edit.1 ./guix-repl.1 ./guix-publish.1 ./guix-package.1 ./guix-style.1 ./guix-pull.1 ./guix-time-machine.1 ./guix-environment.1 ./guix-pack.1 ./guix-deploy.1 ./guix-refresh.1 ./guix-home.1 ./guix-system.1 ./guix.1 --8<---------------cut here---------------end--------------->8--- Regards, Oleg.