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