util_search_list_of_lists (public, deprecated)

 util_search_list_of_lists list_of_lists query_string \
    [ sublist_element_pos ]

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

Deprecated. Invoking this procedure generates a warning.

Returns position of sublist that contains QUERY_STRING at SUBLIST_ELEMENT_POS. The function can be replaced by "lsearch -index $pos $list_of_lists $query_string"

Parameters:

list_of_lists (required)

query_string (required)

sublist_element_pos (optional, defaults to "0")

See Also:

• lsearch

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc util_search_list_of_lists
    #set sublist_index 0
    #foreach sublist $list_of_lists {
    #    set comparison_element [lindex $sublist $sublist_element_pos]
    #    if { $query_string eq $comparison_element  } {
    #        return $sublist_index
    #    }
    #    incr sublist_index
    #}
    # didn't find it
    #return -1

    return [lsearch -index $sublist_element_pos $list_of_lists $query_string]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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