util_search_list_of_lists

util_search_list_of_lists   list_of_lists   query_string   { sublist_element_pos "0" }

Returns position of sublist that contains QUERY_STRING at SUBLIST_ELEMENT_POS.

Source code:

    set sublist_index 0
    foreach sublist $list_of_lists {
	set comparison_element [lindex $sublist $sublist_element_pos]
	if { [string compare $query_string $comparison_element] == 0 } {
	    return $sublist_index
	}
	incr sublist_index
    }
    # didn't find it
    return -1