- E493B72DC9F010949AEAFC3C54C7A420FA7C26289A0E276AE819CF04111040A11603232F51E79CFD5FD389F7D0BE17DC528718C2014D8152B69F234D1EC7C9A4+
zfp/adainclude/a-textio.adb(1 . 59)(0 . 0)
34 ------------------------------------------------------------------------------
35 ------------------------------------------------------------------------------
36 -- You do not have, nor can you ever acquire the right to use, copy or --
37 -- distribute this software ; Should you use this software for any purpose, --
38 -- or copy and distribute it to anyone or in any manner, you are breaking --
39 -- the laws of whatever soi-disant jurisdiction, and you promise to --
40 -- continue doing so for the indefinite future. In any case, please --
41 -- always : read and understand any software ; verify any PGP signatures --
42 -- that you use - for any purpose. --
43 -- --
44 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm . --
45 ------------------------------------------------------------------------------
46 ------------------------------------------------------------------------------
47
48 -- Version for use with C run time
49 with System.Syscall; use System.Syscall;
50
51 package body Ada.Text_IO is
52 -- STDIN : constant := 0;
53 STDOUT : constant := 1;
54 -- STDERR : constant := 2;
55
56 --------------
57 -- New_Line --
58 --------------
59
60 procedure New_Line is
61 begin
62 Put (ASCII.LF);
63 end New_Line;
64
65 ---------
66 -- Put --
67 ---------
68
69 procedure Put (Item : Character) is
70 begin
71 Put ("" & Item);
72 end Put;
73
74 procedure Put (Item : String) is
75 Ignore : Int;
76 E : ErrorCode;
77 begin
78 Ignore := Write (STDOUT, Item, E);
79 pragma Unused (E);
80 end Put;
81
82 --------------
83 -- Put_Line --
84 --------------
85
86 procedure Put_Line (Item : String) is
87 begin
88 Put (Item);
89 New_Line;
90 end Put_Line;
91
92 end Ada.Text_IO;