with EUP.UTMP;

package UTMP_Buffer is

   procedure Open (Name : in     String);

   procedure Close;

   function End_Of_File return Boolean;

   function Next return EUP.UTMP.Instance;

end UTMP_Buffer;