type Verbosity_Level is (SILENT, ALWAYS, ERROR, WARNING, INFO);
NO_SYSTEM : constant Hashed_String := To_Hashed_String( "" );
procedure Dbg
( | str | : String; |
system | : Hashed_String := NO_SYSTEM; | |
level | : Verbosity_Level := ALWAYS; | |
entity | : String := GNAT.Source_Info.Enclosing_Entity; | |
location | : String := GNAT.Source_Info.Source_Location ); |
procedure Dbg
( | e | : Exception_Occurrence; |
system | : Hashed_String := NO_SYSTEM; | |
level | : Verbosity_Level := ALWAYS; | |
entity | : String := GNAT.Source_Info.Enclosing_Entity; | |
location | : String := GNAT.Source_Info.Source_Location ); |
procedure Set_Decoration
( | level | : Decoration_Level ); |
procedure Set_Output
( | output | : Output_Proc ); |
procedure Set_Verbosity
( | level | : Verbosity_Level ); |
procedure Set_Verbosity
( | system | : Hashed_String; |
level | : Verbosity_Level ); |