mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
27404093a6
GNAT wavefronts implementing E416-002. [Imported from Perforce change 9294 at 2006-12-01 21:19:21] Subversion-branch: /trunk/polyorb Subversion-revision: 36800
16 lines
511 B
Ada
16 lines
511 B
Ada
with Types; use Types;
|
|
|
|
package Utils is
|
|
|
|
procedure Capitalize (S : in out String);
|
|
|
|
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;
|