GammaWare  Head Version for release 0.9
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
int NarvalCollector::ConvertLevel ( LogMessage::ELevel  lev)
protected

to convert log level from ADF to Narval conventions

For Narval (situation 4/11/2009):

procedure Ada_Log_Message (Id : Integer;
Message : Interfaces.C.Strings.Chars_Ptr;
Level : Integer) is
Ada_Message : constant String := "id=" & Id'Img & " " & Value
(Message);
begin
case Level is
when 0 =>
Debug_Out (Actor_Handle.Logger'Access, Ada_Message);
when 1 =>
Info_Out (Actor_Handle.Logger'Access, Ada_Message);
when 2 =>
Warn_Out (Actor_Handle.Logger'Access, Ada_Message);
when 3 =>
Error_Out (Actor_Handle.Logger'Access, Ada_Message);
when others =>
Fatal_Out (Actor_Handle.Logger'Access, Ada_Message);
end case;
end Ada_Log_Message;

Definition at line 44 of file NarvalCollector.cpp.