如何在Ada库alog中设置Log_Level

Question

我在项目中第一次使用库alog 。 我在理解如何为所有后续日志命令设置日志级别时遇到问题。

查看我的测试程序：

with Alog;                         use Alog;
with Alog.Logger;
with Alog.Policy_DB;               use Alog.Policy_DB;

procedure Test_Loglevel
is
   L : Logger.Instance (Init => True);

   procedure Act_And_Log
   is begin
      null;
      L.Log_Message (Alog.Debug, "very detailed, only for debugging");
      null;
      L.Log_Message (Alog.Info,  "some more detailed infos");
      null;
      L.Log_Message (Alog.Notice, "general messages for interactive use");
      null;
      L.Log_Message (Alog.Warning, "something serious happened");
      null;
      L.Log_Message (Alog.Error, "error messages should always be displayed");
   end Act_And_Log;

begin
   --
   -- all logs should be displayed
   --
   Set_Loglevel ("*", Debug);
   Set_Default_Loglevel (Debug);
   Act_And_Log;
   --
   -- only error
   --
   Set_Loglevel ("*", Error);
   Set_Default_Loglevel (Error);
   Act_And_Log;

end Test_Loglevel;

我希望第一次显示所有5条消息，而第二次仅显示错误消息。 但是，实际输出两次显示5条消息！

我必须根据严重性过滤输出内容？

Answer 1

我直接问过alog的作者。 他们回答了一个补丁 。 我仍然认为该文档有些误导。