simple_logging
Easy-to-use logging facilities for output to console in Ada programs. Preelaborable package.
For example:
with Simple_Logging; use Simple_Logging;
procedure Hello_World is
begin
Log ("Hello, world!"); -- Info level (default)
Log ("Bye!", Warning); -- Warning level
Log ("That took 3 mins to write", Debug); -- Won't show with default log level.
Simple_Logging.Level := Debug; -- Lower the threshold for output
Log ("Checking...", Debug); -- Now it will show.
Log ("Something failed", Error); -- Error!
end Hello_World;
The corresponding output will be:
Hello, world!
Warning: Bye!
-->> Checking...
ERROR: Something failed
Alternatively, you can not use the package and do it like this:
with Simple_Logging;
procedure Hello_World is
package Log renames Simple_Logging;
begin
Log.Info ("Hello, world!");
Log.Warning ("Bye!"); -- Warning level
Log.Debug ("That took 3 mins to write");
Simple_Logging.Level := Debug;
Log.Debug ("Checking...");
Log.Error ("Something failed");
end Hello_World;
With the possible benefit that you cannot forget the logging level.