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

http fianly works, not for bin files, unfortunately

Browse source
This commit is contained in:
Ruben Shekspir 2019-05-05 12:29:16 +04:00
parent 9273e64fc6
commit ab197c6483
3 changed files with 55 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
logger.Mod
View file

@ -1,5 +1,5 @@
MODULE Logger;
IMPORT time, Out;
IMPORT time, Out, Strings;
CONST
deca = 10;
@ -45,7 +45,7 @@ END LogNormalized;
PROCEDURE Log*(buff: ARRAY OF CHAR);
VAR
year, month, day, hour, min, sec: LONGINT;
year, month, day, hour, min, sec, i: LONGINT;
BEGIN
time.Now(year, month, day, hour, min, sec);
@ -61,7 +61,13 @@ BEGIN
Out.String("-");
LogNormalized(sec, 2);
Out.String(" :- ");
Out.String(buff);
FOR i:=0 TO Strings.Length(buff) DO
(* Out.Char(" ");
Out.Int(ORD(buff[i]), 4);
Out.Char("-"); *)
Out.Char(buff[i]);
(* Out.Char(" ");Out.Char(" ");Out.Char(" "); *)
END;
Out.Ln;
END Log;