如何在 squeak 中动态更改方法的名称？

Question

我有一个类，我想在运行时更改特定方法的名称。 我猜“行为”类中有一个方法可以做到这一点。 但我就是找不到它。 有什么帮助吗？ [吱吱声]

Answer 1

用户执行此操作的正常方法是修改方法源并“接受它”，然后删除旧版本。 因此，基本的 Squeak 不太可能包含单一方法来执行此操作，尽管我可能是错的。

但是，如果您安装了 OmniBrowser，则有一个名为“rename”的重构方法，您可以检查并查找执行此重构的代码。 它相当复杂，首先因为重构是使用命令模式完成的，这涉及到一些重定向来解决，但其次因为这是一个相当复杂的重构，其中包括修改调用站点。

Answer 2

你的建议对我来说是一个巨大的危险信号。
你想用这个来实现什么目的？

您的意思是您想更改在运行时调用的方法的名称吗？
如果是这样，那很容易。

做类似的事情：

|methodName|
methodName :=  self useMethod1 ifTrue: [#method1 ] ifFalse:[ #method2 ].
self perform: methodName.

Answer 3

你最好使用重构

r := RenameMethodRefactoring 
    renameMethod: #foo:foo: 
    in: Foo
    to: #bar:bar:
    permutation: (1 to: #foo:foo: numArgs). 
r execute.

Answer 4

尽可能避免在实际代码中使用巫毒魔法。

话虽这么说，您可以通过动态操作方法来做一些非常有趣的事情。

例如，Etoys 中的代码块被转换为 Smalltalk 方法。 其他 DSL 实现也可以从类似的元编程技巧中受益。

经过一番尝试后，我想出了以下用于重命名一元方法的代码：

renameMethod: oldMethod inClass: class to: newMethod
| oldSelector newSelector source parser |

oldSelector := oldMethod asSymbol.
newSelector := newMethod asSymbol.
oldSelector = newSelector ifTrue: [^self].

"Get method category"
category := (LocatedMethod location: class selector: oldSelector) category.

"Get method source code"
source := class sourceCodeAt: oldSelector.

"Replace selector in method source" 
(parser := class parserClass new) parseSelector: source.
source := (newSelector asString), (source allButFirst: parser endOfLastToken).

"Compile modified source"
class compile: source classified: category.

"Remove old selector"
class removeSelector: oldSelector

如果您浏览 Squeak 代码的时间比我长一点，您可能会找到一种更简单的方法来执行此操作。

Answer 5

实际上，您无法更改方法的名称，因为它没有名称。

对象的方法字典将 Symbols 映射到 CompiledMethods。 “更改方法的名称”意味着“将 CompiledMethod 值从这个键移动到那个键”。