Re: converting lower case to upper case

[tmoran@bix.com]

Ada 95 has a T_Upper function, but Ada 83 doesn't (though your
compiler vendor may provide one).  If you need to roll your own:
function To_Upper(Item : in Character) return Character is
  Raise_It:constant array('a' .. 'z') of Character
    :="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
begin
  if Item in Raise_It'range then return Raise_It(Item);
  else return Item;
  end if;
end To_Upper;