GNAT.Directory_Operations Example

-- GNAT.Directory_Operations Example
--
-- GNAT.Directory_Operations provides routines for manipulating Directories

with GNAT.IO; use GNAT.IO;
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.IO_Aux; use GNAT.IO_Aux;

procedure test_dir is
   Test_Dir           : Dir_Type;
   Test_String        : String(1..255);
   Test_String_Length : Natural;
begin
   Put("Display directory :");

   declare
      Test_Name : String := Get_Line;
   begin
      -- If you want to change to the dir
      -- Change_Dir(Test_Name);

      Put_Line("Open directory : " & Test_Name);
      Open(Test_Dir, Test_Name);
   end;

   loop
      Read(Test_Dir, Test_String, Test_String_Length);
      exit when Test_String_Length = 0;
      Put_Line(Test_String(1 .. Test_String_Length));
   end loop;

end test_dir;