Browse Source

fix punk::zip::mkzip to accept -- end of options marker

master
Julian Noble 1 month ago
parent
commit
46f71ebd51
  1. 33
      src/bootsupport/modules/punk/zip-0.1.1.tm
  2. 33
      src/modules/punk/zip-999999.0a1.0.tm
  3. 33
      src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm
  4. 33
      src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm
  5. 33
      src/vfs/_vfscommon.vfs/modules/punk/zip-0.1.1.tm

33
src/bootsupport/modules/punk/zip-0.1.1.tm

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

33
src/modules/punk/zip-999999.0a1.0.tm

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

33
src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm

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

33
src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/zip-0.1.1.tm

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

33
src/vfs/_vfscommon.vfs/modules/punk/zip-0.1.1.tm

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

Loading…
Cancel
Save