~nytpu/uri-mime-ada

872cfd9cc881603d971ce44224c80d4d76e3e997 — nytpu 2 years ago 0df82e2
URI: Add default initializers for URLs to make aggregate initialization easier
1 files changed, 7 insertions(+), 7 deletions(-)

M src/uri.ads
M src/uri.ads => src/uri.ads +7 -7
@@ 25,22 25,22 @@ package URI is
	-- According to RFC 3986 the path MUST be present, however it may be the
	-- empty string.
	type URL is record
		Scheme_Present : Boolean;
		Scheme_Present : Boolean := False;
		Scheme : Unbounded_String;

		Authority_Present : Boolean;
		User_Info_Present : Boolean;
		Authority_Present : Boolean := False;
		User_Info_Present : Boolean := False;
		User_Info : Unbounded_String;
		Host : Unbounded_String;
		Port_Present : Boolean;
		Port : Port_Number;
		Port_Present : Boolean := False;
		Port : Port_Number := 0;

		Path : Unbounded_String;

		Query_Present : Boolean;
		Query_Present : Boolean := False;
		Query : Unbounded_String;

		Fragment_Present : Boolean;
		Fragment_Present : Boolean := False;
		Fragment : Unbounded_String;
	end record;