ruberon/source/CONSOLE.ob07

(*
    BSD 2-Clause License

    Copyright (c) 2018-2021, Anton Krotov
    All rights reserved.
*)

MODULE CONSOLE;

IMPORT UTILS, STRINGS;


PROCEDURE String* (s: ARRAY OF CHAR);
VAR
    i: INTEGER;

BEGIN
    i := 0;
    WHILE (i < LEN(s)) & (s[i] # 0X) DO
        UTILS.OutChar(s[i]);
        INC(i)
    END
END String;


PROCEDURE Int* (x: INTEGER);
VAR
    s: ARRAY 24 OF CHAR;

BEGIN
    STRINGS.IntToStr(x, s);
    String(s)
END Int;


PROCEDURE Int2* (x: INTEGER);
BEGIN
    IF x < 10 THEN
        String("0")
    END;
    Int(x)
END Int2;


PROCEDURE Ln*;
BEGIN
    String(UTILS.eol)
END Ln;


PROCEDURE StringLn* (s: ARRAY OF CHAR);
BEGIN
    String(s);
    Ln
END StringLn;


PROCEDURE IntLn* (x: INTEGER);
BEGIN
    Int(x);
    Ln
END IntLn;


PROCEDURE Int2Ln* (x: INTEGER);
BEGIN
    Int2(x);
    Ln
END Int2Ln;


PROCEDURE Dashes*;
BEGIN
    StringLn("------------------------------------------------")
END Dashes;


END CONSOLE.