8 lines
146 B
Tcl
8 lines
146 B
Tcl
|
if {$argc>=1} {
|
||
|
|
catch {write format wave -window Wave $1.tcl} res
|
||
|
|
} else {
|
||
|
|
catch {write format wave -window Wave case.tcl} res
|
||
|
|
}
|
||
|
|
|
||
|
|
|