21
22
23
24
25
26
27
28
29
30
31
32
|
21
22
23
24
25
26
27
28
29
30
31
32
|
-
-
+
+
|
#
namespace eval ::PackageInstaller {
#
# NOTE: This procedure is used to report errors that prevent this tool
# from running to completion (e.g. invalid command line arguments,
# etc). It may be used to report a specifically error. It will
# always emits the command line option and argument information.
# etc). It may be used to report a specific error. It will always
# emit the command line usage information.
#
proc usage { {error ""} } {
if {[string length $error] > 0} then {puts stdout $error}
puts stdout "usage:\
|