with Ada.Containers; use Ada.Containers;
with Ada.Containers.Indefinite_Hashed_Maps;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
package Configuration is
type Resource is record
Name : Unbounded_String;
Content : Unbounded_String;
Content_Type : Unbounded_String;
end record;
type Resource_Access_Type is access Resource;
function String_Hash (X : Unbounded_String) return Hash_Type;
package Resource_List_Type is new Ada.Containers.Indefinite_Hashed_Maps (
Element_Type => Resource_Access_Type,
Key_Type => Unbounded_String,
Hash => String_Hash,
equivalent_keys => "="
);
function Read_Configuration (File_Path : String)
return Resource_List_Type.Map;
private
end Configuration;