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