collapse

one of the documented procedures in this installation of the ACS

Usage:

collapse list re

What it does:

returns list with all entries that do not match re removed

Defined in: /web/philip/tcl/ticket-defs.tcl

Source code:

 
    set out {} 
    foreach element $list { 
        if {[regexp $re $element]} { 
            lappend out $element
        }
    }
    return $out