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

Logger extended

Browse source
This commit is contained in:
Ruben Shekspir 2019-04-21 12:20:40 +04:00
parent 052ecfbe12
commit d7a574ce89
2 changed files with 22 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

15
logger.Mod
View file

@ -23,6 +23,11 @@ BEGIN
Out.Int(number, GetDecas(number));
END LogInt;
PROCEDURE LogIntLn*(number: LONGINT);
BEGIN
LogInt(number);
Out.Ln();
END LogIntLn;
PROCEDURE LogNormalized*(number, normal: LONGINT);
VAR
@ -55,9 +60,17 @@ BEGIN
LogNormalized(min, 2);
Out.String("-");
LogNormalized(sec, 2);
Out.String(" ");
Out.String(" :- ");
Out.String(buff);
Out.Ln;
END Log;
PROCEDURE Char*(char: CHAR);
VAR
string :ARRAY 1 OF CHAR;
BEGIN
string[0] :=char;
Log(string);
END Char;
END Logger.