vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 19:12:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

added DumpLog function to Oberon module; -- noch

Browse source
This commit is contained in:
norayr 2015-09-15 19:16:46 +04:00
parent 8b66c787da
commit 6433d592bb
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/lib/v4_compat/Oberon.Mod
View file

@ -2,7 +2,7 @@ MODULE Oberon;
(* this version should not have dependency on graphics -- noch *) (* this version should not have dependency on graphics -- noch *)
IMPORT Kernel, Texts, Args; IMPORT Kernel, Texts, Args, Out := Console;
TYPE TYPE
ParList* = POINTER TO ParRec; ParList* = POINTER TO ParRec;
@ -53,6 +53,18 @@ MODULE Oberon;
END PopulateParams; 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 BEGIN
NEW(Par); NEW(Par);
NEW(Par.text); NEW(Par.text);