Pharo 和 Squeak Smalltalk：列出包中未实现的方法？

Question

如何列出包中所有未实现的方法？鉴于该方法应该在该包中实现，而不是在其他包中实现（例如在包外的超类中或在 Object 中）。

编辑：是的，我想知道“发送的未实现的消息”，但将分析限制为一个特定的给定包，例如：

FooPackage unimplementedMessageSends。

Answer 1

我还没有对此进行全面测试，因此您可能需要对其进行一些调整以满足您的要求，但从我对您问题的理解来看，您可能会遇到这样的事情：

| allMethodsSent allMethodsImplemented |
allMethodsSent := IdentitySet new.
allMethodsImplemented := IdentitySet new.
(SystemOrganization listAtCategoryNamed: #'Collections-Arrayed')
    do: [:eachClassName |
        (Smalltalk at: eachClassName) methodDictionary valuesDo: [:eachMethod |
            allMethodsSent addAll: eachMethod messages.
            ].
        allMethodsImplemented addAll: (Smalltalk at: eachClassName) selectors
        ].
^allMethodsSent
    removeAllFoundIn: allMethodsImplemented;
    yourself

希望这至少可以帮助您开始，如果您需要调整它，看看类 Behavior （看看你可以使用什么，而不是改变它！），CompiledMethod 和 SystemOrganization.

显然这个例子使用了类别（我假设这就是你所说的包的意思？）“Collections-Arrayed”，但是你当然可以调整它以使其成为方法参数，例如：

MyUtilClass unimplementedMessageSendsFor: aCategorySymbol