Posted to tcl by Colin at Tue Jul 22 03:53:08 GMT 2008view raw

  1. # simple rc reader
  2. proc rc {text} {
  3. set accum ""
  4. set result {}
  5. foreach line [split $text \n] {
  6. set line [string trim $line]
  7. if {$line eq ""} continue
  8. lassign [split $line {\#;}] line
  9. append accum " " [string trim $line]
  10. if {$accum ne "" && [info complete $accum]} {
  11. set pass [uplevel 1 list $accum]
  12. lappend result {*}$pass
  13. set accum ""
  14. }
  15. }
  16. return $result
  17. }
  18.