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,8623fab5750cd6aa
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread2.news.pas.earthlink.net.POSTED!a6202946!not-for-mail
From: Jeffrey Carter <spam@spam.com>
Organization: jrcarter commercial-at acm [period | full stop] org
User-Agent: Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.4) Gecko/20030624
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Improving Ada's image - Was: 7E7 Flight Controls Electronics
References: <40b9c99e$0$268$edfadb0f@dread16.news.tele.dk>
 <1086715817.122983@master.nyc.kbcfp.com>
 <Sspxc.21282$8k4.550716@news20.bellglobal.com>
 <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>
 <sJqdnQIHC9hqOknd4p2dnA@comcast.com> <o_6dnbOJbMLkmEDdRVn-jA@comcast.com>
In-Reply-To: <o_6dnbOJbMLkmEDdRVn-jA@comcast.com>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <T_oDc.14842$w07.3946@newsread2.news.pas.earthlink.net>
Date: Sun, 27 Jun 2004 01:00:35 GMT
NNTP-Posting-Host: 63.184.33.190
X-Complaints-To: abuse@earthlink.net
X-Trace: newsread2.news.pas.earthlink.net 1088298035 63.184.33.190 (Sat,
 26 Jun 2004 18:00:35 PDT)
NNTP-Posting-Date: Sat, 26 Jun 2004 18:00:35 PDT
Xref: g2news1.google.com comp.lang.ada:1940
Date: 2004-06-27T01:00:35+00:00
List-Id: <comp.lang.ada>

Robert I. Eachus wrote:

> with Ada.Characters.Handling;
>   function Mixed (S: in String) return String is
>     use Ada.Characters.Handling;
>     Capitalize: Boolean := True;
>     Result: String := S;
>   begin
>     for I in Result'Range loop
>       if Capitalize
>       then Result(I) := To_Upper(Result(I));
>       else Result(I) := To_Lower(Result(I));
>       end if;
>       Capitalize := Result(I) = '_';
>     end loop;
>     return Result;
>   end Mixed;

Or use PragmARC.Mixed_Case.

-- 
Jeff Carter
"If you think you got a nasty taunting this time,
you ain't heard nothing yet!"
Monty Python and the Holy Grail
23