vipak/src/vpkLogger.Mod

MODULE vpkLogger;
IMPORT Out, Strings, vpkTime;

CONST
    deca = 10;

PROCEDURE GetDecas(number: LONGINT): LONGINT;
VAR 
    i: LONGINT;
BEGIN
    i := 1;

    WHILE number > deca DO
        number := number DIV deca;
        INC(i);
    END;

    RETURN i;
END GetDecas;

PROCEDURE LogInt*(number: LONGINT);
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
    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);
VAR 
    year, month, day, hour, min, sec, i: LONGINT;
BEGIN
    vpkTime.Now(year, month, day, hour, min, sec);
    
    LogNormalized(year, 4);
    Out.String("/");
    LogNormalized(month, 2);
    Out.String("/");
    LogNormalized(day, 2);
    Out.String(" "); 
    LogNormalized(hour, 2);
    Out.String("-"); 
    LogNormalized(min, 2);
    Out.String("-");
    LogNormalized(sec, 2);
    Out.String(" :- ");
    Out.String(buff)
END Log;

PROCEDURE Ln*;
BEGIN
  Out.Ln
END Ln;

PROCEDURE Char*(char: CHAR);
VAR 
    string :ARRAY 1 OF CHAR;
BEGIN
    string[0] :=char;
    Log(string);
END Char;

END vpkLogger.