Lines Matching refs:data_list
773 set data_list {}
779 lappend data_list [list $data]
782 #lsort -command _comp data_list
783 set data_list [lsort -command _comp $data_list]
786 puts -nonewline $f [binary format i [llength $data_list]]
787 for { set j 0 } { $j < [llength $data_list] } { incr j } {
789 [concat [lindex $data_list $j]]]]
790 puts -nonewline $f [concat [lindex $data_list $j]]
792 if { [llength $data_list] == 0 } {