The Trunk: Collections-ar.378.mcz

Andreas Raab uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ar.378.mcz

==================== Summary ====================

Name: Collections-ar.378
Author: ar
Time: 6 September 2010, 3:32:09.703 pm
UUID: a33f37e6-04a1-dd47-b75f-d8e52d36d7e6
Ancestors: Collections-ar.377

Move #lastIndexOfPKSignature: from Collections to Compression.

=============== Diff against Collections-ar.377 ===============

Item was removed:
- ----- Method: String>>lastIndexOfPKSignature: (in category 'accessing') -----
- lastIndexOfPKSignature: aSignature
- "Answer the last index in me where aSignature (4 bytes long) occurs, or 0 if not found"
- | a b c d |
- a := aSignature first.
- b := aSignature second.
- c := aSignature third.
- d := aSignature fourth.
- (self size - 3) to: 1 by: -1 do: [ :i |
- (((self at: i) = a)
- and: [ ((self at: i + 1) = b)
- and: [ ((self at: i + 2) = c)
- and: [ ((self at: i + 3) = d) ]]])
- ifTrue: [ ^i ]
- ].
- ^0!

Item was removed:
- ----- Method: ByteArray>>lastIndexOfPKSignature: (in category 'zip archive') -----
- lastIndexOfPKSignature: aSignature
- "Answer the last index in me where aSignature (4 bytes long) occurs, or 0 if not found"
- | a b c d |
- a := aSignature first.
- b := aSignature second.
- c := aSignature third.
- d := aSignature fourth.
- (self size - 3) to: 1 by: -1 do: [ :i |
- (((self at: i) = a)
- and: [ ((self at: i + 1) = b)
- and: [ ((self at: i + 2) = c)
- and: [ ((self at: i + 3) = d) ]]])
- ifTrue: [ ^i ]
- ].
- ^0!