mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
a4391c528a
[Imported from Perforce change 6618 at 2006-12-01 19:56:22] Subversion-branch: /trunk/polyorb Subversion-revision: 34572
17 lines
512 B
Ada
17 lines
512 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;
|
|
|