[squeak-dev] The Trunk: Network-mt.257.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Apr 21 12:01:03 UTC 2022
Marcel Taeumel uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-mt.257.mcz
==================== Summary ====================
Name: Network-mt.257
Author: mt
Time: 21 April 2022, 2:01:02.156671 pm
UUID: 2f9afb01-b9a4-ef43-b0b6-e726ea38cc3f
Ancestors: Network-tpr.256
Adds comparison protocol to Url and subclasses.
=============== Diff against Network-tpr.256 ===============
Item was added:
+ ----- Method: FileUrl>>= (in category 'comparing') -----
+ = anObject
+
+ self == anObject ifTrue: [^ true].
+
+ self class == anObject class ifFalse: [^ false].
+ self fragment = anObject fragment ifFalse: [ ^ false ].
+
+ self host = anObject host ifFalse: [ ^ false ].
+ self path = anObject path ifFalse: [ ^ false ].
+
+ ^ true!
Item was added:
+ ----- Method: FileUrl>>hash (in category 'comparing') -----
+ hash
+
+ ^ (fragment hash bitXor: host hash) bitXor: path hash!
Item was added:
+ ----- Method: GenericUrl>>= (in category 'comparing') -----
+ = anObject
+
+ self == anObject ifTrue: [^ true].
+
+ self class == anObject class ifFalse: [^ false].
+ self fragment = anObject fragment ifFalse: [ ^ false ].
+
+ self schemeName = anObject schemeName ifFalse: [ ^ false ].
+ self locator = anObject locator ifFalse: [ ^ false ].
+
+ ^ true!
Item was added:
+ ----- Method: GenericUrl>>hash (in category 'comparing') -----
+ hash
+
+ ^ (fragment hash bitXor: schemeName hash) bitXor: locator hash!
Item was added:
+ ----- Method: HierarchicalUrl>>= (in category 'comparing') -----
+ = anObject
+
+ self == anObject ifTrue: [^ true].
+
+ self class == anObject class ifFalse: [^ false].
+ self fragment = anObject fragment ifFalse: [ ^ false ].
+
+ self schemeName = anObject schemeName ifFalse: [ ^ false ].
+ self authority = anObject authority ifFalse: [ ^ false ].
+ self path = anObject path ifFalse: [ ^ false ].
+ self query = anObject query ifFalse: [ ^ false ].
+ self port = anObject port ifFalse: [ ^ false ].
+ self username = anObject username ifFalse: [ ^ false ].
+ self password = anObject password ifFalse: [ ^ false ].
+
+ ^ true!
Item was added:
+ ----- Method: HierarchicalUrl>>hash (in category 'comparing') -----
+ hash
+
+ ^ (((((((fragment hash
+ bitXor: schemeName hash)
+ bitXor: authority hash)
+ bitXor: path hash)
+ bitXor: query hash)
+ bitXor: port hash)
+ bitXor: username hash)
+ bitXor: password hash)!
Item was added:
+ ----- Method: HttpUrl>>= (in category 'comparing') -----
+ = anObject
+
+ self == anObject ifTrue: [^ true].
+ super = anObject ifFalse: [^ false].
+
+ self realm = anObject realm ifFalse: [^ false].
+
+ ^ true!
Item was added:
+ ----- Method: HttpUrl>>hash (in category 'comparing') -----
+ hash
+
+ ^ super hash bitXor: realm hash!
Item was added:
+ ----- Method: Url>>= (in category 'comparing') -----
+ = anObject
+
+ self == anObject ifTrue: [^ true].
+
+ self class == anObject class ifFalse: [^ false].
+ self fragment = anObject fragment ifFalse: [ ^ false ].
+
+ ^ true!
Item was added:
+ ----- Method: Url>>hash (in category 'comparing') -----
+ hash
+
+ ^ fragment hash!
More information about the Squeak-dev
mailing list
|