Posted to tcl by Siqsuruq at Thu Dec 22 22:06:27 GMT 2022view pretty

	:public method load_dz_procs {args} {
		set folders [glob -nocomplain -directory [file join ${:path} [: get_global mod_dir]] *]
		foreach f $folders {
			set module_namepace [file tail $f]
			set files [glob -nocomplain -directory $f *.tcl]
			foreach file $files {
				if {[regexp {Class.tcl} $file] == 1} {
					source $file
				} else {
# It will give error that $file not found
					namespace eval $module_namepace { source $file }
				}
			}
		}
	}