From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: *
X-Spam-Status: No, score=2.0 required=5.0 tests=BAYES_00,FORGED_MUA_MOZILLA,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,7e490a18b9688bd9
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.58.162 with SMTP id s2mr1904732pbq.20.1315978189903;
        Tue, 13 Sep 2011 22:29:49 -0700 (PDT)
Path: 
 m9ni5878pbd.0!nntp.google.com!news1.google.com!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nx02.iad01.newshosting.com!newshosting.com!news-out.readnews.com!transit3.readnews.com!s09-10.readnews.com!unm2.readnews.com.POSTED!not-for-mail
X-Trace: 
 DXC=2\f;a>_XknLDFC7OM4n8NC[3OhcoN[H0@X44`8^\]>7J8DHB_I2k0T@>K`gGFg:INI8JG@65VXWEH24DKT5NOBkGJG?IXdh5TQ@alM@JQSKSID
X-Complaints-To: abuse@ngroups.net
Date: Wed, 14 Sep 2011 07:29:43 +0200
From: Per Sandberg <per.sandberg@bredband.net>
Reply-To: per.sandberg@bredband.net
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US;
 rv:1.9.2.20) Gecko/20110831 Fedora/3.1.12-2.fc14 Thunderbird/3.1.12
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Stream_Element_Array
References: 
 <edfcce02-7d80-4186-a281-c8a4983a3efd@p25g2000pri.googlegroups.com>
In-Reply-To: 
 <edfcce02-7d80-4186-a281-c8a4983a3efd@p25g2000pri.googlegroups.com>
Message-ID: <4e703bcd$0$32104$a8266bb1@newsreader.readnews.com>
Organization: readnews.com - News for Geeks and ISPs
NNTP-Posting-Host: a10c3d42.newsreader.readnews.com
Xref: news1.google.com comp.lang.ada:17952
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Date: 2011-09-14T07:29:43+02:00
List-Id: <comp.lang.ada>

Why not just:
   Message_Header'Write(Output_Stream,My_Message_Header)
That would serialize the Data into the stream.

If the target stream is a blocked message why not do
   Message_Header'Write(Buffer_Stream,My_Message_Header)
   Buffer_Stream'Write(Output_Stream,Buffer_Stream)

And the Buffer_Stream is a stream of the kind found in:
    http://sourceforge.net/projects/ada-spread/
         spread-memory_streams.*
or

https://github.com/persan/zeromq-Ada
    zmq-utilities-memory_streams.ad

Which now is part of fedora15
/Per




On 09/14/2011 05:13 AM, Alexander Korolev wrote:
> I have a Type
>
> type Message_Header is
>      record
>         -- Components                  --   8 bit
>         Length    : Unsigned_16;    -- 16 bit  (MSB)
>         -- other components          --   8 bit
>      end record;
>
> How I could split the Lenght component on two subsequent
> Stream_Element ( 8-bit)?
>
> Command: Stream_Element_Array (1 .. 64);
>
> Thanks