Re: Package definition - argument, fix for wrong file format before unpack

[白い熊 <help-guix_gnu.org@sumou.com>]

On 2022-05-21 10:29 pm, raingloom wrote:
> 
> If I remember correctly, the source should get passed as part of the
> inputs alist? Try this:
> `(replace 'unpack (lambda args (display args)))`
> And look at what arguments it gets passed. The store path of the
> tarball should be right there.

It does indeed give it:

(#:source /gnu/store/db0094xgx1z63i7naqs687l94ww5dbi7-mell-1.0.0.tar.gz 
#:system x86_64-linux #:build x86_64-unknown-linux-gnu #:outputs ((out . 
/gnu/store/5fgwxb1gq4gc9nmhigdllpy77xn2hxw2-emacs-mell-1.0.0)) #:inputs 
((source . 
/gnu/store/db0094xgx1z63i7naqs687l94ww5dbi7-mell-1.0.0.tar.gz) (tar . 
/gnu/store/g2ajyl8xk9aarxrgjbng2hkj3qm2v0z2-tar-1.34) (gzip . 
/gnu/store/iixwcv3k49ks1rf34pjgfzmzyhhgwng3-gzip-1.10) (bzip2 . 
/gnu/store/s3hl12jxz9ybs7nsy7kq7ybzz7qnzmsg-bzip2-1.0.8) (xz . 
/gnu/store/c8isj4jq6knv0icfgr43di6q3nvdzkx7-xz-5.2.5) (file . 
/gnu/store/4ic6244i3ca4b4rxc2wnrgllsidyishv-file-5.39) (diffutils . 
/gnu/store/ahmmvw21p11ik80lg1f953y7fd8bqkjm-diffutils-3.8) (patch . 
/gnu/store/z39hnrwds1dgcbpfgj8dnv2cngjb2xbl-patch-2.7.6) (findutils . 
/gnu/store/39rsx3nl4c31952jybbjb8d6idr5hx7r-findutils-4.8.0) (gawk . 
/gnu/store/690qz3fg334dpwn3pn6k59n4wc943p2b-gawk-5.1.0) (sed . 
/gnu/store/wxgv6i8g0p24q5gcyzd0yr07s8kn9680-sed-4.8) (grep . 
/gnu/store/xjwp2hsd9256icjjybfrmznppjicywf6-grep-3.6) (coreutils . 
/gnu/store/d251rfgc9nm2clzffzhgiipdvfvzkvwi-coreutils-8.32) (make . 
/gnu/store/55cbpsi18mahg131nmiya6km5b4mscfa-make-4.3) (bash . 
/gnu/store/4y5m9lb8k3qkb1y9m02sw9w9a6hacd16-bash-minimal-5.1.8) 
(ld-wrapper . /gnu/store/s2pg5k98fl2g2szg9dykxyd9zl3xihv9-ld-wrapper-0) 
(binutils . /gnu/store/rc781v4k0drhaqn90xfwwpspki5x0bvf-binutils-2.37) 
(gcc . /gnu/store/069aq2v993kpc41yabp5b6vm4wb9jkhg-gcc-10.3.0) (libc . 
/gnu/store/5h2w4qi9hk1qzzgi1w83220ydslinr4s-glibc-2.33) (libc:static . 
/gnu/store/4jdghmc65q7i7ib89zmvq66l0ghf7jc4-glibc-2.33-static) (locales 
. /gnu/store/fnr1z6xsan0437r0yg48d0y8k32kqxby-glibc-utf8-locales-2.33) 
(kernel-headers . 
/gnu/store/6mjww4iz4xdan74d5bbjfh7il8rngfkk-linux-libre-headers-5.10.35)) 
#:search-paths ((BASH_LOADABLES_PATH (lib/bash) : directory #f) 
(C_INCLUDE_PATH (include) : directory #f) (CPLUS_INCLUDE_PATH 
(include/c++ include) : directory #f) (LIBRARY_PATH (lib lib64) : 
directory #f) (GUIX_LOCPATH (lib/locale) : directory #f)) #:phases 
((set-SOURCE-DATE-EPOCH . #<procedure set-SOURCE-DATE-EPOCH _>) 
(set-paths . #<procedure set-paths (#:key target inputs native-inputs 
search-paths native-search-paths)>) (install-locale . #<procedure 
install-locale (#:key locale locale-category)>) (unpack . #<procedure 
7ffff403ae00 at ice-9/eval.scm:383:13 rest>) (bootstrap . #<procedure 
bootstrap (#:key bootstrap-scripts)>) (patch-usr-bin-file . #<procedure 
patch-usr-bin-file (#:key native-inputs inputs patch-/usr/bin/file?)>) 
(patch-source-shebangs . #<procedure patch-source-shebangs (#:key 
source)>) (configure . #<procedure configure (#:key build target 
native-inputs inputs outputs configure-flags out-of-source?)>) 
(patch-generated-file-shebangs . #<procedure 
patch-generated-file-shebangs rest>) (build . #<procedure build (#:key 
make-flags parallel-build?)>) (check . #<procedure check (#:key target 
make-flags tests? test-target parallel-tests? test-suite-log-regexp)>) 
(install . #<procedure install (#:key make-flags)>) (patch-shebangs . 
#<procedure patch-shebangs (#:key inputs outputs patch-shebangs?)>) 
(strip . #<procedure strip (#:key target outputs strip-binaries? 
strip-command objcopy-command strip-flags strip-directories)>) 
(validate-runpath . #<procedure validate-runpath (#:key 
validate-runpath? elf-directories outputs)>) 
(validate-documentation-location . #<procedure 
validate-documentation-location (#:key outputs)>) (delete-info-dir-file 
. #<procedure delete-info-dir-file (#:key outputs)>) 
(patch-dot-desktop-files . #<procedure patch-dot-desktop-files (#:key 
outputs inputs)>) (make-dynamic-linker-cache . #<procedure 
make-dynamic-linker-cache (#:key outputs make-dynamic-linker-cache?)>) 
(install-license-files . #<procedure install-license-files (#:key 
outputs license-file-regexp out-of-source?)>) (reset-gzip-timestamps . 
#<procedure reset-gzip-timestamps (#:key outputs)>) 
(compress-documentation . #<procedure compress-documentation (#:key 
outputs compress-documentation? documentation-compressor 
documentation-compressor-flags compressed-documentation-extension)>)) 
#:locale en_US.utf8 #:bootstrap-scripts (bootstrap bootstrap.sh 
autogen.sh) #:configure-flags () #:make-flags () #:out-of-source? #f 
#:tests? #t #:test-target check #:parallel-build? #t #:parallel-tests? 
#t #:patch-shebangs? #t #:license-file-regexp 
^(COPYING.*|LICEN[CS]E.*|[Ll]icen[cs]e.*|Copy[Rr]ight(\.(txt|md))?)$ 
#:strip-binaries? #t #:validate-runpath? #t #:make-dynamic-linker-cache? 
#t #:license-file-regexp 
^(COPYING.*|LICEN[CS]E.*|[Ll]icen[cs]e.*|Copy[Rr]ight(\.(txt|md))?)$ 
#:strip-flags (--strip-unneeded --enable-deterministic-archives) 
#:strip-directories (lib lib64 libexec bin sbin))

However seeing it how should I change the unpack now - to extract only 
via tar, however from the tar.gz file which isn't a gz really?
-- 
Best regards / 宜しく御願い致します / S pozdravem / C уважением / Z poważaniem / 
Mit freundlichen Grüßen

白い熊
ShiroiKuma