From b00409910cd9993beff1e0378edd9dee19542e36 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Tue, 15 Sep 2015 19:16:46 +0400
Subject: [PATCH] added DumpLog function to Oberon module; -- noch

Former-commit-id: 6433d592bb89eabd320c878306b93395c8936b24
---
 src/lib/v4_compat/Oberon.Mod | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/lib/v4_compat/Oberon.Mod b/src/lib/v4_compat/Oberon.Mod
index 89b111b8..3a8038c0 100644
--- a/src/lib/v4_compat/Oberon.Mod
+++ b/src/lib/v4_compat/Oberon.Mod
@@ -2,7 +2,7 @@ MODULE Oberon;
 
 (* this version should not have dependency on graphics -- noch *)
 
-  IMPORT Kernel, Texts, Args;
+  IMPORT Kernel, Texts, Args, Out := Console;
   TYPE
 
     ParList* = POINTER TO ParRec;
@@ -53,6 +53,18 @@ MODULE Oberon;
 
   END PopulateParams;
 
+  PROCEDURE DumpLog*;
+  VAR R : Texts.Reader;
+      ch : CHAR;
+  BEGIN
+     Texts.OpenReader(R, Log, 0);
+
+     REPEAT
+	    Texts.Read(R, ch);
+	    Out.Char(ch); 
+	 UNTIL R.eot;
+  END DumpLog;
+
 BEGIN
    NEW(Par);
    NEW(Par.text);