Subversion Repositories Kolibri OS

Rev

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

  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.