GNAT.Case_Util Example

-- 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;