openbmc-test-automation/lib/opt.tcl

3 # This file provides many valuable parm and argument processing procedures such as longoptions, pos…
25   if { [lsearch -exact $longoptions "${opt_name}::"] != -1 } {
28   if { [lsearch -exact $longoptions "${opt_name}:"] != -1 } {
55     # Create an option record which is a 2-element list consisting of the option specification and a
106     # Create an option record which is a 2-element list consisting of the option specification and a
168   # - It will reject illegal options
169   # - It supports different posix input styles (e.g. -option <arg> vs --option=<arg>).
170   # - It allows the program's caller to abbreviate option names provided that there is no ambiguity.
173 …# will allow us to use the result in a bash command string.  Example: {--parm3=Kathy's cat} will b…
174   # '--parm3=Kathy'\''s cat'.
177   set _opt_cmd_buf_ "getopt --name=${program_name} -a --longoptions=\"help"
178   append _opt_cmd_buf_ " ${longoptions}\" --options=\"-h\" --"
181   if { [ catch {set OPT_LIST [eval exec bash -c {$_opt_cmd_buf_}]} result ] } {
193   set _opt_longopt_regex_ {\-[-]?[^- ]+}
198   if { $_opt_debug_ } { printn ; print_timen "Processing opt_list." }
203     if { $opt_list_entry == "--" } { break; }
214     set _opt_is_option_ [regexp -expanded $_opt_longopt_regex_\
218       regsub -all {^\-[-]?} $opt_list_entry {} opt_name
227         set _opt_current_longopt_ [string trimleft $opt_list_entry "-"]
232         set _opt_is_list_ [regexp -expanded "_list$" ${pos_parm_name}]
259   regsub -all ":" "${longoptions} ${pos_parms}" {} parm_names
313 …#                                 include a leading "--" to indicate that this is an optional rath…
318 …#                                 option value is "--parm1", global value parm1 is "no" and print_…
326   regsub -all {^\-[-]?} $option {} opt_name
327   regsub -all {:[:]?$} $opt_name {} opt_name
330   set longopt_regex {\-[-]?[^- ]+}
331   set is_option [regexp -expanded $longopt_regex ${option}]
390   # - help_text
391   # - data_desc (optional)
392   # - print_default (1 or 0 - default is 1)
426   append cmd_buf " --spaces --width=80"
427   set out_buf [eval exec bash -c {$cmd_buf}]
455       print_option_help "--${option}" $help_text $data_desc $print_default\
470   regsub -all {:} $longoptions {} program_options
489 …# Do generic post-validation processing.  By "post", we mean that this is to be called from a vali…
503 …# Do generic post-validation processing.  By "post", we mean that this is to be called from a vali…