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-Thread: 103376,703c4f68db81387d
X-Google-Thread: 109fba,703c4f68db81387d
X-Google-Thread: 115aec,703c4f68db81387d
X-Google-Thread: f43e6,703c4f68db81387d
X-Google-Attributes: gid103376,gid109fba,gid115aec,gidf43e6,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!news.glorb.com!npeer.de.kpn-eurorings.net!newsfeed.arcor.de!news.arcor.de!not-for-mail
Date: Tue, 15 Mar 2005 11:51:33 +0100
From: Georg Bauhaus <bauhaus@futureapps.de>
Organization: future apps GmbH
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US;
 rv:1.7.5) Gecko/20050105 Debian/1.7.5-1
X-Accept-Language: en
MIME-Version: 1.0
Newsgroups: comp.lang.ada,comp.lang.c++,comp.realtime,comp.software-eng
Subject: Re: [OT] Re: Teaching new tricks to an old dog (C++ -->Ada)
References: <4229bad9$0$1019$afc38c87@news.optusnet.com.au>
 <1110032222.447846.167060@g14g2000cwa.googlegroups.com>
 <871xau9nlh.fsf@insalien.org>
 <3SjWd.103128$Vf.3969241@news000.worldonline.dk>
 <87r7iu85lf.fsf@insalien.org> <1110052142.832650@athnrd02>
 <42309456$1@news.broadpark.no> <ow2Yd.21162$7U5.4617@fe04.lga>
 <opsnfw9nx75afhvo@localhost> <d0qiah$ep71@cui1.lmms.lmco.com>
 <pan.2005.03.11.18.01.45.684764@linuxchip.demon.co.uk.uk.uk>
 <d0sob3$3t5$1@s1.news.oleane.net>
 <4232ab3a$0$26547$9b4e6d93@newsread4.arcor-online.net>
 <pan.2005.03.14.14.41.47.813082@linuxchip.demon.co.uk.uk.uk>
 <d14co1$ca4$1@s1.news.oleane.net>
 <pan.2005.03.14.17.16.34.592520@linuxchip.demon.co.uk.uk.uk>
 <1110825790.396769@athnrd02>
 <pan.2005.03.14.19.27.46.488096@linuxchip.demon.co.uk.uk.uk>
 <1gf23j59mnsm2.wimnrcdrb09u.dlg@40tude.net>
 <wcc8y4qndos.fsf@shell01.TheWorld.com>
 <1d7hl8pj8dhsh.m8mjwl7qxs86$.dlg@40tude.net>
In-Reply-To: <1d7hl8pj8dhsh.m8mjwl7qxs86$.dlg@40tude.net>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <4236bdab$0$1098$9b4e6d93@newsread2.arcor-online.net>
NNTP-Posting-Date: 15 Mar 2005 11:49:15 MET
NNTP-Posting-Host: 196622de.newsread2.arcor-online.net
X-Trace: 
 DXC=8cfBeJ9E2I`?m49DcKk?RnQ5U85hF6f;djW\KbG]kaMhliQbn6H@_Eiie[A?`kAL3dljUVjRQ60?bVmnOeiOY3@ng[50F7T5IOb
X-Complaints-To: abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:9432 comp.lang.c++:45766
 comp.realtime:1510 comp.software-eng:5083
Date: 2005-03-15T11:49:15+01:00
List-Id: <comp.lang.ada>

Dmitry A. Kazakov wrote:
 
> I think that the reason is not contracts but inflexible contracts. Ada
> formal generic parameters are not ADTs. So there is no way to define a
> formal generic type Ordered.

Hm. Do you mean, a contract type cannot be _defined_ in the
generic formal part of a unit?
Otherwise, why not just write

generic
   type Ordered is new Has_Less_Than with private;
package ...

where Has_Less_Than is an abstract type with a "<" operation.

(Or use multiple interfaces and Ada 2005.)