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: 
 buffer1.nntp.dca1.giganews.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!feeder.erje.net!1.eu.feeder.erje.net!eternal-september.org!feeder.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: What do you think about this?
Date: Sat, 27 Jun 2015 21:39:10 +0100
Organization: A noiseless patient Spider
Message-ID: <lya8vkj381.fsf@pushface.org>
References: <9894cde7-2cf8-4060-be65-857812ad7b09@googlegroups.com>
 <mm7310$4jk$1@dont-email.me>
 <17436268-aceb-461f-bdcf-eee8436cd0e6@googlegroups.com>
 <mm9e4f$n4e$2@dont-email.me>
 <fa1fea48-bdb6-446c-8a41-a2f34a55ed16@googlegroups.com>
 <d65db4db-ada4-4705-8cec-37a994536f8b@googlegroups.com>
 <86y4jaqzdx.fsf@stephe-leake.org>
 <dddbc06b-c30f-4923-85b6-f3a378982238@googlegroups.com>
 <86oak5qulb.fsf@stephe-leake.org> <mmeoq7$p9f$1@dont-email.me>
 <78882aed-4063-409b-a92e-6025c3097a52@googlegroups.com>
 <mmfavj$7fc$1@dont-email.me>
 <6d3e7a4c-e691-4005-ad47-2507ed13031f@googlegroups.com>
 <lyegkxhti6.fsf@pushface.org>
 <3027f366-8a20-4e46-99c4-6d323cc4d0c2@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: mx02.eternal-september.org;
 posting-host="c762050aff3a30866fa7e79999b14776";
 logging-data="26191"; mail-complaints-to="abuse@eternal-september.org";
 posting-account="U2FsdGVkX19byzT8gRB/FEyp/MHSsnh/ogCFtIdj/AI="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (darwin)
Cancel-Lock: sha1:oHxXkfzLd8qV6gIuXgMRb3tVLcw=
 sha1:c8uhQRFcUGDUSrDzYAGDpq504VA=
Xref: number.nntp.giganews.com comp.lang.ada:193810
Date: 2015-06-27T21:39:10+01:00
List-Id: <comp.lang.ada>

Laurent <lutgenl@icloud.com> writes:

> On Saturday, 27 June 2015 20:54:26 UTC+2, Simon Wright  wrote:
>> Laurent <lutgenlaticloud.com> writes:
>> 
>> > It sucks that renaming function Make_Antibiotique... to function
>> > Antibiotique ... doesn't work because I get conflicts between the
>> > Type Antibiotique and the function. So what is the recommendation
>> > for naming in this case.
>> >
>> > package Antibiotiques...
>> >
>> > type Antibiotique is private;
>> >
>> > function Make_Antibiotique... return Antibiotique;
>> >
>> > end Antibiotiques;
>> 
>> I'd just call it Make. The package name disambiguates.
>
> Hm the opposite of the messages before. Who is right then? Or just a
> matter of taste?

A matter of taste, really.

I had a colleague who was writing a package something like

   package Communication is
      type Communication_Message is private;
      procedure Send_Communication_Message
        (Communication_Message_To_Be_Sent : Communication_Message;
         ...);

only the names were longer (so long that the spec couldn't possibly be
fitted into 79 columns, which gave style warnings, which he disabled by
pragma Warnings (Off), so that other significant warnings were disabled
too).

I would have written

   package Communication is
      type Message is private;
      procedure Send (M : Message; ...);

which is, I think, much clearer.

Grady Booch would have named the parameter The_Message.