S.M. String Maps - JulTob/Ada GitHub Wiki

with Ada.Strings.Maps.Constants;
with Ada.Strings.Fixed;
with Ada.Text_IO; use Ada.Text_IO;

procedure Test is
   Test_String : String := "Hello World!";
   begin
      -- Display Original String
      Put_Line(Test_String);

      -- Change String to all Upper Case and Display
      Put_Line(Ada.Strings.Fixed.Translate(Test_String,
        Ada.Strings.Maps.Constants.Upper_Case_Map));

      -- Change String to all Lower Case and Display
      Put_Line(Ada.Strings.Fixed.Translate(Test_String,
        Ada.Strings.Maps.Constants.Lower_Case_Map));

      end Test;