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 } }