15 lines
354 B
Tcl
15 lines
354 B
Tcl
# var_show.tcl
|
|
|
|
# this halfile can be used to show context and
|
|
# INI variable arrays available to tcl halfiles
|
|
# example: [HAL]LIB:var_show.tcl arg1 arg2
|
|
|
|
#begin-----------------------------------------------------------------
|
|
source [file join $::env(HALLIB_DIR) util_lib.tcl]
|
|
|
|
show_ini
|
|
show_context
|
|
|
|
puts ::argv=$::argv
|
|
puts ::arglen=[llength $::argv]
|