Subversion Repositories Kolibri OS

Rev

Rev 7597 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7597 Rev 7693
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2018, Anton Krotov
 4 
    Copyright (c) 2018, 2019, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 21... Line 21...
21 
        INC(i)
 21 
        INC(i)
22 
    END
 22 
    END
23 
END String;
 23 
END String;
Line 24... Line 24...
24 
 
 24 
 
25 
 
 25 
 
26 
PROCEDURE Int* (n: INTEGER);
 26 
PROCEDURE Int* (x: INTEGER);
Line 27... Line 27...
27 
VAR
 27 
VAR
28 
    s: ARRAY 32 OF CHAR;
 28 
    s: ARRAY 24 OF CHAR;
29 
 
 29 
 
30 
BEGIN
 30 
BEGIN
Line -... Line 31...
- 
 
 31 
    STRINGS.IntToStr(x, s);
- 
 
 32 
    String(s)
- 
 
 33 
END Int;
- 
 
 34 
 
- 
 
 35 
 
- 
 
 36 
PROCEDURE Hex* (x, n: INTEGER);
- 
 
 37 
VAR
- 
 
 38 
    s: ARRAY 24 OF CHAR;
- 
 
 39 
 
- 
 
 40 
BEGIN
31 
    STRINGS.IntToStr(n, s);
 41 
    STRINGS.IntToHex(x, s, n);
32 
    String(s)
 42 
    String(s)
33 
END Int;
 43 
END Hex;
34 
 
 44 
 
35 
 
 45 
 
36 
PROCEDURE Int2* (n: INTEGER);
 46 
PROCEDURE Int2* (x: INTEGER);
37 
BEGIN
 47 
BEGIN
Line 38... Line 48...
38 
    IF n < 10 THEN
 48 
    IF x < 10 THEN
39 
        String("0")
 49 
        String("0")
Line 53... Line 63...
53 
    String(s);
 63 
    String(s);
54 
    Ln
 64 
    Ln
55 
END StringLn;
 65 
END StringLn;
Line 56... Line 66...
56 
 
 66 
 
57 
 
 67 
 
58 
PROCEDURE IntLn* (n: INTEGER);
 68 
PROCEDURE IntLn* (x: INTEGER);
59 
BEGIN
69 
BEGIN
60 
    Int(n);
 70 
    Int(x);
Line 61... Line 71...
61 
    Ln
 71 
    Ln
62 
END IntLn;
 72 
END IntLn;
63 
 
 73 
 
64 
 
 74 
 
65 
PROCEDURE Int2Ln* (n: INTEGER);
 75 
PROCEDURE Int2Ln* (x: INTEGER);
Line 66... Line 76...
66 
BEGIN
76 
BEGIN
67 
    Int2(n);
 77 
    Int2(x);