Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
private
private
privateAllAt: aKey startingAt: index
^ Array new: 2 streamContents: [ :stream |
index to: size * 2 - 1 by: 2 do: [ :i |
(table at: i) = aKey
ifTrue: [ stream nextPut: (table at: i + 1) ] ] ]
ifTrue: [ stream nextPut: (table at: i + 1) ] ] ]
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
private
private
errorNotFound
self error: 'Not found'
self error: 'Not found'
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
private
private
findIndexFor: aKey
1 to: size do: [ :index |
(table at: index) = aKey
ifTrue: [ ^ index ] ].
^ 0
^ 0
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
private
private
grow
| newTable |
"#replaceFrom:to:with:startingAt: would be better but not portable"
newTable := Array new: 2 * size.
1 to: size do: [ :index |
newTable at: index put: (table at: index) ].
table := newTable
table := newTable
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
private
private
privateAdd: newObject
size = table size ifTrue: [ self grow ].
table at: (size := size + 1) put: newObject
table at: (size := size + 1) put: newObject
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
private
private
removeIndex: index
table at: index put: nil.
index to: size - 1 do: [ :i |
table at: i put: (table at: i + 1) ].
size := size - 1
size := size - 1