(13 . 8)(13 . 12)
22 ------------------------------------------------------------------------------
23
24 -- Version for use with C run time
25 with System.Syscall; use System.Syscall;
26
27 package body Ada.Text_IO is
28 -- STDIN : constant := 0;
29 STDOUT : constant := 1;
30 -- STDERR : constant := 2;
31
32 --------------
33 -- New_Line --
(30 . 20)(34 . 16)
35 ---------
36
37 procedure Put (Item : Character) is
38 function Putchar (C : Integer) return Integer;
39 pragma Import (C, Putchar);
40
41 Ignore : Integer;
42
43 begin
44 Ignore := Putchar (Character'Pos (Item));
45 Put ("" & Item);
46 end Put;
47
48 procedure Put (Item : String) is
49 Ignore : Int;
50 E : ErrorCode;
51 begin
52 for J in Item'Range loop
53 Put (Item (J));
54 end loop;
55 Ignore := Write (STDOUT, Item, E);
56 pragma Unused (E);
57 end Put;
58
59 --------------