431 |
# And because [namespace import] imports into the current namespace. |
# And because [namespace import] imports into the current namespace. |
432 |
# FixMe: We need to keep up with what modules are loaded, and their versions. |
# FixMe: We need to keep up with what modules are loaded, and their versions. |
433 |
proc loadmodule {module {version {}}} { |
proc loadmodule {module {version {}}} { |
434 |
|
# FixMe: The Tcl approved way for the packages to be named are (example): |
435 |
|
# tcldrop::users::arraydb |
436 |
|
# And NOT like we currently have it: |
437 |
|
# tcldrop-users-arraydb |
438 |
|
# It would be best (appearance wise) if they were all changed to be more like a standard Tcl package. |
439 |
if {(($version != {}) && ([catch { package require "tcldrop-$module" $version } err])) || ([catch { package require "tcldrop-$module" } err])} { |
if {(($version != {}) && ([catch { package require "tcldrop-$module" $version } err])) || ([catch { package require "tcldrop-$module" } err])} { |
440 |
putlog "[format $::tcldrop::lang(0x209)] $module $version: $err" |
putlog "[format $::tcldrop::lang(0x209)] $module $version: $err" |
441 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |