Posted to tcl by Colin at Tue Jul 22 03:53:08 GMT 2008view pretty
# simple rc reader proc rc {text} { set accum "" set result {} foreach line [split $text \n] { set line [string trim $line] if {$line eq ""} continue lassign [split $line {\#;}] line append accum " " [string trim $line] if {$accum ne "" && [info complete $accum]} { set pass [uplevel 1 list $accum] lappend result {*}$pass set accum "" } } return $result }