diff --git a/doc/OpenSTA.odt b/doc/OpenSTA.odt index 6e57b780..05d8c054 100644 Binary files a/doc/OpenSTA.odt and b/doc/OpenSTA.odt differ diff --git a/doc/OpenSTA.pdf b/doc/OpenSTA.pdf index 2293d8f8..05d8c054 100644 Binary files a/doc/OpenSTA.pdf and b/doc/OpenSTA.pdf differ diff --git a/tcl/Util.tcl b/tcl/Util.tcl index 701b6d08..0cb2083b 100644 --- a/tcl/Util.tcl +++ b/tcl/Util.tcl @@ -366,16 +366,16 @@ proc check_percent { cmd_arg arg } { set ::sta_continue_on_error 0 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. 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 } { cmd_usage_error "include" } - set echo [info exists flags(-echo)] - set verbose [info exists flags(-verbose)] + set echo [expr [info exists flags(-echo)] || [info exists flags(-e)]] + set verbose [expr [info exists flags(-verbose)] || [info exists flags(-v)]] set filename [file nativename [lindex $args 0]] include_file $filename $echo $verbose }