diff options
author | Christian Grothoff <christian@grothoff.org> | 2020-02-17 21:20:12 +0100 |
---|---|---|
committer | Christian Grothoff <christian@grothoff.org> | 2020-02-17 21:20:12 +0100 |
commit | 21c6b40156db5a505215d4ce57fcab0ff6691300 (patch) | |
tree | 9dd8b61796c86e1b6694406ad3660cf64d00ce09 /guix/taler-helpers.scm | |
parent | be061b4da9a8850412c216bdf49589e6951527c5 (diff) | |
download | deployment-21c6b40156db5a505215d4ce57fcab0ff6691300.tar.gz deployment-21c6b40156db5a505215d4ce57fcab0ff6691300.tar.bz2 deployment-21c6b40156db5a505215d4ce57fcab0ff6691300.zip |
move unmaintained files to historic/
Diffstat (limited to 'guix/taler-helpers.scm')
-rw-r--r-- | guix/taler-helpers.scm | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/guix/taler-helpers.scm b/guix/taler-helpers.scm deleted file mode 100644 index 7f0b7c5..0000000 --- a/guix/taler-helpers.scm +++ /dev/null @@ -1,39 +0,0 @@ -(define-module (taler-helpers) - #:use-module (guix) - #:use-module (guix utils) - #:use-module (ice-9 textual-ports) - #:export (concat-local-files)) - -;;; -;;; Helpers -;;; - -(define (absolute-file-name file directory) - "Return the canonical absolute file name for FILE, which lives in the -vicinity of DIRECTORY." - (canonicalize-path - (cond ((string-prefix? "/" file) file) - ((not directory) file) - ((string-prefix? "/" directory) - (string-append directory "/" file)) - (else file)))) - -(define (%%concat-local-files srcdir outname files) - (define (slurp f) - (call-with-input-file (absolute-file-name f srcdir) get-string-all)) - (define (file-concat files) - (string-concatenate (map slurp files))) - (plain-file outname (file-concat files))) - - -(define-syntax concat-local-files - (lambda (s) - (syntax-case s () - ((_ outname files) - #'(%%concat-local-files (current-source-directory) outname files)) - ((_) - #'(syntax-error "missing arguments")) - (id - (identifier? #'id) - #'(syntax-error - "'concat-local-files' is a macro and cannot be used like this"))))) |