utils: Add #:copy-file parameter to 'copy-recursively'.
* guix/build/utils.scm (copy-recursively): Add #:copy-file and honor it. * doc/guix.texi (Build Utilities): Adjust accordingly.
This commit is contained in:
parent
201cbcac3e
commit
edbd8f3f7e
@ -7778,12 +7778,13 @@ Make @var{file} writable for its owner.
|
|||||||
@end deffn
|
@end deffn
|
||||||
|
|
||||||
@deffn {Scheme Procedure} copy-recursively @var{source} @var{destination} @
|
@deffn {Scheme Procedure} copy-recursively @var{source} @var{destination} @
|
||||||
[#:log (current-output-port)] [#:follow-symlinks? #f] [#:keep-mtime? #f]
|
[#:log (current-output-port)] [#:follow-symlinks? #f] @
|
||||||
|
[#:copy-file copy-file] [#:keep-mtime? #f]
|
||||||
Copy @var{source} directory to @var{destination}. Follow symlinks if
|
Copy @var{source} directory to @var{destination}. Follow symlinks if
|
||||||
@var{follow-symlinks?} is true; otherwise, just preserve them. When
|
@var{follow-symlinks?} is true; otherwise, just preserve them. Call
|
||||||
@var{keep-mtime?} is true, keep the modification time of the files in
|
@var{copy-file} to copy regular files. When @var{keep-mtime?} is true,
|
||||||
@var{source} on those of @var{destination}. Write verbose output to the
|
keep the modification time of the files in @var{source} on those of
|
||||||
@var{log} port.
|
@var{destination}. Write verbose output to the @var{log} port.
|
||||||
@end deffn
|
@end deffn
|
||||||
|
|
||||||
@deffn {Scheme Procedure} delete-file-recursively @var{dir} @
|
@deffn {Scheme Procedure} delete-file-recursively @var{dir} @
|
||||||
|
@ -343,11 +343,12 @@ name."
|
|||||||
#:key
|
#:key
|
||||||
(log (current-output-port))
|
(log (current-output-port))
|
||||||
(follow-symlinks? #f)
|
(follow-symlinks? #f)
|
||||||
|
(copy-file copy-file)
|
||||||
keep-mtime?)
|
keep-mtime?)
|
||||||
"Copy SOURCE directory to DESTINATION. Follow symlinks if FOLLOW-SYMLINKS?
|
"Copy SOURCE directory to DESTINATION. Follow symlinks if FOLLOW-SYMLINKS?
|
||||||
is true; otherwise, just preserve them. When KEEP-MTIME? is true, keep the
|
is true; otherwise, just preserve them. Call COPY-FILE to copy regular files.
|
||||||
modification time of the files in SOURCE on those of DESTINATION. Write
|
When KEEP-MTIME? is true, keep the modification time of the files in SOURCE on
|
||||||
verbose output to the LOG port."
|
those of DESTINATION. Write verbose output to the LOG port."
|
||||||
(define strip-source
|
(define strip-source
|
||||||
(let ((len (string-length source)))
|
(let ((len (string-length source)))
|
||||||
(lambda (file)
|
(lambda (file)
|
||||||
|
Loading…
Reference in New Issue
Block a user