# I keep uri.tcl and all the compiles I've made of the widget module beside
# this file.  Each has a name <name>.so.<version> (eg tkhtml.so.0.52) and
# they all get indexed into the package system.

proc {} {dir} {
	set x [pwd]
	catch {
		cd $dir
		foreach i [glob -nocomplain *.so.*] {
			if {[regexp {\.so\.([0-9.]+)} $i {} v]} {
				package ifneeded DRH-HTML $v [subst {
					load [list [file join $dir $i]]
					source [list [file join $dir uri.tcl]]
					package provide DRH-HTML $v
				}]
			}
		}
	}
	cd $x
}; {} $dir