exists_and_not_null varnameWhat it does:
Returns 1 if the variable name exists in the caller's environment and is not the empty string.Defined in: /web/philip/packages/acs-core/utilities-procs.tcl
Source code:
upvar 1 $varname var return [expr { [info exists var] && ![empty_string_p $var] }]