27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
# emit the command line usage information.
#
proc usage { {error ""} } {
if {[string length $error] > 0} then {puts stdout $error}
puts stdout "usage:\
[file tail [info nameofexecutable]]\
[file tail [info script]] \[apiKey\] \[package\] \[patchLevel\]\
\[language\] \[version\] \[platform\] \[fileName1\] ... \[fileNameN\]"
exit 1
}
#
# NOTE: Figure out the fully qualified path to the current script file.
|
|
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
# emit the command line usage information.
#
proc usage { {error ""} } {
if {[string length $error] > 0} then {puts stdout $error}
puts stdout "usage:\
[file tail [info nameofexecutable]]\
[file tail [info script]] \[serverId\] \[apiKey\] \[package\] \[patchLevel\]\
\[language\] \[version\] \[platform\] \[fileName1\] ... \[fileNameN\]"
exit 1
}
#
# NOTE: Figure out the fully qualified path to the current script file.
|