4 zip File Creation
procedure
(zip zip-file path ... [ #:timestamp timestamp #:get-timestamp get-timestamp #:system-type sys-type]) → void? zip-file : path-string? path : path-string? timestamp : (or/c #f exact-integer?) = #f
get-timestamp : (path? . -> . exact-integer?) =
(if timestamp (lambda (p) timestamp) file-or-directory-modify-seconds) sys-type : symbol? = (system-type)
The given paths are all expected to be relative path names of existing directories and files (i.e., relative to the current directory). If a nested path is provided as a path, its ancestor directories are also added to the resulting zip file, up to the current directory (using pathlist-closure).
Files are packaged as usual for zip files, including permission bits for both Windows and Unix (including Mac OS X). The permission bits are determined by file-or-directory-permissions, which does not preserve the distinction between owner/group/other permissions. Also, symbolic links are always followed.
The get-timestamp function is used to obtain the modification date to record in the archive for a file or directory, while sys-type determines the system type recorded in the archive.
Changed in version 6.0.0.3 of package base: Added the #:get-timestamp and #:system-type arguments.
procedure
(zip->output paths [ out #:timestamp timestamp #:get-timestamp get-timestamp #:system-type sys-type]) → void? paths : (listof path-string?) out : output-port? = (current-output-port) timestamp : (or/c #f exact-integer?) = #f
get-timestamp : (path? . -> . exact-integer?) =
(if timestamp (lambda (p) timestamp) file-or-directory-modify-seconds) sys-type : symbol? = (system-type)
Changed in version 6.0.0.3 of package base: Added the #:get-timestamp and #:system-type arguments.
parameter
(zip-verbose) → boolean?
(zip-verbose on?) → void? on? : any/c