ruberon/source/CONSOLE.ob07

MODULE CONSOLE;

IMPORT UTILS IN "./utils/UTILS.ob07", 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.