exists_and_equal (public, deprecated)

 exists_and_equal varname value

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 equal to the given value. DEPRECATED: the value provided by this proc is arguable, as it can be replaced by a plain tcl oneliner.

Parameters:

varname (required)

value (required)

Author:

Peter Marklund

See Also:

• exists_and_not_null
• plain tcl idioms

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc exists_and_equal
    upvar 1 $varname var

    return [expr { [info exists var] && $var eq $value } ]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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