st/List.st

   1
   2
   3 "Link"
   4
   5 Link method!
   6 value: anObject
   7         value := anObject!
   8
   9 Link method!
  10 value
  11         ^ value!
  12
  13 Link method!
  14 next: aLink
  15         next := aLink!
  16
  17 Link method!
  18 next
  19         ^ next!
  20
  21 "List"
  22
  23 List method!
  24 add: anObject
  25         | link |
  26
  27         link := Link new.
  28         link value: anObject.
  29
  30         first == nil
  31                 ifTrue: [first := link. last := link]
  32                 ifFalse: [last next: link. last := link].
  33
  34         size := size + 1.
  35         ^ anObject!
  36
  37
  38 List method!
  39 addFirst: anObject
  40         | link |
  41
  42         link := Link new.
  43         link value: anObject.
  44
  45         first == nil
  46                 ifTrue:
  47                         [ first := link.
  48                           last := link ]
  49                 ifFalse:
  50                         [ link next: first.
  51                           first := link ].
  52
  53         size := size + 1.
  54
  55         ^ anObject!
  56
  57
  58 List method!
  59 addLast: anObject
  60         ^ self add: anObject!
  61
  62 List method!
  63 do: aBlock
  64         | link |
  65         link := first.
  66         [ link ~~ nil ]
  67                 whileTrue: [aBlock value: link value.
  68                                 link := link next]!
  69
  70 List method!
  71 select: aBlock
  72         | aStream link |
  73         aStream := WriteStream on: (self species new: self size).
  74         link := first.
  75         [link ~~ nil ]
  76                 whileTrue: [(aBlock value: link value)
  77                                                 ifTrue: [aStream nextPut: (link value)].
  78                                         link := link next].
  79         ^ aStream contents!
  80
  81 List method!
  82 collect: aBlock
  83         | aStream link |
  84         aStream := WriteStream on: (self species new: self size).
  85         link := first.
  86         [link ~~ nil]
  87                 whileTrue: [aStream nextPut: (aBlock value: (link value)).
  88                                         link := link next].
  89         ^ aStream contents!
  90
  91
  92 List method!
  93 findLink: index
  94         | i link |
  95
  96         i := 1.
  97         link := first.
  98         [ (link ~= nil) & (i < index) ]
  99                 whileTrue: [ i := i + 1. link := link next].
 100
 101         self assert: [ link ~= nil ].
 102         ^ link!
 103
 104 List method!
 105 at: index
 106         | link |
 107
 108         self emptyCheck.
 109
 110         (index < 1) | (index > size)
 111                 ifTrue: [self error: 'out of bounds' ].
 112
 113         link := self findLink: index.
 114         ^ link value!
 115
 116 List method!
 117 at: index put: anObject
 118         | link |
 119
 120         self emptyCheck.
 121
 122         (index < 1) | (index > size)
 123                 ifTrue: [self error: 'out of bounds' ].
 124
 125         link := self findLink: index.
 126         link value: anObject.
 127         ^ anObject!
 128
 129 List method!
 130 size
 131         ^ size!
 132
 133 List method!
 134 initialize
 135         size := 0!
 136
 137 List method!
 138 species
 139         ^ Array!
 140
 141 List method!
 142 first
 143         self emptyCheck.
 144         ^ first value!
 145
 146 List method!
 147 last
 148         self emptyCheck.
 149         ^ last value!
 150
 151 List method!
 152 removeFirst
 153         | removed |
 154
 155         self emptyCheck.
 156
 157         removed := first value.
 158         first == last
 159                 ifTrue: [first := nil. last := nil]
 160                 ifFalse: [first := first next].
 161
 162         size := size - 1.
 163         ^ removed!
 164
 165 List method!
 166 removeLast
 167         | link removed |
 168
 169         self emptyCheck.
 170
 171         removed := last value.
 172         first == last
 173                 ifTrue: [first := nil. last := nil]
 174                 ifFalse: [link := first.
 175                                   [link next == last ]
 176                                           whileFalse: [ link := link next].
 177                                   link next: nil.
 178                                   last := link].
 179
 180         size := size - 1.
 181         ^ removed!
 182
 183 List method!
 184 remove: anObject ifAbsent: aBlock
 185         | link next |
 186
 187         link := first.
 188         link ifNil: [^ aBlock value].
 189
 190         link value = anObject
 191                 ifTrue:  [first == last
 192                                           ifTrue: [last := nil].
 193                                   first := first next]
 194                 ifFalse: [[link next ifNil: [^ aBlock value].
 195                                    link next value ~= anObject]
 196                                            whileTrue: [link := link next].
 197                                    link next: link next next].
 198
 199         size := size - 1.
 200         ^  anObject!
 201
 202
 203 List method!
 204 emptyCheck
 205         first == nil ifTrue: [ self error: 'list is empty' ]!