fork download 
  1. proc parsedict {args} {
  2. set d [join $args]
  3. if {[catch {dict size $d} result]} {
  4.     puts "err $result"
  5. } else {
  6.     puts "size=$result"
  7.     set n 0
  8.     foreach key [dict keys $d] {
  9.         puts key$n=$key
  10.         incr n
  11.     }
  12.     set n 0
  13.     foreach value [dict values $d] {
  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.  
Success #stdin #stdout 0.02s 5272KB
comments (?)
stdin 
Standard input is empty
stdout 
err missing value to go with key
https://ideone.com/1SSDA
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!