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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,335f67c75a2a5d5
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2000-12-28 10:32:53 PST
Path: 
 supernews.google.com!sn-xit-02!supernews.com!newsfeed.mesh.ad.jp!newsfeed.direct.ca!look.ca!news1.tor.metronet.ca!nnrp1.tor.metronet.ca!not-for-mail
Message-ID: <3A4B86B4.DB440BF5@home.com>
From: "Warren W. Gay VE3WWG" <ve3wwg@home.com>
X-Mailer: Mozilla 4.75 [en] (Windows NT 5.0; U)
X-Accept-Language: en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: In Plain Text: Tags.Internal_Tag(String'Input(Stream)) ??
References: <3A4AC329.9C2A311A@home.com> <3A4B557F.F167C8E@home.com>
 <92fnnn$emq$1@nnrp1.deja.com>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Date: Thu, 28 Dec 2000 18:32:52 GMT
NNTP-Posting-Host: 198.96.47.195
NNTP-Posting-Date: Thu, 28 Dec 2000 11:32:52 MDT
Organization: MetroNet Communications Group Inc.
Xref: supernews.google.com comp.lang.ada:3428
Date: 2000-12-28T18:32:52+00:00
List-Id: <comp.lang.ada>

Ted Dennison wrote:
> 
> In article <3A4B557F.F167C8E@home.com>,
>   "Warren W. Gay VE3WWG" <ve3wwg@home.com> wrote:
> > (Apologies re: the prior post in HTML, here again in plain:)
> >
> > I want to read in WAVE file chunks using the S'Class'Input() facility.
> > Each WAVE chunk starts with a String(1..4) that identifies the chunk.
> > I have set up the external representation of each tagged record to
> > match this chunk ID, for example:
> >
> >    for Riff_Form'External_Tag use "RIFF";
> >
> > However, the difficulty now is that I want to override the way the
> > Tag is read in (the Tag length is ALWAYS 4 bytes here). The Ada
> > implementation attempts to read in the lower bound and upper
> > bound of the Tag string first [ See ref to the note about
> > Tags.Internal_Tag(String'Input(Stream))  below ].
> >
> > I would prefer not to override String'Input since this would affect
> > it's behavour for all strings.
> 
> You might have better luck creating your own custom stream type for WAV
> data.

I am in the process of doing that very thing. However, I am looking for
ways to more elegantly read in the various chunks (tagged records) from
the stream. S'Class'Input() comes tantalizingly close.

-- 
Warren W. Gay VE3WWG
http://members.home.net/ve3wwg