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

[tmoran@acm.org]

> <br>instead. This would allow me to read the tag in, in any way I
> <br>please, but then how do I proceed from there? How does the
> <br>Ada S'Class'Input() dispatch once the external tag is known?

  Is something along this line what you are looking for?

 function Get return S'class is
 begin
   get_external_type_indicator;
   case external_type_indicator is
     when A =>
       declare
         Result : S_Child_A;
       begin
         get_A_stuff_into_Result;
         return Result;
       end;
     when B =>
       declare
         Result : S_Child_B;
       begin
         get_B_stuff_into_Result;
         return Result;
       end;
   end case;
 end Get;