-
+ C15CFAF009815F3E27872B206ACF503C3DE085FB2F107540F7C7EC2111A3DA9529D7FA1E1BDEACA3E5C03B4DEC769188044951C21A42D293E352DD0A5A8977F4
vtools/src/character_io.ads
(0 . 0)(1 . 28)
 98 with Ada.Sequential_IO;
 99 package Character_IO is
100    package Character_IO is
101       new Ada.Sequential_IO(Element_Type => Character);
102 
103    procedure Open  (File : in out Character_IO.File_Type;
104                     Mode : in Character_IO.File_Mode;
105                     Name : in String;
106                     Form : in String := "") renames Character_IO.Open;
107    procedure Create(File : in out Character_IO.File_Type;
108                     Mode : in Character_IO.File_Mode := Character_IO.Out_File;
109                     Name : in String := "";
110                     Form : in String := "") renames Character_IO.Create;
111    function End_Of_File(File : in Character_IO.File_Type) return Boolean
112      renames Character_IO.End_Of_File;
113    function Name   (File : in Character_IO.File_Type) return String
114      renames Character_IO.Name;
115    function Is_Open(File : in Character_IO.File_Type) return Boolean
116      renames Character_IO.Is_Open;
117    procedure Close (File : in out Character_IO.File_Type) renames Character_IO.Close;
118 
119    function Get_Line(File : in Character_IO.File_Type) return String;
120    function Get_Line(File : in Character_IO.File_Type;
121                      New_Line : out Boolean) return String;
122    procedure Put_Line(File : in Character_IO.File_Type;
123                       Item : in String;
124                       New_Line : Boolean := True );
125 end Character_IO;