dummyserver_1.0.0_9a6e8708/src/black/black-text_io.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
with
  Ada.Streams,
  Ada.Strings.Unbounded;

private
package Black.Text_IO is
   procedure Put
     (Target : not null access Ada.Streams.Root_Stream_Type'Class;
      Item   : in     String);
   procedure Put
     (Target : not null access Ada.Streams.Root_Stream_Type'Class;
      Item   : in     Ada.Strings.Unbounded.Unbounded_String);
   procedure Put
     (Target : not null access Ada.Streams.Root_Stream_Type'Class;
      Item   : in     Boolean);
   procedure Put_Line
     (Target : not null access Ada.Streams.Root_Stream_Type'Class;
      Item   : in     String);
   procedure Put_Line
     (Target : not null access Ada.Streams.Root_Stream_Type'Class;
      Item   : in     Ada.Strings.Unbounded.Unbounded_String);
   procedure Put_Line
     (Target : not null access Ada.Streams.Root_Stream_Type'Class;
      Item   : in     Boolean);
   procedure Put_Line
     (Target : not null access Ada.Streams.Root_Stream_Type'Class;
      Item   : in     Integer);
   procedure Put_Line
     (Target : not null access Ada.Streams.Root_Stream_Type'Class;
      Item   : in     Duration);
   procedure New_Line
     (Target : not null access Ada.Streams.Root_Stream_Type'Class);

   function Get_Line
     (Stream : not null access Ada.Streams.Root_Stream_Type'Class)
     return String;
   function Get_Line
     (Stream : not null access Ada.Streams.Root_Stream_Type'Class)
     return Ada.Strings.Unbounded.Unbounded_String;
end Black.Text_IO;