(2)proc to_eng: return arg as is if not valid expression
This commit is contained in:
parent
2d6b7c4fe1
commit
c19c25873b
|
|
@ -628,6 +628,10 @@ proc from_eng {i} {
|
|||
## convert number to engineering form
|
||||
proc to_eng {args} {
|
||||
set suffix {}
|
||||
|
||||
if {[ catch {uplevel #0 expr [join $args]} i]} {
|
||||
return [join $args]
|
||||
}
|
||||
set i [uplevel #0 expr [join $args]]
|
||||
set absi [expr {abs($i)}]
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue