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.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,b47b15fda2aeb0b2 X-Google-Attributes: gid103376,public From: jsa@alexandria (Jon S Anthony) Subject: Re: Two ideas for the next Ada Standard Date: 1996/09/11 Message-ID: #1/1 X-Deja-AN: 179982996 sender: news@organon.com (news) references: <50aao3$3r88@news-s01.ny.us.ibm.net> organization: Organon Motives, Inc. newsgroups: comp.lang.ada Date: 1996-09-11T00:00:00+00:00 List-Id: In article eachus@spectre.mitre.org (Robert I. Eachus) writes: > Why not: > > package Foo is > type T is private; > function X return T; > function Z return T; > private > package Bar is > type Hidden is (X, Y, Z, W); > end Bar; > > type T is new Bar.Hidden; > function X return T is begin return T(Bar.X); end X; > function Z return T is begin return T(Bar.Z); end Z; > pragma Inline(X,Z); > end Foo; Getting just a bit too parsimonious with those key strokes, eh? Or have you been whacking some C++ lately? :-) /Jon -- Jon Anthony Organon Motives, Inc. 1 Williston Road, Suite 4 Belmont, MA 02178 617.484.3383 jsa@organon.com