覆盖<在Pharo

时间:2015-12-12 13:22:06

标签: override smalltalk pharo

我试图覆盖'<' pharo中的operator,因为我想要一个我实现的类(TimeCal)的SortedCollection。

TimeCal具有以下变量:年月日小时分钟。

我的想法是将所有变量转换为分钟,然后将这些变量与<接线员。但是,我确实收到了错误

“BlockClosure(Object)>> doesNotUnderstand:#>”

这是我的代码:

< comparand
| thisInMins comparandInMins |
thisInMins := [(year * 525600) + (month * 43829) + (day * 1440) + (hour * 60) + minute].
comparandInMins := [(comparand year * 525600) + (comparand month * 43829) + (comparand day * 1440) + (comparand hour * 60) + comparand minute].

(thisInMins > comparandInMins)
ifTrue: [true] ifFalse: [false]

我用来测试它的代码:

time1 := TimeCal new. 
time1 hour: 12.
time1 day: 12.
time1 month: 11.
time2 := TimeCal new. 
time2 hour: 12.
time2 day: 12.
time2 month: 8.
testing := time1 < time2.

我不确定我所做的事情是否正确。我找不到任何关于如何做的正确指南。

2 个答案:

答案 0 :(得分:5)

这个怎么样?

bool value = ((bool)((Literal)expr.left).value == (bool)((Literal)expr.right).value);

答案 1 :(得分:3)

如果您已正确初始化变量,这应该有效:

< comparand
| thisInMins comparandInMins |
thisInMins := (year * 525600) + (month * 43829) + (day * 1440) + (hour * 60) + minute.
comparandInMins := (comparand year * 525600) + (comparand month * 43829) + (comparand day * 1440) + (comparand hour * 60) + comparand minute.

^ thisInMins < comparandInMins

为什么你在分钟计算周围加上方括号?

另请看这个:ifTrue: [true] ifFalse: [false]。如果某事是真的则返回true而如果某些事情是假则返回false似乎是不必要的步骤。您可以直接返回分钟比较的结果。