Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
7597 akron1 1 
(*
2 
    BSD 2-Clause License
3 
 
4 
    Copyright (c) 2018, Anton Krotov
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 
 
26 
PROCEDURE Int* (n: INTEGER);
27 
VAR
28 
    s: ARRAY 32 OF CHAR;
29 
 
30 
BEGIN
31 
    STRINGS.IntToStr(n, s);
32 
    String(s)
33 
END Int;
34 
 
35 
 
36 
PROCEDURE Int2* (n: INTEGER);
37 
BEGIN
38 
    IF n < 10 THEN
39 
        String("0")
40 
    END;
41 
    Int(n)
42 
END Int2;
43 
 
44 
 
45 
PROCEDURE Ln*;
46 
BEGIN
47 
    String(UTILS.eol)
48 
END Ln;
49 
 
50 
 
51 
PROCEDURE StringLn* (s: ARRAY OF CHAR);
52 
BEGIN
53 
    String(s);
54 
    Ln
55 
END StringLn;
56 
 
57 
 
58 
PROCEDURE IntLn* (n: INTEGER);
59 
BEGIN
60 
    Int(n);
61 
    Ln
62 
END IntLn;
63 
 
64 
 
65 
PROCEDURE Int2Ln* (n: INTEGER);
66 
BEGIN
67 
    Int2(n);
68 
    Ln
69 
END Int2Ln;
70 
 
71 
 
72 
END CONSOLE.