vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Formatting

Browse source
This commit is contained in:
Ruben Shekspir 2019-04-21 11:31:43 +04:00
parent 3aa2bcec3e
commit e4232275bf
7 changed files with 40 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

24
logger.Mod
View file

@ -1,23 +1,35 @@
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);
Out.Int(year, 4);
LogInt(year);
Out.String("/");
Out.Int(month, 2);
LogInt(month);
Out.String("/");
Out.Int(day, 2);
LogInt(day);
Out.String(" ");
Out.Int(hour, 2);
LogInt(hour);
Out.String("-");
Out.Int(min, 2);
LogInt(min);
Out.String("-");
Out.Int(sec, 2);
LogInt(sec);
Out.String(" ");
Out.String(buff);
Out.Ln;