DataMuseum.dk

top - download

    Length: 2274 (0x8e2)
    Types: TextFile
    Names: »B«

└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
    └─ ⟦0c20f784e⟧ »DATA« 
        └─⟦1abbe589f⟧ 
            └─⟦591c5b094⟧ 
                └─⟦this⟧ 

TextFile

with Text_Io;

with Vstring_Type;
use Vstring_Type;

package body Error_Log is

--\f

    procedure Log_Error (Msg : E_String) is
    begin
        Log_Error (To_String (Msg));
    end Log_Error;

--\f

    procedure Log_Error (Msg : String) is
------------------------------------------------------------------------------
-- Log an error message using the local system conventions.  This indicates
-- that someting has gone actively wrong.
------------------------------------------------------------------------------
    begin

        Text_Io.Put ("*** ");
        Text_Io.Put_Line (Msg);

    end Log_Error;

--\f

    procedure Log_Info (Msg : E_String) is
    begin
        Log_Info (To_String (Msg));
    end Log_Info;

--\f

    procedure Log_Info (Msg : String) is
------------------------------------------------------------------------------
-- Log an informational message using the local system conventions.  This
-- indicates that someting "interesting" is/has happening/ed.
------------------------------------------------------------------------------
    begin

        Text_Io.Put ("+++ ");
        Text_Io.Put_Line (Msg);

    end Log_Info;

--\f

    procedure Log_State (Msg : E_String) is
    begin
        Log_State (To_String (Msg));
    end Log_State;

--\f

    procedure Log_State (Msg : String) is
------------------------------------------------------------------------------
-- Log a program state message using the local system conventions.  This
-- indicates that the program is about to enter some major stage of processing.
------------------------------------------------------------------------------
    begin

        Text_Io.Put ("::: ");
        Text_Io.Put_Line (Msg);

    end Log_State;

--\f

    procedure Log_Cont (Msg : E_String) is
    begin
        Log_Cont (To_String (Msg));
    end Log_Cont;

--\f

    procedure Log_Cont (Msg : String) is
------------------------------------------------------------------------------
-- Log an informational message using the local system conventions.  This
-- indicates that someting "interesting" is/has happening/ed.
------------------------------------------------------------------------------
    begin

        Text_Io.Put ("--- ");
        Text_Io.Put_Line (Msg);

    end Log_Cont;

--\f

end Error_Log;