dp_list_packed_vars

one of the documented procedures in this installation of the ACS
Usage:
dp_list_packed_vars   { form_index "" }
What it does:
Lists all the variables in the dp_form that start with dp$form_index.*
Defined in: /web/philip/tcl/data-pipeline-defs.tcl

Source code:


    upvar dp_form dp_form

    if {![info exists dp_form] || [empty_string_p $dp_form]} {
        return
    } else {
        set size [ns_set size $dp_form]
        for {set i 0} {$i < $size} {incr i} {
            if [string match dp${form_index}.*  [ns_set key $dp_form $i]] {
                lappend dp_packed_vars [ns_set key $dp_form $i]
            }
        }
        if [info exists dp_packed_vars] {
            return $dp_packed_vars
        } else {
            return
        }
    }


philg@mit.edu