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
|
-- Dummy version that contains minimal output procedure (which do nothing).
package body Textio is
procedure New_Line is
procedure Internal;
pragma Import (C, Internal, "bug_putnl");
begin
Internal;
end New_Line;
procedure Put (Item : in Character) is
procedure Internal (C : Character);
pragma Import (C, Internal, "putchar");
begin
Internal (Item);
end Put;
procedure Put (Item : in String) is
procedure Internal (S : String;
Len : Natural);
pragma Import (C, Internal, "bug_putstring");
begin
Internal (Item, Item'Length);
end Put;
procedure Put_Line (Item : in String) is
begin
Put (Item);
New_Line;
end Put_Line;
end Textio;
|
