Cacher is the code snippet organizer for pro developers

proc read_inifile_section_names {f} {
	set sections {}
	set ch [open $f r]
	while {[gets $ch line] != -1} {
		if {[regexp {^\[(.+)\]$} $line -> section]} {
			lappend sections $section
		}
	}
	close $ch
	return $sections
}