|
|
|
|
@ -575,42 +575,45 @@ tcl::namespace::eval punk::zip {
|
|
|
|
|
"Create a zip archive in 'filename'" |
|
|
|
|
@opts |
|
|
|
|
-offsettype -default "archive" -choices {archive file}\ |
|
|
|
|
-help "zip offsets stored relative to start of entire file or relative to start of zip-archive |
|
|
|
|
Only relevant if the created file has a script/runtime prefix. |
|
|
|
|
" |
|
|
|
|
-help\ |
|
|
|
|
"zip offsets stored relative to start of entire file or relative to start of zip-archive |
|
|
|
|
Only relevant if the created file has a script/runtime prefix." |
|
|
|
|
-return -default "pretty" -choices {pretty list none}\ |
|
|
|
|
-help "mkzip can return a list of the files and folders added to the archive |
|
|
|
|
the option -return pretty is the default and uses the punk::lib pdict/plist system |
|
|
|
|
to return a formatted list for the terminal |
|
|
|
|
-help\ |
|
|
|
|
"mkzip can return a list of the files and folders added to the archive |
|
|
|
|
the option -return pretty is the default and uses the punk::lib pdict/plist system |
|
|
|
|
to return a formatted list for the terminal |
|
|
|
|
" |
|
|
|
|
-zipkit -default 0 -type none\ |
|
|
|
|
-help "whether to add mounting script |
|
|
|
|
mutually exclusive with -runtime option |
|
|
|
|
currently vfs::zip based - todo - autodetect zipfs/vfs with pref for zipfs |
|
|
|
|
" |
|
|
|
|
-help\ |
|
|
|
|
"whether to add mounting script |
|
|
|
|
mutually exclusive with -runtime option |
|
|
|
|
currently vfs::zip based - todo - autodetect zipfs/vfs with pref for zipfs" |
|
|
|
|
-runtime -default ""\ |
|
|
|
|
-help "specify a prefix file |
|
|
|
|
e.g punk::zip::mkzip -runtime unzipsfx.exe -directory subdir -base subdir output.zip |
|
|
|
|
will create a self-extracting zip archive from the subdir/ folder. |
|
|
|
|
Expects runtime with no existing vfs attached (review) |
|
|
|
|
" |
|
|
|
|
-help\ |
|
|
|
|
"specify a prefix file |
|
|
|
|
e.g punk::zip::mkzip -runtime unzipsfx.exe -directory subdir -base subdir output.zip |
|
|
|
|
will create a self-extracting zip archive from the subdir/ folder. |
|
|
|
|
Expects runtime with no existing vfs attached (review)" |
|
|
|
|
-comment -default ""\ |
|
|
|
|
-help "An optional comment for the archive" |
|
|
|
|
-directory -default ""\ |
|
|
|
|
-help "The new zip archive will scan for contents within this folder or current directory if not provided. |
|
|
|
|
Note that this will |
|
|
|
|
" |
|
|
|
|
-help "Scan for contents within this folder or current directory if not provided." |
|
|
|
|
-base -default ""\ |
|
|
|
|
-help "The new zip archive will be rooted in this directory if provided |
|
|
|
|
it must be a parent of -directory or the same path as -directory" |
|
|
|
|
-help\ |
|
|
|
|
"The new zip archive will be rooted in this directory if provided |
|
|
|
|
it must be a parent of -directory or the same path as -directory" |
|
|
|
|
-exclude -default {CVS/* */CVS/* *~ ".#*" "*/.#*"} |
|
|
|
|
-- -type none -help\ |
|
|
|
|
"End of options marker" |
|
|
|
|
|
|
|
|
|
@values -min 1 -max -1 |
|
|
|
|
filename -type file -default ""\ |
|
|
|
|
-help "name of zipfile to create" |
|
|
|
|
globs -default {*} -multiple 1\ |
|
|
|
|
-help "list of glob patterns to match. |
|
|
|
|
Only directories with matching files will be included in the archive." |
|
|
|
|
-help\ |
|
|
|
|
"list of glob patterns to match. |
|
|
|
|
Only directories with matching files will be included in the archive." |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
# zip::mkzip -- |
|
|
|
|
|
