mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
17 lines
637 B
Ada
17 lines
637 B
Ada
with Types; use Types;
|
|
|
|
package Utils is
|
|
|
|
procedure Capitalize (S : in out String);
|
|
-- Change in S any leading character or any successor of an
|
|
-- underscore into its corresponding uppercase character.
|
|
|
|
function Quoted (S : String; D : Character := '"') return String; -- "
|
|
function Quoted (S : String; D : Character := '"') return Name_Id; -- "
|
|
function Quoted (N : Name_Id; D : Character := '"') return String; -- "
|
|
function Quoted (N : Name_Id; D : Character := '"') return Name_Id; -- "
|
|
-- Embrace string S or name N with character D
|
|
|
|
function To_Lower (N : Name_Id) return Name_Id;
|
|
end Utils;
|