Hosted by
 |
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
package Messages is
procedure Debug
(Text : in String);
procedure Debug2
(Text : in String);
procedure Message
(Text : in String);
procedure Error
(Text : in String);
procedure Try_Help;
procedure Invalid_Option
(Index : in Positive);
procedure Too_Few_Arguments;
function "-"
(This : in String)
return Unbounded_String
renames To_Unbounded_String;
type String_Array is array(Positive range <>) of Unbounded_String;
No_Strings : String_Array(1 .. 0);
procedure User_Friendly
(Program_Name : in String;
Parameters : in String;
Description : in String_Array;
Parameters_Text : in String_Array;
Extra_Options : in String_Array;
Index : out Positive;
Exit_Now : out Boolean);
end Messages;
|