hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added respondsTo: and perform:with:

Browse Source 
fixed a bug in Dictionary>>__remove_at:
added gc callback to external modules
This commit is contained in:
hyunghwan.chung
2017-03-19 14:18:37 +00:00
parent 6a2add620b
commit 46ba3bb3f5
12 changed files with 550 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
moo/kernel/Apex.moo
View File

@ -312,17 +312,86 @@ class Apex(nil)
^(self isMemberOf: aClass) or: [self class inheritsFrom: aClass].
}
(* -----------------
method(#class) respondsTo: selectorSymbol
## -------------------------------------------------------
## -------------------------------------------------------
method(#class) respondsTo: selector
{
TODO: find selectorSymbol in the class method dictionary...
<primitive: #_responds_to>
self primitiveFailed
}
method respondsTo: selectorSymbol
method respondsTo: selector
{
TODO: find selectorSymbol in the method dictionary...
<primitive: #_responds_to>
self primitiveFailed
}
------------ *)
## -------------------------------------------------------
## -------------------------------------------------------
method(#class) perform()
{
<primitive: #_perform>
self primitiveFailed
}
method perform()
{
<primitive: #_perform>
self primitiveFailed
}
method(#class) perform: selector
{
<primitive: #_perform>
self primitiveFailed
}
method perform: selector
{
<primitive: #_perform>
self primitiveFailed
}
method(#class) perform: selector with: arg1
{
<primitive: #_perform>
self primitiveFailed
}
method perform: selector with: arg1
{
<primitive: #_perform>
self primitiveFailed
}
method(#class) perform: selector with: arg1 with: arg2
{
<primitive: #_perform>
self primitiveFailed
}
method perform: selector with: arg1 with: arg2
{
<primitive: #_perform>
self primitiveFailed
}
method(#class) perform: selector with: arg1 with: arg2 with: arg3
{
<primitive: #_perform>
self primitiveFailed
}
method perform: selector with: arg1 with: arg2 with: arg3
{
<primitive: #_perform>
self primitiveFailed
}
## -------------------------------------------------------
## -------------------------------------------------------
method exceptionizeError: trueOrFalse
{

64
moo/kernel/Collect.moo
View File

@ -321,40 +321,33 @@ class Set(Collection)
method __remove_at: index
{
| bs x y i v |
| bs x y i v ass z |
bs := self.bucket size.
v := self.bucket basicAt: index.
v := self.bucket at: index.
x := index.
y := index.
i := 0.
[i < self.tally] whileTrue: [
| ass z |
while (i < self.tally)
{
y := (y + 1) rem: bs.
ass := self.bucket at: i.
if (ass isNil)
{
(* done. the slot at the current index is nil *)
i := self.tally
}
else
{
(* get the natural hash index *)
z := (ass key hash) rem: bs.
ass := self.bucket at: y.
if (ass isNil) { (* done. the slot at the current index is nil *) break }.
(* get the natural hash index *)
z := (ass key hash) rem: bs.
(* move an element if necessary *)
if ((y > x and: [(z <= x) or: [z > y]]) or: [(y < x) and: [(z <= x) and: [z > y]]])
{
self.bucket at: x put: (self.bucket at: y).
x := y.
}.
i := i + 1
(* move an element if necessary *)
if ((y > x and: [(z <= x) or: [z > y]]) or: [(y < x) and: [(z <= x) and: [z > y]]])
{
self.bucket at: x put: (self.bucket at: y).
x := y.
}.
].
i := i + 1.
}.
self.bucket at: x put: nil.
self.tally := self.tally - 1.
@ -744,14 +737,15 @@ class LinkedList(Collection)
else { self.first := link next }.
self.tally := self.tally - 1.
^link.
}
method removeFirst
method removeFirstLink
{
^self removeLink: self.first
}
method removeLast
method removeLastLink
{
^self removeLink: self.last
}
@ -767,4 +761,22 @@ class LinkedList(Collection)
link := next.
}
}
method doOverLink: block
{
| link next |
link := self.first.
while (link notNil)
{
next := link next.
block value: link.
link := next.
}
}
method findLink: value
{
self doOverLink: [:el | if (el value = value) { ^el }].
^Error.Code.ENOENT
}
}