suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

file/tar: add #:timestamp parameter

Browse Source 
Add a keyword argument that matches the arg. to `zip`

Fixes an "unbound" id in the docs
This commit is contained in:
Ben Greenman 2019-04-27 14:14:31 -04:00
parent 451a535fc6
commit bcd10a9114
2 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/racket-doc/file/scribblings/tar.scrbl
View File

@ -21,6 +21,7 @@ Symbolic links (on Unix and Mac OS) are not followed by default.}
[#:format format (or/c 'pax 'gnu 'ustar) 'pax]
[#:path-prefix path-prefix (or/c #f path-string?) #f]
[#:path-filter path-filter (or/c #f (path? . -> . any/c)) #f]
[#:timestamp timestamp (or/c #f exact-integer?) #f]
[#:get-timestamp get-timestamp
(path? . -> . exact-integer?)
(if timestamp
@ -60,7 +61,8 @@ date to record in the archive for each file or directory.
#:changed "6.3.0.11" @elem{Added the @racket[#:path-filter] argument.}
#:changed "6.7.0.4" @elem{Added the @racket[#:format] argument and
effectively changed its default from @racket['ustar]
to @racket['pax].}]}
to @racket['pax].}
#:changed "7.3.0.3" @elem{Added the @racket[#:timestamp] argument.}]}
@defproc[(tar->output [paths (listof path?)]
@ -69,6 +71,7 @@ date to record in the archive for each file or directory.
[#:format format (or/c 'pax 'gnu 'ustar) 'pax]
[#:path-prefix path-prefix (or/c #f path-string?) #f]
[#:path-filter path-filter (or/c #f (path? . -> . any/c)) #f]
[#:timestamp timestamp (or/c #f exact-integer?) #f]
[#:get-timestamp get-timestamp
(path? . -> . exact-integer?)
(if timestamp
@ -87,7 +90,8 @@ without parent directories.
#:changed "6.3.0.11" @elem{Added the @racket[#:path-filter] argument.}
#:changed "6.7.0.4" @elem{Added the @racket[#:format] argument and
effectively changed its default from @racket['ustar]
to @racket['pax].}]}
to @racket['pax].}
#:changed "7.3.0.3" @elem{Added the @racket[#:timestamp] argument.}]}
@defproc[(tar-gzip [tar-file path-string?]
@ -96,6 +100,7 @@ without parent directories.
[#:exists-ok? exists-ok? any/c #f]
[#:format format (or/c 'pax 'gnu 'ustar) 'pax]
[#:path-prefix path-prefix (or/c #f path-string?) #f]
[#:timestamp timestamp (or/c #f exact-integer?) #f]
[#:get-timestamp get-timestamp
(path? . -> . exact-integer?)
(if timestamp
@ -110,4 +115,5 @@ Like @racket[tar], but compresses the resulting file with @racket[gzip].
#:changed "6.3.0.3" @elem{Added the @racket[#:follow-links?] argument.}
#:changed "6.7.0.4" @elem{Added the @racket[#:format] argument and
effectively changed its default from @racket['ustar]
to @racket['pax].}]}
to @racket['pax].}
#:changed "7.3.0.3" @elem{Added the @racket[#:timestamp] argument.}]}

15
racket/collects/file/tar.rkt
View File

@ -197,7 +197,10 @@
;; writes a tar file to current-output-port
(provide tar->output)
(define (tar->output files [out (current-output-port)]
#:get-timestamp [get-timestamp file-or-directory-modify-seconds]
#:timestamp [timestamp #f]
#:get-timestamp [get-timestamp (if timestamp
(lambda (p) timestamp)
file-or-directory-modify-seconds)]
#:path-prefix [prefix #f]
#:follow-links? [follow-links? #f]
#:format [format 'pax])
@ -215,7 +218,10 @@
#:path-prefix [prefix #f]
#:path-filter [path-filter #f]
#:follow-links? [follow-links? #f]
#:get-timestamp [get-timestamp file-or-directory-modify-seconds]
#:timestamp [timestamp #f]
#:get-timestamp [get-timestamp (if timestamp
(lambda (p) timestamp)
file-or-directory-modify-seconds)]
#:format [format 'pax]
. paths)
(check-format 'tar format)
@ -237,7 +243,10 @@
#:path-prefix [prefix #f]
#:path-filter [path-filter #f]
#:follow-links? [follow-links? #f]
#:get-timestamp [get-timestamp file-or-directory-modify-seconds]
#:timestamp [timestamp #f]
#:get-timestamp [get-timestamp (if timestamp
(lambda (p) timestamp)
file-or-directory-modify-seconds)]
#:format [format 'pax]
. paths)
(check-format 'tar-gzip format)