|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 2274 (0x8e2)
Types: TextFile
Names: »B«
└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
└─⟦0c20f784e⟧ »DATA«
└─⟦1abbe589f⟧
└─⟦591c5b094⟧
└─⟦this⟧
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;