class Protocol::HTTP::Reference

def self.[] reference
	if reference.is_a? self
		return reference
	else
		return self.parse(reference)
	end
end

def self.parse(path = '/', parameters = nil)
	base, fragment = path.split('#', 2)
	path, query_string = base.split('?', 2)
	
	self.new(path, query_string, fragment, parameters)
end

def + other
	other = self.class[other]
	
	self.class.new(
		expand_path(self.path, other.path, true),
		other.query_string,
		other.fragment,
		other.parameters,
	)
end

def <=> other
	to_ary <=> other.to_ary
end

def append(buffer)
	if query_string?
		buffer << URL.escape_path(@path) << '?' << @query_string
		buffer << '&' << URL.encode(@parameters) if parameters?
	else
		buffer << URL.escape_path(@path)
		buffer << '?' << URL.encode(@parameters) if parameters?
	end
	
	if fragment?
		buffer << '#' << URL.escape(@fragment)
	end
	
	return buffer
end

def base
	self.class.new(@path, nil, nil, nil)
end

def dup(path = nil, parameters = nil, merge_parameters = true)
	if merge_parameters
		with(path: path, parameters: parameters)
	else
		self.base.with(path: path, parameters: parameters)
	end
end

def expand_path(base, relative, pop = true)
	if relative.start_with? '/'
		return relative
	else
		path = split(base)
		
		# RFC2396 Section 5.2:
		# 6) a) All but the last segment of the base URI's path component is
		# copied to the buffer.  In other words, any characters after the
		# last (right-most) slash character, if any, are excluded.
		path.pop if pop or path.last == ''
		
		parts = split(relative)
		
		parts.each do |part|
			if part == '..'
				path.pop
			elsif part == '.'
				# Do nothing.
			else
				path << part
			end
		end
		
		return path.join('/')
	end
end

def fragment?
	@fragment and !@fragment.empty?
end

def freeze
	return self if frozen?
	
	@path.freeze
	@query_string.freeze
	@fragment.freeze
	@parameters.freeze
	
	super
end

def initialize(path = '/', query_string = nil, fragment = nil, parameters = nil)
	@path = path
	@query_string = query_string
	@fragment = fragment
	@parameters = parameters
end

def parameters?
	@parameters and !@parameters.empty?
end

def query_string?
	@query_string and !@query_string.empty?
end

def split(path)
	if path.empty?
		[path]
	else
		path.split('/', -1)
	end
end

def to_ary
	[@path, @query_string, @fragment, @parameters]
end

def to_s
	append(String.new)
end

def with(path: nil, parameters: nil, fragment: @fragment)
	if @parameters
		if parameters
			parameters = @parameters.merge(parameters)
		else
			parameters = @parameters
		end
	end
	
	if path
		path = expand_path(@path, path, false)
	else
		path = @path
	end
	
	self.class.new(path, @query_string, fragment, parameters)
end