with Ada.Text_IO;

package Module.Text_File is

   type Object is new Module.Object with private;

   procedure Start_Doc (Self : Object);
   procedure End_Doc (Self : Object);

   procedure Characters (Self : Object; Ch : String);

   procedure Element (Self : Object; Name : String);

private

   File : Ada.Text_IO.File_Type;

   type Object is new Module.Object with null record;

end Module.Text_File;