Subversion Repositories Kolibri OS

Rev

Rev 7696 | Go to most recent revision | 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 
 
7696 akron1 4 
    Copyright (c) 2018-2019, 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 Hex* (x, n: INTEGER);
37 
VAR
38 
    s: ARRAY 24 OF CHAR;
39 
 
7597 akron1 40 
BEGIN
7693 akron1 41 
    STRINGS.IntToHex(x, s, n);
42 
    String(s)
43 
END Hex;
44 
 
45 
 
46 
PROCEDURE Int2* (x: INTEGER);
47 
BEGIN
48 
    IF x < 10 THEN
7597 akron1 49 
        String("0")
50 
    END;
7693 akron1 51 
    Int(x)
7597 akron1 52 
END Int2;
53 
 
54 
 
55 
PROCEDURE Ln*;
56 
BEGIN
57 
    String(UTILS.eol)
7693 akron1 58 
END Ln;
7597 akron1 59 
 
60 
 
61 
PROCEDURE StringLn* (s: ARRAY OF CHAR);
62 
BEGIN
63 
    String(s);
64 
    Ln
65 
END StringLn;
66 
 
67 
 
7693 akron1 68 
PROCEDURE IntLn* (x: INTEGER);
69 
BEGIN
70 
    Int(x);
7597 akron1 71 
    Ln
72 
END IntLn;
73 
 
74 
 
7693 akron1 75 
PROCEDURE Int2Ln* (x: INTEGER);
76 
BEGIN
77 
    Int2(x);
7597 akron1 78 
    Ln
79 
END Int2Ln;
80 
 
81 
 
7983 leency 82 
END CONSOLE.