StdLog.txt 403 B

1234567891011121314151617181920212223242526272829
  1. MODULE StdLog;
  2. (* for Dev *)
  3. IMPORT Console, Strings;
  4. PROCEDURE Char* (c: CHAR);
  5. BEGIN
  6. Console.WriteChar(c)
  7. END Char;
  8. PROCEDURE String* (IN s: ARRAY OF CHAR);
  9. BEGIN
  10. Console.WriteStr(s)
  11. END String;
  12. PROCEDURE Int* (x: LONGINT);
  13. VAR s: ARRAY 32 OF CHAR;
  14. BEGIN
  15. Strings.IntToString(x, s);
  16. Console.WriteStr(s)
  17. END Int;
  18. PROCEDURE Ln*;
  19. BEGIN
  20. Console.WriteLn
  21. END Ln;
  22. END StdLog.