From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: How to write "Hello" to a text file without a line terminator
Date: Sun, 14 Aug 2016 12:17:48 +0200
Date: 2016-08-14T12:17:48+02:00 [thread overview]
Message-ID: <nopggb$29a$1@gioia.aioe.org> (raw)
In-Reply-To: lyr39r1yeo.fsf@pushface.org
On 2016-08-14 11:40, Simon Wright wrote:
> I am saying that (it seems to me that) it is impossible to read back
> from Sequential_IO with an unconstrained type even on the same machine
> with the same compiler.
You can through S'Input. Read is just a wrapper for S'Read, it could
have been omitted too.
And regarding the design it should have been:
package Ada.Streams is
type Abstract_Root_Stream_Type is limited interface;
type Root_Stream_Type is new Abstract_Root_Stream_Type with private;
...
package Ada.Streams.Stream_IO is
type File_Type is new Abstract_Root_Stream_Type with private;
and no
function Stream (File : in File_Type) return Stream_Access;
>> All that needed is pragma Assert that Stream_Element'Size = 8 and
>> Stream_Element_Array I/O.
>
> Ada.Streams.Stream_IO & String'Write is even simpler in 99.9% of cases.
Yes, when String'Component_Size = Stream_Element_Size = 8.
--
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de
next prev parent reply other threads:[~2016-08-14 10:17 UTC|newest]
Thread overview: 28+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-08-12 4:05 How to write "Hello" to a text file without a line terminator Jerry
2016-08-12 6:41 ` G.B.
2016-08-12 7:23 ` Dmitry A. Kazakov
2016-08-12 7:41 ` J-P. Rosen
2016-08-12 7:46 ` Jerry
2016-08-12 7:44 ` Jerry
2016-08-12 17:34 ` Jeffrey R. Carter
2016-08-13 3:21 ` Jerry
2016-08-13 4:23 ` Jeffrey R. Carter
2016-08-13 9:12 ` AdaMagica
2016-08-13 18:03 ` Jeffrey R. Carter
2016-08-14 7:58 ` AdaMagica
2016-08-14 8:30 ` Simon Wright
2016-08-14 8:54 ` Dmitry A. Kazakov
2016-08-14 9:40 ` Simon Wright
2016-08-14 10:17 ` Dmitry A. Kazakov [this message]
2016-08-14 11:28 ` Simon Wright
2016-08-14 13:31 ` Dmitry A. Kazakov
2016-08-15 23:35 ` Randy Brukardt
2016-08-14 13:28 ` AdaMagica
2016-08-14 13:54 ` Simon Wright
2016-08-14 17:05 ` Jeffrey R. Carter
2016-08-14 18:26 ` AdaMagica
2016-08-14 19:19 ` Dmitry A. Kazakov
2016-08-14 13:32 ` AdaMagica
2016-08-14 16:39 ` Jeffrey R. Carter
2016-08-12 7:46 ` Simon Wright
[not found] ` <noka54$ci$1@dont-email.me>
2016-08-12 13:44 ` Dmitry A. Kazakov
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox