|
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 - downloadIndex: ┃ B T ┃
Length: 721 (0x2d1)
Types: TextFile
Names: »B«
└─⟦bfaa708f6⟧ Bits:30000531 8mm tape, Rational 1000, INSIGHT 1_3_0
└─ ⟦c51948655⟧ »DATA«
└─⟦266b31e86⟧
└─⟦this⟧
with Io;
package body Log_Writer is
F : Io.File_Type;
function Fit (S : String; W : Natural) return String is
begin
if S'Length >= W then
return S;
else
return S & String'(1 .. W - S'Length => ' ');
end if;
end Fit;
procedure Log_Message (Client : String; Message : String) is
begin
--Io.Put_Line (F, Fit (Client & ": ", 18) & Message);
Io.Put_Line (Fit (Client & ": ", 18) & Message);
--Io.Save (F);
end Log_Message;
procedure Set_Time (Time : Calendar.Time) is
begin
[statement]
end Set_Time;
--begin
-- -- initialize log file
-- Io.Create (F, Io.Out_File, "Test_Log_File");
end Log_Writer;