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=-0.4 required=5.0 tests=AC_FROM_MANY_DOTS,BAYES_00 autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,e1378588aba09202 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-07-12 07:54:31 PST Path: archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!skynet.be!dispose.news.demon.net!demon!diablo.netcom.net.uk!netcom.net.uk!psiuk-p2!uknet!psiuk-n!news.pace.co.uk!nh.pace.co.uk!not-for-mail From: "Marin David Condic" Newsgroups: comp.lang.ada Subject: Re: Abstract Functions Date: Thu, 12 Jul 2001 10:10:25 -0400 Organization: Posted on a server owned by Pace Micro Technology plc Message-ID: <9ikb4j$fvv$1@nh.pace.co.uk> References: NNTP-Posting-Host: 136.170.200.133 X-Trace: nh.pace.co.uk 994947027 16383 136.170.200.133 (12 Jul 2001 14:10:27 GMT) X-Complaints-To: newsmaster@pace.co.uk NNTP-Posting-Date: 12 Jul 2001 14:10:27 GMT X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.50.4522.1200 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200 Xref: archiver1.google.com comp.lang.ada:9876 Date: 2001-07-12T14:10:27+00:00 List-Id: Kool!!! I had not thought to take a non-abstract tagged record and turn it into an abstract tagged record. That would about solve the problem by specifying an intermediate class that the user derives from - preserving all the workings of the root class while allowing you to specify new abstract operations. Thanks. I'll give that a try and see if the compiler swollows it. MDC -- Marin David Condic Senior Software Engineer Pace Micro Technology Americas www.pacemicro.com Enabling the digital revolution e-Mail: marin.condic@pacemicro.com Web: http://www.mcondic.com/ wrote in message news:qo137.175321$%i7.114223450@news1.rdc1.sfba.home.com... > I think a fair summary is "go ahead, write what you want, it's OK". > In Claw.Sockets, type Socket_Type is non-abstract, with Open, > Read, Close, etc primitives appropriate for a blocking socket. > There's also > type Async_Socket_Type is abstract new Socket_Type with record ... > and various new primitives both abstract, eg, > procedure When_Readable(Socket : in out Async_Socket_Type) is abstract; > and non-abstract > procedure When_Connect(Socket : in out Async_Socket_Type); > The user is thus forced to supply a routine to handle incoming data > (When_Readable) but it's optional whether he supplies a non-default > routine to handle the initial connection event.