comp.lang.ada
 help / color / mirror / Atom feed
From: "Randy Brukardt" <randy@rrsoftware.com>
Subject: Re: Possible to recover default value of scalar type?
Date: Mon, 14 Dec 2020 19:26:10 -0600	[thread overview]
Message-ID: <rr93bj$kno$1@franka.jacob-sparre.dk> (raw)
In-Reply-To: rr7bqv$19da$1@gioia.aioe.org

"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> wrote in message 
news:rr7bqv$19da$1@gioia.aioe.org...
> On 2020-12-14 10:01, AdaMagica wrote:
>> I do not really understand the problem. It seems you want to be able to 
>> access the default value like so:
>> N: Natural := Natural(A_Type'Default_Value);
>> This is not possible. Thre is no corresponding attribute 'Default_Value.
>> If this presents a real problem, submit it to Ada comment stating why 
>> this is important.
>
> It could in the cases like this:
>
>    procedure Library_Foo (Bar : Baz := Baz'Default_Value)

I would have suggested to write this as:
     procedure Library_Foo (Bar : Baz := <>)
since this is the syntax used in aggregates (and why should aggregates have 
all the fun??).

>    Put_Line (String (1..10)'Default_Value); -- print garbage

The above isn't a legal attribute prefix in any case (can't slice a type). 
And you don't need to because this is clearly an aggregate (which is legal 
in Ada 2012):
    Put_Line (String'(1..10 => <>)); -- print garbage

                                Randy.


  parent reply	other threads:[~2020-12-15  1:26 UTC|newest]

Thread overview: 23+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2020-12-13  9:54 Possible to recover default value of scalar type? reinert
2020-12-14  0:08 ` Stephen Leake
2020-12-14  6:09   ` reinert
2020-12-14  9:01     ` AdaMagica
2020-12-14  9:38       ` Dmitry A. Kazakov
2020-12-14 15:56         ` AdaMagica
2020-12-14 16:31           ` Dmitry A. Kazakov
2020-12-14 18:24             ` Simon Wright
2020-12-14 18:53               ` Dmitry A. Kazakov
2020-12-15  6:47                 ` J-P. Rosen
2020-12-15  7:23                   ` Dmitry A. Kazakov
2020-12-15  9:07                     ` J-P. Rosen
2020-12-15 16:53                       ` Simon Wright
2020-12-15 18:14                         ` AdaMagica
2020-12-17  0:53                           ` Randy Brukardt
2020-12-17  0:48                   ` Randy Brukardt
2020-12-15  1:27           ` Randy Brukardt
2020-12-15  9:30             ` Niklas Holsti
2020-12-17  0:45               ` Randy Brukardt
2020-12-15  1:26         ` Randy Brukardt [this message]
2020-12-15  7:35           ` Dmitry A. Kazakov
2020-12-17  0:43             ` Randy Brukardt
2020-12-15  1:21       ` Randy Brukardt
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox