如何实现TclOO跨对象命名空间的导出与导入？

先拆解下你遇到的核心问题：你的Invoker对象明明在构造函数里导入了Runner实例的命名空间，但调用process方法时却找不到RUN命令。这是因为TclOO中类方法的执行上下文和实例私有命名空间是相互独立的：

• Invoker的constructor是实例方法，执行时的上下文是该Invoker实例专属的私有命名空间，你在这里做的namespace import只会作用于这个实例空间。
• 但process方法是定义在::invoker::Invoker类的命名空间中的，当调用$invoker process时，方法的执行上下文是类的命名空间，而非实例的私有空间，自然找不到之前导入的RUN命令。

下面是三种可行的解决方案，你可以根据实际场景选择：

方案一：切换到实例命名空间执行命令 #

修改process方法，通过uplevel切换到当前实例的私有命名空间执行RUN，这样就能访问到构造函数中导入的命令：

#!/usr/bin/env tclsh
namespace eval ::runner {
    ::oo::class create Runner {
        constructor {} {
            namespace export RUN
            puts "runner.export: [namespace export]"
        }
        method RUN {} {
            puts "runner.RUN"
        }
    }
}
namespace eval ::invoker {
    ::oo::class create Invoker {
        variable runner
        constructor {} {
            set runner [::runner::Runner new]
            set runnerNS [info object namespace $runner]
            namespace import ${runnerNS}::*
            puts "invoker.import: [namespace import]"
        }
        method process {} {
            # 切换到当前实例的私有命名空间执行RUN
            uplevel #0 [list namespace eval [info object namespace [self]] {
                puts "invoker.process: [RUN]"
            }]
        }
    }
}
set invoker [::invoker::Invoker new]
$invoker process

方案二：直接通过对象调用方法 #

如果不需要把RUN导入为全局命令，也可以直接通过$runner对象调用方法，彻底避开命名空间上下文的问题，这也是最直接的写法：

#!/usr/bin/env tclsh
namespace eval ::runner {
    ::oo::class create Runner {
        constructor {} {
            namespace export RUN
            puts "runner.export: [namespace export]"
        }
        method RUN {} {
            puts "runner.RUN"
        }
    }
}
namespace eval ::invoker {
    ::oo::class create Invoker {
        variable runner
        constructor {} {
            set runner [::runner::Runner new]
            puts "invoker.import: 直接调用对象方法，无需导入"
        }
        method process {} {
            puts "invoker.process: [$runner RUN]"
        }
    }
}
set invoker [::invoker::Invoker new]
$invoker process

方案三：在类命名空间统一导入（适用于共享实例场景） #

如果你的所有Invoker实例都共享同一个Runner实例，可以把导入操作放到Invoker类的命名空间中，这样所有实例的方法都能直接访问RUN命令：

#!/usr/bin/env tclsh
namespace eval ::runner {
    ::oo::class create Runner {
        constructor {} {
            namespace export RUN
            puts "runner.export: [namespace export]"
        }
        method RUN {} {
            puts "runner.RUN"
        }
    }
}
namespace eval ::invoker {
    # 创建全局共享的Runner实例并导入命名空间
    set sharedRunner [::runner::Runner new]
    namespace import [info object namespace $sharedRunner]::*
    
    ::oo::class create Invoker {
        variable runner
        constructor {} {
            set runner $::invoker::sharedRunner
            puts "invoker.import: 类命名空间已导入RUN"
        }
        method process {} {
            puts "invoker.process: [RUN]"
        }
    }
}
set invoker [::invoker::Invoker new]
$invoker process

运行上述任意一段修正后的代码，都能正常输出runner.RUN，解决报错问题。

内容的提问来源于stack exchange，提问作者Andrei Pozolotin