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

Log fixed

Browse source
This commit is contained in:
Ruben Shekspir 2019-04-21 12:02:39 +04:00
parent e4232275bf
commit 052ecfbe12
2 changed files with 37 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

2
.gitignore vendored
View file

@ -1 +1 @@
./builds builds/*

45
logger.Mod
View file

@ -1,35 +1,60 @@
MODULE Logger; MODULE Logger;
IMPORT time, Out; IMPORT time, Out;
PROCEDURE LogInt*(number: LONGINT); CONST
deca = 10;
PROCEDURE GetDecas(number: LONGINT): LONGINT;
VAR VAR
i: LONGINT; i: LONGINT;
BEGIN BEGIN
WHILE number>10 DO i := 1;
number := number DIV 10;
WHILE number > deca DO
number := number DIV deca;
INC(i); INC(i);
END; END;
Out.Int(number, i); RETURN i;
END GetDecas;
PROCEDURE LogInt*(number: LONGINT);
BEGIN
Out.Int(number, GetDecas(number));
END LogInt; END LogInt;
PROCEDURE LogNormalized*(number, normal: LONGINT);
VAR
decimals, i: LONGINT;
BEGIN
i:=0;
decimals := GetDecas(number);
WHILE decimals + i < normal DO
INC(i);
Out.Int(0, 1)
END;
LogInt(number);
END LogNormalized;
PROCEDURE Log*(buff: ARRAY OF CHAR); PROCEDURE Log*(buff: ARRAY OF CHAR);
VAR VAR
year, month, day, hour, min, sec: LONGINT; year, month, day, hour, min, sec: LONGINT;
BEGIN BEGIN
time.Now(year, month, day, hour, min, sec); time.Now(year, month, day, hour, min, sec);
LogInt(year); LogNormalized(year, 4);
Out.String("/"); Out.String("/");
LogInt(month); LogNormalized(month, 2);
Out.String("/"); Out.String("/");
LogInt(day); LogNormalized(day, 2);
Out.String(" "); Out.String(" ");
LogInt(hour); LogNormalized(hour, 2);
Out.String("-"); Out.String("-");
LogInt(min); LogNormalized(min, 2);
Out.String("-"); Out.String("-");
LogInt(sec); LogNormalized(sec, 2);
Out.String(" "); Out.String(" ");
Out.String(buff); Out.String(buff);
Out.Ln; Out.Ln;