removed the containing subdir
This commit is contained in:
91
kernel/Boolean.moo
Normal file
91
kernel/Boolean.moo
Normal file
@ -0,0 +1,91 @@
|
||||
class Boolean(Object)
|
||||
{
|
||||
/* TODO: do i need to really define methods defined in True and False here?
|
||||
and call subclassResponsibiltiy?" */
|
||||
}
|
||||
|
||||
class(#final, #limited) True(Boolean)
|
||||
{
|
||||
method not
|
||||
{
|
||||
^false
|
||||
}
|
||||
|
||||
method & aBoolean
|
||||
{
|
||||
^aBoolean
|
||||
}
|
||||
|
||||
method | aBoolean
|
||||
{
|
||||
^true
|
||||
}
|
||||
|
||||
method and: aBlock
|
||||
{
|
||||
^aBlock value
|
||||
}
|
||||
|
||||
method or: aBlock
|
||||
{
|
||||
^true
|
||||
}
|
||||
|
||||
method ifTrue: trueBlock ifFalse: falseBlock
|
||||
{
|
||||
^trueBlock value.
|
||||
}
|
||||
|
||||
method ifTrue: trueBlock
|
||||
{
|
||||
^trueBlock value.
|
||||
}
|
||||
|
||||
method ifFalse: falseBlock
|
||||
{
|
||||
^nil.
|
||||
}
|
||||
}
|
||||
|
||||
class(#final, #limited) False(Boolean)
|
||||
{
|
||||
method not
|
||||
{
|
||||
^true
|
||||
}
|
||||
|
||||
method & aBoolean
|
||||
{
|
||||
^false
|
||||
}
|
||||
|
||||
method | aBoolean
|
||||
{
|
||||
^aBoolean
|
||||
}
|
||||
|
||||
method and: aBlock
|
||||
{
|
||||
^false
|
||||
}
|
||||
|
||||
method or: aBlock
|
||||
{
|
||||
^aBlock value
|
||||
}
|
||||
|
||||
method ifTrue: trueBlock ifFalse: falseBlock
|
||||
{
|
||||
^falseBlock value.
|
||||
}
|
||||
|
||||
method ifTrue: trueBlock
|
||||
{
|
||||
^nil.
|
||||
}
|
||||
|
||||
method ifFalse: falseBlock
|
||||
{
|
||||
^falseBlock value.
|
||||
}
|
||||
}
|
Reference in New Issue
Block a user