Re: Ada0x Enhancement? Was: Tags.Internal_Tag(String'Input(Stream)) ??

["Warren W. Gay VE3WWG" <ve3wwg@home.com>]

tmoran@acm.org wrote:
> 
> >upon String'Input() to read in the tag (which is the problem
> >here). String'Input() insists on reading dope info that describes
> >how long the tag string is (the array bounds actually).
>   Ah, now I understand why you said the dope vector came before the
> tag.  You were refering to the dope vector of the external tag itself.
> 
> >Additionally, Microsoft's stupid Wave format often provides ...
> MS's bmp file format has some of the same delightful characteristics.
> Claw.Bitmaps.Root_DIBitmap_Type'Class'Input reads the bmp header,
> then does a series of
>   elsif (header says it's a VGA type 256 color bitmap)
>     declare
>       Result : Claw.Bitmaps.VGA_DIBitmap_Type(Height=> ...
> It's tedious and unpleasant to code, but the end result is worthwhile.

It also turns out that there are some advantages to doing it this
way. There is a whole group of chunks that can be contained within
one tagged record type ( LIST(INFO) member chunks for example ). Doing 
it the other way, I'd have to define 23 different tagged records with
matching tags, but with the exact same structure.

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