68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#
# NOTE: This procedure exports one or more commands from the specified
# namespace and imports them into the global namespace, optionally
# forgetting all previous imports from the specified namespace.
#
proc exportAndImportPackageCommands { namespace exports forget force } {
#
# NOTE: Forget any previous commands that were imported from
# this namespace into the global namespace?
#
if {$forget} then {
namespace eval :: [list namespace forget [appendArgs $namespace ::*]]
}
|
>
>
>
>
>
>
|
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#
# NOTE: This procedure exports one or more commands from the specified
# namespace and imports them into the global namespace, optionally
# forgetting all previous imports from the specified namespace.
#
proc exportAndImportPackageCommands { namespace exports forget force } {
#
# NOTE: If the specified namespace is global, do nothing as this is a
# no-op.
#
if {[string length [string trimleft $namespace :]] == 0} then {return}
#
# NOTE: Forget any previous commands that were imported from
# this namespace into the global namespace?
#
if {$forget} then {
namespace eval :: [list namespace forget [appendArgs $namespace ::*]]
}
|