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,68c80d9ad156e257
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-03-28 04:27:35 PST
Path: 
 nntp.gmd.de!stern.fokus.gmd.de!ceres.fokus.gmd.de!zib-berlin.de!informatik.tu-muenchen.de!lrz-muenchen.de!news.uni-augsburg.de!nntp.fh-augsburg.de!news.dfn.de!gina.zfn.uni-bremen.de!marvin.pc-labor.uni-bremen.de!news.uni-stuttgart.de!rz.uni-karlsruhe.de!xlink.net!howland.reston.ans.net!news.sprintlink.net!uunet!world!blanket.mitre.org!linus.mitre.org!spectre!eachus
From: eachus@spectre.mitre.org (Robert I. Eachus)
Newsgroups: comp.lang.ada
Subject: Re: Type extension questions
Followup-To: comp.lang.ada
Date: 27 Mar 1995 20:26:37 GMT
Organization: The Mitre Corp., Bedford, MA.
Message-ID: <EACHUS.95Mar27152637@spectre.mitre.org>
References: <D5wyp1.Fsv@ennews.eas.asu.edu> <3l0frd$b9t@lang8.cs.nyu.edu>
	<D640KK.63D@ennews.eas.asu.edu>
NNTP-Posting-Host: spectre.mitre.org
In-reply-to: koehnema@enuxsa.eas.asu.edu's message of Mon,
 27 Mar 1995 17:29:07 GMT
Date: 1995-03-27T20:26:37+00:00
List-Id: <comp.lang.ada>

In article <D640KK.63D@ennews.eas.asu.edu> koehnema@enuxsa.eas.asu.edu (Harry Koehnemann) writes:


 >      class List {
 >	   public:  Set (...) { ...}
 >	   private: ...;
 >      };

    type List is new Set with private;

  >     class Stack : private List {
  >	   public:  Push() { ...}
  >	   private: ...;
  >     };

    type Stack is tagged private;

    procedure Push(...

  private

    type Stack is new List with...

 > BTW - I am by no means saying Ada95 should have included such a
 > feature (in fact, I am not a believer in restricting interfaces and
 > think that it clutters a design).  I'm just getting my Ada95 facts
 > straight.

   But it does include such a feature, the syntax is somewhat
different.

--

					Robert I. Eachus

with Standard_Disclaimer;
use  Standard_Disclaimer;
function Message (Text: in Clever_Ideas) return Better_Ideas is...