Subversion Repositories Kolibri OS

Rev

Rev 7983 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
7983 leency 1 
(*
7597 akron1 2 
    BSD 2-Clause License
3 
 
8859 leency 4 
    Copyright (c) 2018-2021, Anton Krotov
7597 akron1 5 
    All rights reserved.
6 
*)
7 
 
8 
MODULE CONSOLE;
9 
 
10 
IMPORT UTILS, STRINGS;
11 
 
12 
 
13 
PROCEDURE String* (s: ARRAY OF CHAR);
14 
VAR
15 
    i: INTEGER;
16 
 
17 
BEGIN
18 
    i := 0;
19 
    WHILE (i < LEN(s)) & (s[i] # 0X) DO
20 
        UTILS.OutChar(s[i]);
21 
        INC(i)
22 
    END
23 
END String;
24 
 
25 
 
7693 akron1 26 
PROCEDURE Int* (x: INTEGER);
7597 akron1 27 
VAR
7693 akron1 28 
    s: ARRAY 24 OF CHAR;
7597 akron1 29 
 
30 
BEGIN
7693 akron1 31 
    STRINGS.IntToStr(x, s);
7597 akron1 32 
    String(s)
33 
END Int;
34 
 
35 
 
7693 akron1 36 
PROCEDURE Int2* (x: INTEGER);
37 
BEGIN
38 
    IF x < 10 THEN
7597 akron1 39 
        String("0")
40 
    END;
7693 akron1 41 
    Int(x)
7597 akron1 42 
END Int2;
43 
 
44 
 
45 
PROCEDURE Ln*;
46 
BEGIN
47 
    String(UTILS.eol)
7693 akron1 48 
END Ln;
7597 akron1 49 
 
50 
 
51 
PROCEDURE StringLn* (s: ARRAY OF CHAR);
52 
BEGIN
53 
    String(s);
54 
    Ln
55 
END StringLn;
56 
 
57 
 
7693 akron1 58 
PROCEDURE IntLn* (x: INTEGER);
59 
BEGIN
60 
    Int(x);
7597 akron1 61 
    Ln
62 
END IntLn;
63 
 
64 
 
7693 akron1 65 
PROCEDURE Int2Ln* (x: INTEGER);
66 
BEGIN
67 
    Int2(x);
7597 akron1 68 
    Ln
69 
END Int2Ln;
70 
 
71 
 
8859 leency 72 
PROCEDURE Dashes*;
73 
BEGIN
74 
    StringLn("------------------------------------------------")
75 
END Dashes;
76 
 
77 
 
7983 leency 78 
END CONSOLE.