-
+ 64ADE4F4343CEAD30B2019D7BBCFFC66B461DE9ABDEF5AA744F674B2DA2C433D54A5678C11EF2D48522727C57AC407119109972B0C6AFBF915A748B2B9D9E23Czfp/adainclude/a-textio.adb(0 . 0)(1 . 59)
94 ------------------------------------------------------------------------------
95 ------------------------------------------------------------------------------
96 -- You do not have, nor can you ever acquire the right to use, copy or --
97 -- distribute this software ; Should you use this software for any purpose, --
98 -- or copy and distribute it to anyone or in any manner, you are breaking --
99 -- the laws of whatever soi-disant jurisdiction, and you promise to --
100 -- continue doing so for the indefinite future. In any case, please --
101 -- always : read and understand any software ; verify any PGP signatures --
102 -- that you use - for any purpose. --
103 -- --
104 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm . --
105 ------------------------------------------------------------------------------
106 ------------------------------------------------------------------------------
107
108 -- Version for use with C run time
109
110 package body Ada.Text_IO is
111
112 --------------
113 -- New_Line --
114 --------------
115
116 procedure New_Line is
117 begin
118 Put (ASCII.LF);
119 end New_Line;
120
121 ---------
122 -- Put --
123 ---------
124
125 procedure Put (Item : Character) is
126 function Putchar (C : Integer) return Integer;
127 pragma Import (C, Putchar);
128
129 Ignore : Integer;
130
131 begin
132 Ignore := Putchar (Character'Pos (Item));
133 end Put;
134
135 procedure Put (Item : String) is
136 begin
137 for J in Item'Range loop
138 Put (Item (J));
139 end loop;
140 end Put;
141
142 --------------
143 -- Put_Line --
144 --------------
145
146 procedure Put_Line (Item : String) is
147 begin
148 Put (Item);
149 New_Line;
150 end Put_Line;
151
152 end Ada.Text_IO;