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,ee29d61e6b3e9db9,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2000-12-27 22:19:37 PST
Path: 
 supernews.google.com!sn-xit-02!supernews.com!newsfeed.mesh.ad.jp!newshub2.rdc1.sfba.home.com!news.home.com!news1.frmt1.sfba.home.com.POSTED!not-for-mail
From: tmoran@acm.org
Newsgroups: comp.lang.ada
Subject: Re: Tags.Internal_Tag(String'Input(Stream)) ??
References: <3A4AC329.9C2A311A@home.com>
X-Newsreader: Tom's custom newsreader
Message-ID: <YXA26.48921$A06.1438765@news1.frmt1.sfba.home.com>
Date: Thu, 28 Dec 2000 06:19:36 GMT
NNTP-Posting-Host: 24.20.190.201
X-Complaints-To: abuse@home.net
X-Trace: news1.frmt1.sfba.home.com 977984376 24.20.190.201 (Wed,
 27 Dec 2000 22:19:36 PST)
NNTP-Posting-Date: Wed, 27 Dec 2000 22:19:36 PST
Organization: Excite@Home - The Leader in Broadband http://home.com/faster
Xref: supernews.google.com comp.lang.ada:3414
Date: 2000-12-28T06:19:36+00:00
List-Id: <comp.lang.ada>

> <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;