在我的 TCL 脚本中,我试图提供将使用“cmdline”包解析的输入参数。我在脚本中定义了以下内容:
set run_options {
{input_1.arg 8 "first input argument"}
{input_2.arg 1 "second input argument"}
{msb "choose it if input data has msb first"}
{lsb "choose it if input data has lsb first"}
}
set my_usage ": \n tclsh my_src \[options] ...\noptions are:"
if {[catch {array set params [::cmdline::getoptions argv $run_options $my_usage]} msg]} {
puts "Error while parsing user options of $msg"
exit 1
}
一切看起来都很好,除了在运行我的脚本时我发现'cmdline'包默认定义了“help”选项,但是当我使用“-help”选项运行我的脚本时,输出如下:
Error while parsing user options of my_src :
tclsh my_src [options] ...
options are:
-input_1 value first input argument <8>
-input_2 value second input argument <1>
-msb choose it if input data has msb first
-lsb choose it if input data has lsb first
-- Forcibly stop option processing
-help Print this message
-? Print this message
那么,有谁知道如何使用这个自动添加的“帮助”选项而不给出错误信息?