Re: Improving Ada's image - Was: 7E7 Flight Controls Electronics

[Jeffrey Carter <spam@spam.com>]

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