Posted to tcl by Colin at Tue Jul 22 03:53:08 GMT 2008view raw
- # 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
- }