Smalltalk 中的消息转发

Question

因此，我正在编写一个应用程序，其中一个对象具有一堆将消息转发到的委托对象。 我的想法是，我可以说

someObject sendMessage:aMessage

aMessage 将被发送到所有 someObject 的委托（对于 aMessage 的任何值）。 我能够做到这一点的唯一方法是：

sendMessage:aMessage

| sel chunks kwords arglist msg |
chunks := aMessage findTokens:' '.
kwords := Array new:(chunks size).
arglist := Array new:(chunks size).
1 to: (chunks size) do: [:i | 
    kwords at:i put:((chunks at:i) findTokens:':') at:1.
    arglist at:i put:((chunks at:i) findTokens:':') at:2].
sel := ''.
kwords do:[:word | sel := sel,word,':'].

msg := Message selector:sel arguments:arglist.
delegates do:[:del | del perform:msg selector with:msg arguments].

它有效，但必须有更好的方法。 这个解决方案将参数限制为字符串，并且非常丑陋。 有谁知道更干净、更好的消息转发方式吗？

顺便说一句，我正在使用 squeak，但首选独立于实现的解决方案;)

编辑：我应该补充一点，委托与对象属于同一类，所以我不能只覆盖不明白：。

Answer 1

由于您想要将对象作为参数传递，因此您必须将它们作为使用消息模式的单独列表传递，如下所示：

someObject sendMessage: aSelector withArguments: argumentList

然后你将 #sendMessage:withArguments: 实现为：

sendMessage: aSelector withArguments: argumentList

代表们做：[:del |
del 执行：aSelector withArguments: :argumentList]。

并且您可以使用真实对象作为参数转发任意复杂的消息：

| 参数 |

参数 := 数组
与：新对象
与：1234.5
与：（'键'->'值'）。

someObject sendMessage: #foo:bar:baz: withArguments: 参数

我认为这也可以移植到大多数方言......

Answer 2

尝试实现这个（它只会转发具有委托的对象无法理解的消息）：

doesNotUnderstand: aMessage 
    delegates
        do: [:delegate | aMessage sendTo: delegate]

您可以显式构造 Message 对象，如下所示：

msg := Message selector: #foo arguments: #(bar baz)
"then use them like:"
anObject perform: msg selector with: msg arguments

Answer 3

在 Squeak 中，请参阅 ObjectTracer 类。 您可以使用它来拦截发送到对象的所有消息。

Answer 4

好吧，在不知道 aMessage 是什么的情况下，并且既然您提到所有委托对象都属于同一类，我会做类似的事情：

MyobjectClass>>SendMessage: aMessage

   self doSomethingUsefulOnThisInstanceIfApplicable: aMessage.
   self dependents do: [:ea | ea SendMessage: aMessage ] .

您可能还想看看使用以下任何消息是否适合您：（这些来自 Cincom VisualWORKS）

update: 
update:with:
update:with:from:

Answer 5

为什么不简单地使用多态性，即在您调用的每个对象的类中实现此方法？ 然后，您在对象方法中实现具有相同名称的方法，该方法仅将调用委托给所有子对象。 就像是：

MyObjectClass>>someMethod
subobjects do: [:each | each someMethod]