f::bind (public, deprecated)

 f::bind f [ args... ]

Defined in packages/acs-tcl/tcl/ad-functional-procs.tcl

Deprecated. Invoking this procedure generates a warning.

binds args to the first k arguments of the n-ary function f and returns the resulting (n-k)-ary function DEPRECATED: As of tcl8.5, Tcl has native support for 'lambda' provided by means of 'apply' per TIP 194. Tcllib provides a 'lambda' package with procs that make use of it.

Parameters:
f

See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 f::choose f::choose (public, deprecated) f::bind f::bind f::choose->f::bind f::pascal f::pascal (public, deprecated) f::pascal->f::bind f::reverse f::reverse (public, deprecated) f::reverse->f::bind ad_get_tcl_call_stack ad_get_tcl_call_stack (public) f::bind->ad_get_tcl_call_stack f::lambda f::lambda (public, deprecated) f::bind->f::lambda

Testcases:
No testcase defined.
Source code:
ns_log Notice "Deprecated proc f::bind used:\n[ad_get_tcl_call_stack]"

    set i 0
    foreach arg $args {
        append code "set [lindex [info args $f] $i] {$arg}\n"
        incr i
    }
    append code [info body $f]
    set proc_args [info args $f]
    set num_proc_args [llength $proc_args]
    lambda [lrange $proc_args [llength $args] $num_proc_args] $code
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: