e5aec4d8 Aleteoryx
30 days ago
1 2 3 4 5 6 7 8 9
namespace eval ::algos { variable list {} } foreach file [glob src/algos/*.tcl] { source $file } foreach algo [namespace children ::algos] { lappend ::algos::list [lindex [split $algo :] end] }