mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
26 lines
No EOL
495 B
Modula-2
26 lines
No EOL
495 B
Modula-2
MODULE Logger;
|
|
IMPORT time, Out;
|
|
|
|
PROCEDURE Log*(buff: ARRAY OF CHAR);
|
|
VAR
|
|
year, month, day, hour, min, sec: LONGINT;
|
|
BEGIN
|
|
time.Now(year, month, day, hour, min, sec);
|
|
|
|
Out.Int(year, 4);
|
|
Out.String("/");
|
|
Out.Int(month, 2);
|
|
Out.String("/");
|
|
Out.Int(day, 2);
|
|
Out.String(" ");
|
|
Out.Int(hour, 2);
|
|
Out.String("-");
|
|
Out.Int(min, 2);
|
|
Out.String("-");
|
|
Out.Int(sec, 2);
|
|
Out.String(" ");
|
|
Out.String(buff);
|
|
Out.Ln;
|
|
END Log;
|
|
|
|
END Logger. |