|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Error_Log, seg_00582d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Text_Io; with Vstring_Type; use Vstring_Type; package body Error_Log is --\x0c procedure Log_Error (Msg : E_String) is begin Log_Error (To_String (Msg)); end Log_Error; --\x0c 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; --\x0c procedure Log_Info (Msg : E_String) is begin Log_Info (To_String (Msg)); end Log_Info; --\x0c 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; --\x0c procedure Log_State (Msg : E_String) is begin Log_State (To_String (Msg)); end Log_State; --\x0c 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; --\x0c procedure Log_Cont (Msg : E_String) is begin Log_Cont (To_String (Msg)); end Log_Cont; --\x0c 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; --\x0c end Error_Log;
nblk1=3 nid=0 hdr6=6 [0x00] rec0=26 rec1=00 rec2=01 rec3=02a [0x01] rec0=24 rec1=00 rec2=02 rec3=012 [0x02] rec0=0d rec1=00 rec2=03 rec3=000 tail 0x21500ae2c81978ec8a512 0x42a00088462063203