ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Add call-with-temporary-directory.

Browse source 
* guix/utils.scm (call-with-temporary-directory): New procedure.
This commit is contained in:
David Thompson 2015-06-24 21:16:11 -04:00 committed by David Thompson
parent b4abdeb63b
commit db6e5e2b2c
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
guix/utils.scm
View file

@ -30,7 +30,7 @@ (define-module (guix utils)
#:use-module (rnrs bytevectors)
#:use-module ((rnrs io ports) #:select (put-bytevector))
#:use-module ((guix build utils) #:select (dump-port))
#:use-module ((guix build syscalls) #:select (errno))
#:use-module ((guix build syscalls) #:select (errno mkdtemp!))
#:use-module (ice-9 vlist)
#:use-module (ice-9 format)
#:autoload (ice-9 popen) (open-pipe*)
@ -77,6 +77,7 @@ (define-module (guix utils)
file-extension
file-sans-extension
call-with-temporary-output-file
call-with-temporary-directory
with-atomic-file-output
fold2
fold-tree
@ -652,6 +653,19 @@ (define (call-with-temporary-output-file proc)
(false-if-exception (close out))
(false-if-exception (delete-file template))))))
(define (call-with-temporary-directory proc)
"Call PROC with a name of a temporary directory; close the directory and
delete it when leaving the dynamic extent of this call."
(let* ((directory (or (getenv "TMPDIR") "/tmp"))
(template (string-append directory "/guix-directory.XXXXXX"))
(tmp-dir (mkdtemp! template)))
(dynamic-wind
(const #t)
(lambda ()
(proc tmp-dir))
(lambda ()
(false-if-exception (rmdir tmp-dir))))))
(define (with-atomic-file-output file proc)
"Call PROC with an output port for the file that is going to replace FILE.
Upon success, FILE is atomically replaced by what has been written to the