AdaPower Logged in as Guest
Ada Tools and Resources

Ada 95 Reference Manual
Ada Source Code Treasury
Bindings and Packages
Ada FAQ


Join >
Home >
Articles >
Getting Started >
Ada FAQ >
Source Treasury >
Books & Tutorials >
Packages for Reuse >
Latest Additions >
Ada Projects >
Press Releases >
Ada Audio / Video >
Home Pages >
Links >
Contact >
About >
Login >
Back
GNAT.Case_Util Example (David Botton)

-- GNAT.Case_Util Example
--
-- GNAT.Case_Util provides functions for low overhead change of case
-- for characters and strings

with GNAT.IO; use GNAT.IO;
with GNAT.Case_Util; use GNAT.Case_Util;

procedure Case is
   Test_String    : String := "Hello World!";
   Test_Character : Character := 'c';
begin
   Put_Line("To_Upper : " & To_Upper(Test_Character));
   To_Upper(Test_String);
   Put_Line("To_Upper : " & Test_String);

   New_Line;

   Put_Line("To_Lower : " & To_Lower(Test_Character));
   To_Lower(Test_String);
   Put_Line("To_Lower : " & Test_String);

   New_Line;

   To_Mixed(Test_String);
   Put_Line("To_Mixed : " & Test_String);
end Case;


(c) 1998-2004 All Rights Reserved David Botton