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,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 2002:a02:a10d:: with SMTP id f13mr40960097jag.23.1558179317170; Sat, 18 May 2019 04:35:17 -0700 (PDT) X-Received: by 2002:a9d:71d1:: with SMTP id z17mr10238432otj.22.1558179316875; Sat, 18 May 2019 04:35:16 -0700 (PDT) Path: eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.dns-netz.com!news.freedyn.net!newsreader4.netcologne.de!news.netcologne.de!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!u76no315217ita.0!news-out.google.com!p73ni289itp.0!nntp.google.com!i64no316917iti.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Sat, 18 May 2019 04:35:16 -0700 (PDT) In-Reply-To: <82417f9e-295d-4368-91ec-e79ce5349193@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=89.131.20.193; posting-account=C8J7NQoAAAD_ybGY7--QIRi6KpLjoH1Z NNTP-Posting-Host: 89.131.20.193 References: <0ca05176-a819-4e9a-8c6c-3a0c1f32f964@googlegroups.com> <82417f9e-295d-4368-91ec-e79ce5349193@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <71326cfb-9a77-4f19-bd28-8b47cbe3e816@googlegroups.com> Subject: Re: constructor in abstract tagged types From: Daniel Injection-Date: Sat, 18 May 2019 11:35:17 +0000 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Received-Bytes: 2089 X-Received-Body-CRC: 3095143446 Xref: reader01.eternal-september.org comp.lang.ada:56325 Date: 2019-05-18T04:35:16-07:00 List-Id: El jueves, 9 de mayo de 2019, 16:40:28 (UTC+2), AdaMagica escribi=C3=B3: > Am Mittwoch, 8. Mai 2019 20:37:25 UTC+2 schrieb Daniel: > Dmitry's solution is the way to do it. >=20 > > procedure F_forced_to_do_it is abstract; >=20 > This is not a primitive operation of Fathers. > Declaring it abstract makes it uncallable. So why define it at all. >=20 > > package FATHERS.SONS is > > procedure F_Forced_to_do_it; >=20 > This is not inherited, so does not override the abstract operation defini= ed in Fathers. > It's also not a primitive operation. >=20 > > end FATHERS.SONS; I declare it as an obligated "interface". I want that any children that ext= end father has to implement it.