diff options
author | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2019-08-27 18:20:16 +0200 |
---|---|---|
committer | Hartmut Goebel <h.goebel@crazy-compilers.com> | 2019-09-10 19:04:05 +0200 |
commit | da1027a70508ea96134f5ef89d9dd390679255f0 (patch) | |
tree | 15e1dbfbd4213c65f614a5ae0ad669b24aec44d5 /guix/utils.scm | |
parent | 83aa6562173e06e8fafd4857a2e708feabfe56f8 (diff) | |
download | patches-da1027a70508ea96134f5ef89d9dd390679255f0.tar patches-da1027a70508ea96134f5ef89d9dd390679255f0.tar.gz |
guix: Rename and move sans-extension to tarball-sans-extension.
* guix/gnu-maintenance.scm (sans-extension): Move and rename to ...
* guix/utils.scm (tarball-sans-extension): ... here.
Diffstat (limited to 'guix/utils.scm')
-rw-r--r-- | guix/utils.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index f480c3291f..1f99c5b3f5 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -91,6 +91,7 @@ arguments-from-environment-variable file-extension file-sans-extension + tarball-sans-extension compressed-file? switch-symlinks call-with-temporary-output-file @@ -578,6 +579,12 @@ minor version numbers from version-string." (substring file 0 dot) file))) +(define (tarball-sans-extension tarball) + "Return TARBALL without its .tar.* or .zip extension." + (let ((end (or (string-contains tarball ".tar") + (string-contains tarball ".zip")))) + (substring tarball 0 end))) + (define (compressed-file? file) "Return true if FILE denotes a compressed file." (->bool (member (file-extension file) |