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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,8623fab5750cd6aa
X-Google-Attributes: gid103376,public
Path: 
 g2news1.google.com!news2.google.com!fu-berlin.de!uni-berlin.de!not-for-mail
From: "Martin Dowie" <martin.dowie@baesystems.com>
Newsgroups: comp.lang.ada
Subject: Re: Improving Ada's image - Was: 7E7 Flight Controls Electronics
Date: Fri, 18 Jun 2004 08:50:47 +0100
Organization: BAE SYSTEMS
Message-ID: <40d29d9f$1_1@baen1673807.greenlnk.net>
References: <40b9c99e$0$268$edfadb0f@dread16.news.tele.dk>
 <1086733411.736049@master.nyc.kbcfp.com>
 <3Auxc.11998$XY6.1296622@read2.cgocable.net>
 <Ygyxc.21522$QT3.4694@nwrdny01.gnilink.net> <40C85035.4020706@noplace.com>
 <qShyc.51846$8k4.1132952@news20.bellglobal.com> <40C9EC3B.60304@noplace.com>
 <uvfhuc1n3.fsf@xsol.com> <LG8zc.24456$wi2.21812@nwrdny01.gnilink.net>
 <40CD90A4.8030005@noplace.com> <Emkzc.8773$nY.296856@news20.bellglobal.com>
 <40CEDCB5.9000509@noplace.com> <YFFzc.16347$nY.581559@news20.bellglobal.com>
 <1087325485.307616@master.nyc.kbcfp.com>
 <PsJzc.25516$7H1.856631@news20.bellglobal.com>
 <jlKzc.29910$mz.15226@nwrdny02.gnilink.net>
 <opr9no4qtd5afhvo@news.verizon.net>
 <AIKzc.29948$mz.28053@nwrdny02.gnilink.net>
 <ZJqdnWZ_Q9hfIEzdRVn-gQ@comcast.com> <1087488758.881520@master.nyc.kbcfp.com>
 <uoenh28v9.fsf@obry.org> <sa4659ppz44.fsf@snoopy.apana.org.au>
X-Trace: news.uni-berlin.de OUCV52dfFnRDdnvUKYzLuAJp+B5ChfFNy7eBXEqieVpZ775bR/
X-Orig-Path: baen1673807.greenlnk.net!baen1673807!not-for-mail
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4807.1700
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4807.1700
X-Original-NNTP-Posting-Host: baen1673807.greenlnk.net
Xref: g2news1.google.com comp.lang.ada:1648
Date: 2004-06-18T08:50:47+01:00
List-Id: <comp.lang.ada>

"Brian May" <bam@snoopy.apana.org.au> wrote in message
news:sa4659ppz44.fsf@snoopy.apana.org.au...
> >>>>> "Pascal" == Pascal Obry <pascal@obry.org> writes:
>
>     Pascal> As you've done in C, using pointers (I mean access types :):
>
>     Pascal> type String_Access is access constant String;
>     Pascal> type Color_Set is array (Positive range <>) of String_Access;
>
>     Pascal> Red   : aliased constant String := "Red";
>     Pascal> Green : aliased constant String := "Green";
>     Pascal> Blue  : aliased constant String := "Blue";
>
>     Pascal> Colors : constant Color_Set := (Red'Access, Green'Access,
Blue'Access);
>
> Would this work without pointers? If not, why not? eg:
>
> type Color_Set is array (Positive range <>) of String;
>
> Red   : constant String := "Red";
> Green : constant String := "Green";
> Blue  : constant String := "Blue";
>
> Colors : constant Color_Set := (Red, Green, Blue);

No because String is an unconstrained type. You could have

type Colour_Set is array (Positive) range <>) of String (1 .. 5);

Red : constant Sgtring := "  Red";
Green : constant String := "Green";
Blue : constant String := "Blue";

Colours : constant Colour_Set (Red, Green, Blue);

But that's not quite the same thing... (i.e. not a ragged array).

Cheers

-- Martin