fork download 
  1. proc parsedict {argv} {
  2. #set d [join $argv]
  3. if {[catch {dict size {*}$argv} result]} {
  4.     puts "err $result"
  5. } else {
  6.     puts "size=$result"
  7.     set n 0
  8.     foreach key [dict keys {*}$argv] {
  9.         puts key$n=$key
  10.         incr n
  11.     }
  12.     set n 0
  13.     foreach value [dict values {*}$argv] {
  14.         puts value$n=$value
  15.         incr n
  16.     }
  17. }
  18. }
  19.  
  20. parsedict -name "name with spaces" -value 3 -color {-type enum -values {red blue green}}
  21.  
Runtime error #stdin #stdout 0.02s 5272KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/NgRvP
language:
TCL (tcl 8.6)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!