WAUrl

• addParameter:
• addParameter:value:
• addToPath:
• fragment
• fragment:
• hostname
• hostname:
• parameters
• path
• port
• port:
• scheme
• scheme:

• copy
• with:
• withParameter:
• withParameter:value:

• initialize

• asString
• fragmentString
• pathString
• serverString
• urlString
• urlWithQueryString

• defaultPortForScheme:

• new

inferredType:

UndefinedObject

inferredType:

UndefinedObject

InitialValue:

a Dictionary()

inferredType:

Dictionary

InitialValue:

an OrderedCollection()

inferredType:

OrderedCollection

inferredType:

UndefinedObject

InitialValue:

#http

inferredType:

Symbol

	self addParameter: aString value: nil

	params at: keyString put: valueString

	path addAll: (aString findTokens: '/')

	^ fragment

	fragment _ aString

	^ host

	host _ aString

	^ params

	^ path

	^ port ifNil: [self defaultPortForScheme: scheme]

	port _ aNumber

	^ scheme

	scheme _ aSymbol

	| copy |
	copy _ self class new.
	copy hostname: host; port: port; scheme: scheme; fragment: fragment.
	copy addToPath: self pathString.
	params keysAndValuesDo: [:k :v | copy addParameter: k value: v].
	^ copy

	^ self copy
		addToPath: pathString;
		yourself

	^ self copy
		addParameter: aString;
		yourself

	^ self copy
		addParameter: aString value: valueString;
		yourself

	path _ OrderedCollection new.
	params _ Dictionary new.
	scheme _ #http

	^ self urlWithQueryString

	^ fragment ifNil: [''] ifNotNil: ['#', fragment]

	^ String streamContents: [:s | path do: [:ea | s nextPut: $/; nextPutAll: ea]]

	host ifNil: [^ ''].
	
	^ String streamContents:
		[:stream |
		stream nextPutAll: scheme.
		stream nextPutAll: '://'.
		stream nextPutAll: host.
		
		((self defaultPortForScheme: scheme) = port)
			ifFalse: [stream nextPutAll: ':', port asString]]

	^ self serverString, self pathString, self fragmentString

	^ String streamContents:
		[:s |
		s nextPutAll: self serverString.
		s nextPutAll: self pathString.
		params isEmpty ifFalse:
			[s nextPut: $?.
			params keysAndValuesDo: 
				[:k :v |
				s nextPutAll: k encodeForHTTP.
				v ifNotNil: [s nextPut: $=; nextPutAll: v encodeForHTTP].
				s nextPut: $&].
			s skip: -1].
		s nextPutAll: self fragmentString]

	^ aSymbol = #http
		ifTrue: [80]
		ifFalse: [aSymbol = #https
					ifTrue: [443]]

	^ self basicNew initialize