vtools_vpatch_new... 1 with Ada.Sequential_IO;
vtools_vpatch_new... 2 package Character_IO is
vtools_vpatch_new... 3 package Character_IO is
vtools_vpatch_new... 4 new Ada.Sequential_IO(Element_Type => Character);
vtools_vpatch_new... 5
vtools_vpatch_new... 6 procedure Open (File : in out Character_IO.File_Type;
vtools_vpatch_new... 7 Mode : in Character_IO.File_Mode;
vtools_vpatch_new... 8 Name : in String;
vtools_vpatch_new... 9 Form : in String := "") renames Character_IO.Open;
vtools_vpatch_new... 10 procedure Create(File : in out Character_IO.File_Type;
vtools_vpatch_new... 11 Mode : in Character_IO.File_Mode := Character_IO.Out_File;
vtools_vpatch_new... 12 Name : in String := "";
vtools_vpatch_new... 13 Form : in String := "") renames Character_IO.Create;
vtools_vpatch_new... 14 function End_Of_File(File : in Character_IO.File_Type) return Boolean
vtools_vpatch_new... 15 renames Character_IO.End_Of_File;
vtools_vpatch_new... 16 function Name (File : in Character_IO.File_Type) return String
vtools_vpatch_new... 17 renames Character_IO.Name;
vtools_vpatch_new... 18 function Is_Open(File : in Character_IO.File_Type) return Boolean
vtools_vpatch_new... 19 renames Character_IO.Is_Open;
vtools_vpatch_new... 20 procedure Close (File : in out Character_IO.File_Type) renames Character_IO.Close;
vtools_vpatch_new... 21
vtools_vpatch_new... 22 function Get_Line(File : in Character_IO.File_Type) return String;
vtools_vpatch_new... 23 function Get_Line(File : in Character_IO.File_Type;
vtools_vpatch_new... 24 New_Line : out Boolean) return String;
vtools_vpatch_new... 25 procedure Put_Line(File : in Character_IO.File_Type;
vtools_vpatch_new... 26 Item : in String;
vtools_vpatch_new... 27 New_Line : Boolean := True );
vtools_vpatch_new... 28 end Character_IO;