Posted to tcl by de at Sat Jan 28 00:46:59 GMT 2017view raw

  1.  
  2. proc aset {var key value} {
  3. upvar 1 $var array
  4. set array($key) $value
  5. }
  6.  
  7. proc dset {var key value} {
  8. upvar 1 $var dict
  9. dict set dict $key $value
  10. }
  11.  
  12. array set a {}
  13. aset a b c
  14. puts $a(b)
  15.  
  16. set one [dict create]
  17. dset one two three
  18. puts [dict get $one two]
  19.