Stuff

proc loadcfg {path} {
        global eggfu grammar
        foreach cfg {eggfu grammar} {
                set cf [open $path$cfg.cfg r]
                while {![eof $cf]} {
                        set stdin [string trim [gets $cf]]
                        if {![regexp #.* $stdin] && $stdin != ""} {  
                                set ${cfg}([trim [lindex [split $stdin :] 0]]) [trim [lindex [split $stdin :] 1]]
                        }
                }
        }
}