with Ada.Command_Line;
with Ada.Text_IO;

with Inotify.Recursive;

procedure Example is
   Instance : Inotify.Recursive.Recursive_Instance;

   procedure Handle_Event
     (Subject      : Inotify.Watch;
      Event        : Inotify.Event_Kind;
      Is_Directory : Boolean;
      Name         : String)
   is
      Kind : constant String := (if Is_Directory then "directory" else "file");
   begin
      Ada.Text_IO.Put_Line (Event'Image & " " & Instance.Name (Subject));
      Ada.Text_IO.Put_Line ("  [" & Kind & "] '" & Name & "'");
   end Handle_Event;
begin
   Instance.Add_Watch
     (Path => Ada.Command_Line.Argument (1),
      Mask => (Modified | Closed_Write | Closed_No_Write => True, others => False));

   while Instance.Has_Watches loop
      Instance.Process_Events (Handle_Event'Access);
   end loop;
end Example;