Posted to tcl by jeremy_c at Tue Sep 25 04:24:15 GMT 2007view raw

  1. proc Segment_position {seg {value {}}} {
  2. upvar $seg s
  3. if {$value != {}} {
  4. lset s 0 $value
  5. }
  6. return [lindex $s 0]
  7. }
  8.  
  9. set seg [list 10 20 [list a b c]]
  10. Segment_position $seg 100
  11. puts [Segment_position $seg] ; # 100