#!/usr/bin/itclsh puts hallo set bp [pwd] cd $bp/sources set pl [list] lappend pl $bp/sources lappend pl $bp/sources/main lappend pl $bp/sources/mudding lappend pl $bp/sources/mapping lappend pl $bp/sources/rsc lappend pl $bp/sources/itcl/iwidgets/generic lappend pl $bp/sources/editor lappend pl $bp/sources/error foreach p $pl { lappend auto_path $p auto_mkindex $p *.tcl } puts "und tuess" exit