The Trunk: Collections-ul.896.mcz

Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.896.mcz

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

Name: Collections-ul.896
Author: ul
Time: 26 May 2020, 5:06:35.966934 am
UUID: 1eb414fc-31f2-4890-8a0e-2cfe892ef798
Ancestors: Collections-nice.895

- prepare to introduce primitive 158 for string comparison

=============== Diff against Collections-nice.895 ===============

Item was changed:
  ----- Method: String>>< (in category 'comparing') -----
  < aString
  "Answer whether the receiver sorts before aString.
  The collation order is simple ascii (with case differences)."
 
+ ^(self compareWith: aString) < 0!
- ^ (self compare: self with: aString collated: AsciiOrder) = 1!

Item was changed:
  ----- Method: String>><= (in category 'comparing') -----
  <= aString
  "Answer whether the receiver sorts before or equal to aString.
  The collation order is simple ascii (with case differences)."
 
+ ^(self compareWith: aString) <= 0!
- ^ (self compare: self with: aString collated: AsciiOrder) <= 2!

Item was changed:
  ----- Method: String>>= (in category 'comparing') -----
  = aString
  "Answer whether the receiver sorts equally as aString.
  The collation order is simple ascii (with case differences)."
 
  self == aString ifTrue: [ ^true ].
  aString isString ifFalse: [ ^false ].
  self size = aString size ifFalse: [ ^false ].
+ ^ (self compareWith: aString) = 0!
- ^ (self compare: self with: aString collated: AsciiOrder) = 2!

Item was changed:
  ----- Method: String>>> (in category 'comparing') -----
  > aString
  "Answer whether the receiver sorts after aString.
  The collation order is simple ascii (with case differences)."
 
+ ^(self compareWith: aString) > 0!
- ^ (self compare: self with: aString collated: AsciiOrder) = 3!

Item was changed:
  ----- Method: String>>>= (in category 'comparing') -----
  >= aString
  "Answer whether the receiver sorts after or equal to aString.
  The collation order is simple ascii (with case differences)."
 
+ ^(self compareWith: aString) >= 0!
- ^ (self compare: self with: aString collated: AsciiOrder) >= 2!

Item was changed:
  ----- Method: String>>compare:caseSensitive: (in category 'comparing') -----
  compare: aString caseSensitive: aBool
  "Answer a comparison code telling how the receiver sorts relative to aString:
  1 - before
  2 - equal
  3 - after.
  "
  | map |
  map := aBool ifTrue:[CaseSensitiveOrder] ifFalse:[CaseInsensitiveOrder].
+ ^(self compareWith: aString collated: map) + 2!
- ^self compare: self with: aString collated: map!

Item was added:
+ ----- Method: String>>compareWith: (in category 'comparing') -----
+ compareWith: aString
+
+ "<primitive: 158>"
+ ^(self compare: self with: aString collated: AsciiOrder) - 2!

Item was added:
+ ----- Method: String>>compareWith:collated: (in category 'comparing') -----
+ compareWith: aString collated: collation
+
+ "<primitive: 158>"
+ ^(self compare: self with: aString collated: collation) - 2!