3

好的，所以我正在 Smalltalk 中完成一项学校作业，基本上它的要点是我正在编写 3 个“手动”设置和覆盖方法的类。MyObject 类封装在另一个类 ManualTracer 中，该类继承自 ObjectTracer。

MyObject 包含一个类变量manualSet，它是一组符号，用于指定手动分配给它的方法，即覆盖继承。它使用类方法 manualSet: 声明的这个集合：接受一组符号。我的问题是我需要这个 manualSet 根据以下标准过滤掉它收到的集合：

  1. 不在继承链中（作为非手动方法，直到并包括 MyObject）。
  2. 实际上不是手动方法。（通过方法isManual检查）
  3. 一个实际的手动方法，但父类（包括祖先）已经拥有该方法（通过专门继承它，或者通过覆盖它）。

通过在源代码中包含注释“@Manual”来检查手动方法。到目前为止，我的代码如下所示：

manualSet: aSet
| validatedSet |
( aSet == nil ) ifTrue: [ manualSet:= nil ] 
ifFalse: [ 
    (aSet isMemberOf: Set) ifFalse:[^nil]. 
    validatedSet:= aSet select:[ :each| (each isMemberOf:Symbol)
                                    and:(self respondsTo:each)
                                    and:(self isManual:each in: self) 
                                    and:((self isManual:each in:super)not)].
    manualSet:= validatedSet.
]

所以“超级”显然不够好，我需要通过所有的祖先，而不仅仅是父母。我还需要查看所有祖先的评论并确定它们是否包含“@Manual”。任何帮助将不胜感激，谢谢！

4

1 回答 1

5

您可以使用allSuperclasses方法获取所有祖先。例如：

Integer allSuperclasses

将返回

an OrderedCollection(Number Magnitude Object ProtoObject)

然后你可以使用allSatisfy: aBlock看看他们是否没有这个方法。

我认为您的代码将如下所示：

manualSet: aSet
| validatedSet |
( aSet == nil ) ifTrue: [ manualSet:= nil ] 
ifFalse: [ 
    (aSet isMemberOf: Set) ifFalse:[^nil]. 
    validatedSet:= aSet select:[ :each|
        (each isMemberOf:Symbol)
        and:(self respondsTo:each)
        and:(self isManual:each in: self) 
        and:(self allSuperclasses allSatisfy: [:class |
            (self isManual:each in:class) not])].
    manualSet:= validatedSet.
]
于 2013-05-08T21:31:10.693 回答