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=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Newsgroups: comp.lang.ada
Subject: Re: Community Input for the Maintenance and Revision of the Ada
 Programming Language
Date: Tue, 12 Sep 2017 19:17:33 +0200
Organization: Aioe.org NNTP Server
Message-ID: <op94rd$r83$1@gioia.aioe.org>
References: <oludae$seh$1@franka.jacob-sparre.dk>
 <op6odj$elu$1@gioia.aioe.org>
 <d5f3c820-1e9c-4a7d-9e2b-1981647180e5@googlegroups.com>
 <e3074266-6ebc-4eab-b0de-7fc1a4b5c7c4@googlegroups.com>
 <67345f73-530c-400b-9eb4-63eeb440154c@googlegroups.com>
 <b21832af-972a-4746-b9b1-9ea4a48bd196@googlegroups.com>
 <op868s$s5i$1@gioia.aioe.org>
 <9a6338d9-83be-4e45-b8b7-edc56e33537f@googlegroups.com>
 <op8cgh$183k$1@gioia.aioe.org>
 <2deb28e2-f7e8-4461-b8b8-c2c6cf2784aa@googlegroups.com>
 <op8iqd$1kg9$1@gioia.aioe.org>
 <5de470d2-aa3d-4c02-ae2b-266c33a289fe@googlegroups.com>
 <op8mio$1scc$1@gioia.aioe.org>
 <5126ef7a-3324-4e44-b110-5e4838189f5f@googlegroups.com>
 <op8oa8$1vpt$1@gioia.aioe.org>
 <3c76c2ed-319f-410c-8dec-6a80a0948c7a@googlegroups.com>
 <op901h$g0i$1@gioia.aioe.org>
 <1c8a3a96-1cdb-4c16-9c25-2da9bbf52cc9@googlegroups.com>
 <op92mh$ltk$1@gioia.aioe.org>
 <dd8aa41b-c3ba-4870-a9af-dae810be1dbf@googlegroups.com>
 <op93op$ofq$2@gioia.aioe.org>
 <f7d9d392-7bc5-4dab-acf9-ceb15b138eff@googlegroups.com>
NNTP-Posting-Host: MajGvm9MbNtGBKE7r8NgYA.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
X-Complaints-To: abuse@aioe.org
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101
 Thunderbird/52.3.0
X-Notice: Filtered by postfilter v. 0.8.2
Content-Language: en-US
Xref: news.eternal-september.org comp.lang.ada:48074
Date: 2017-09-12T19:17:33+02:00
List-Id: <comp.lang.ada>

On 2017-09-12 19:03, Egil H H wrote:
> On Tuesday, September 12, 2017 at 6:59:09 PM UTC+2, Dmitry A. Kazakov wrote:
>> Right, but discriminant is a natural way to express constraint in Ada.
>> Formal generic parameter is a very bad way doing that.
>>
>> As for having default value it is a requirement to have the type
>> constrained, which is a requirement to make assignment work. Which has
>> undesired implications on the type representation. Sigh.
>>
> 
> Last time I checked, assignment worked perfectly with Ada.Strings.Bounded.
> Sigh, right back to you.

No, it does not work. Try

    package S_1000 is new Ada.Strings.Bounded (1000);
    package S_10 is new Ada.Strings.Bounded (10);

    X : S_1000.Bounded_String;
    Y : S_10.Bounded_String;

    X := Y;

A proper implementation of bounded-length string, provided we needed 
them, should have worked like this:

    X : Bounded_String (1000); -- 1000 is my limit, now I am ""
    Y : Bounded_String (10) := "abc"; -- 10 is mine, now I am "abc"

    X := Y; -- We are both strings, don't we?

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de