callback::a_callback::impl::an_impl2 (private)

 callback::a_callback::impl::an_impl2

Defined in packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl

this is a test callback implementation which does an upvar of an array.

See Also:

Partial Call Graph (max 5 caller/called nodes):
%3

Testcases:
No testcase defined.
Source code:
    ::callback::a_callback::contract__arg_parser {*}$args

        upvar $arg1 arr
    if {[info exists arr(test)]} {
            return $arr(test)
    }
    return {}
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: