Re: In Plain Text: Tags.Internal_Tag(String'Input(Stream)) ??

[tmoran@acm.org]

>tag reading procedure such that it does not read in a lower
>and upper bound for the string describing the tag. The chunk
>ID is always 4 bytes, and obviously does not have the Ada
>bounds (dope) information ahead of it in the file.

  TILT!  Root'Class'Input *first* reads the tag, then it calls
Some_Child'Input which reads the bounds and then calls Data'Read
to read the data.  The bounds information is *after* the
chunk ID/tag.

 If "For A'External_Tag use "RIFF";" statements will handle the
Chunk ID <-> Tag stuff, and the 'Read handles the basic data,
it sounds like you need merely override S'Input to do your special
stuff for bounds.