exists_and_not_null (public, deprecated)

 exists_and_not_null varname

Defined in packages/acs-tcl/tcl/deprecated-procs.tcl

Deprecated. Invoking this procedure generates a warning.

Returns 1 if the variable name exists in the caller's environment and is not the empty string. Note you should enter the variable name, and not the variable value (varname not $varname which will pass variable varnames value into this function). DEPRECATED: the value provided by this proc is arguable, as it can be replaced by a plain tcl oneliner.

Parameters:

varname (required)

See Also:

• plain tcl idioms

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc exists_and_not_null
    upvar 1 $varname var
    return [expr { [info exists var] && $var ne "" }]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/deprecated-procs.xql