with Ada.Text_IO;

with XDG_Base_Dir;

procedure Example is
   use XDG_Base_Dir;
begin
   Ada.Text_IO.Put_Line ("Config:     " & XDG_Base_Dir.Config);
   Ada.Text_IO.Put_Line ("Cache:      " & XDG_Base_Dir.Cache);
   Ada.Text_IO.Put_Line ("Data:       " & XDG_Base_Dir.Data);
   Ada.Text_IO.Put_Line ("State:      " & XDG_Base_Dir.State);
   Ada.Text_IO.Put_Line ("Runtime:    " & XDG_Base_Dir.Runtime);
   Ada.Text_IO.Put_Line ("Executable: " & XDG_Base_Dir.Executable);

   Ada.Text_IO.Put_Line ("Data dirs:");
   for Path of XDG_Base_Dir.Data_Dirs loop
      Ada.Text_IO.Put_Line ("- " & (+Path));
   end loop;

   Ada.Text_IO.Put_Line ("Config dirs:");
   for Path of XDG_Base_Dir.Config_Dirs loop
      Ada.Text_IO.Put_Line ("- " & (+Path));
   end loop;
end Example;