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!