set_intersection! (public, deprecated)

 set_intersection! u-name v

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

Deprecated. Invoking this procedure generates a warning.

Computes the intersection of the set stored in the variable named $u-name in the calling environment and the set v, sets the variable named $u-name in the calling environment to that intersection, and also returns that intersection.

Parameters:

u-name (required)

v (required)

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc set_intersection!
    upvar $u-name u
    set result [list]

    foreach ue $u {
        if { [set_member? $v $ue] } {
            lappend result $ue
        }
    }

    set u $result
    return $result

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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