sagax · April 6, 2019 22:45
diff --git a/dot_notation_in_dict.tcl b/dot_notation_in_dict.tcl
 set some {a {x 1 y 2 z 3} b { x 4 y 5 z 6} c { a {x 7 y 8 z 9}}}

 proc d {param} {
  set varname [lindex [split $param .] 0]
  set params [lrange [split $param .] 1 end]
  upvar $varname object
  return [dict get $object {*}[join $params { }]]
 }

 puts "default: [dict get $some a x]"
 puts "as js: [d some.a.x]"
	set some {a {x 1 y 2 z 3} b { x 4 y 5 z 6} c { a {x 7 y 8 z 9}}}

	proc d {param} {
	set varname [lindex [split $param .] 0]
	set params [lrange [split $param .] 1 end]
	upvar $varname object
	return [dict get $object {*}[join $params { }]]
	}

	puts "default: [dict get $some a x]"
	puts "as js: [d some.a.x]"