Subversion Repositories Kolibri OS

Rev

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

  1. (*
  2.     BSD 2-Clause License
  3.  
  4.     Copyright (c) 2018-2021, 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* (x: INTEGER);
  27. VAR
  28.     s: ARRAY 24 OF CHAR;
  29.  
  30. BEGIN
  31.     STRINGS.IntToStr(x, s);
  32.     String(s)
  33. END Int;
  34.  
  35.  
  36. PROCEDURE Int2* (x: INTEGER);
  37. BEGIN
  38.     IF x < 10 THEN
  39.         String("0")
  40.     END;
  41.     Int(x)
  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* (x: INTEGER);
  59. BEGIN
  60.     Int(x);
  61.     Ln
  62. END IntLn;
  63.  
  64.  
  65. PROCEDURE Int2Ln* (x: INTEGER);
  66. BEGIN
  67.     Int2(x);
  68.     Ln
  69. END Int2Ln;
  70.  
  71.  
  72. PROCEDURE Dashes*;
  73. BEGIN
  74.     StringLn("------------------------------------------------")
  75. END Dashes;
  76.  
  77.  
  78. END CONSOLE.