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


philg@mit.edu