Add shorthand versions of -echo and -verbose to `include`. (#236)
* Add shorthand versions of -echo and -verbose to `include`. This improves compatibility with other SDC based tools. * Add documentation changes for `include -e -v`, and use ||.
This commit is contained in:
parent
16b6bbb21c
commit
98c04dbb71
BIN
doc/OpenSTA.odt
BIN
doc/OpenSTA.odt
Binary file not shown.
BIN
doc/OpenSTA.pdf
BIN
doc/OpenSTA.pdf
Binary file not shown.
|
|
@ -366,16 +366,16 @@ proc check_percent { cmd_arg arg } {
|
||||||
set ::sta_continue_on_error 0
|
set ::sta_continue_on_error 0
|
||||||
|
|
||||||
define_cmd_args "include" \
|
define_cmd_args "include" \
|
||||||
{[-echo] filename [> filename] [>> filename]}
|
{[-e|-echo] [-v|-verbose] filename [> filename] [>> filename]}
|
||||||
|
|
||||||
# Tcl "source" command analog to support -echo and -verbose return values.
|
# Tcl "source" command analog to support -echo and -verbose return values.
|
||||||
proc_redirect include {
|
proc_redirect include {
|
||||||
parse_key_args "include" args keys {-encoding} flags {-echo -verbose}
|
parse_key_args "include" args keys {-encoding} flags {-e -echo -v -verbose}
|
||||||
if { [llength $args] != 1 } {
|
if { [llength $args] != 1 } {
|
||||||
cmd_usage_error "include"
|
cmd_usage_error "include"
|
||||||
}
|
}
|
||||||
set echo [info exists flags(-echo)]
|
set echo [expr [info exists flags(-echo)] || [info exists flags(-e)]]
|
||||||
set verbose [info exists flags(-verbose)]
|
set verbose [expr [info exists flags(-verbose)] || [info exists flags(-v)]]
|
||||||
set filename [file nativename [lindex $args 0]]
|
set filename [file nativename [lindex $args 0]]
|
||||||
include_file $filename $echo $verbose
|
include_file $filename $echo $verbose
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue