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

fixed Oberon.Mod; now Oberon.DumpLog works.

Browse source 
Former-commit-id: 4e2da4f92e77fcce3db1291cbfafd2f430d7bac9
This commit is contained in:
norayr 2016-02-24 15:21:16 +04:00
parent 2991026809
commit aeadd58952
1 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -52,7 +52,7 @@ MODULE Oberon;
Texts.Append (Par^.text, W.buf); Texts.Append (Par^.text, W.buf);
END PopulateParams; END PopulateParams;
(*
PROCEDURE DumpLog*; PROCEDURE DumpLog*;
VAR R : Texts.Reader; VAR R : Texts.Reader;
ch : CHAR; ch : CHAR;
@ -64,6 +64,35 @@ MODULE Oberon;
Out.Char(ch); Out.Char(ch);
UNTIL R.eot; UNTIL R.eot;
END DumpLog; END DumpLog;
*)
PROCEDURE TextToString(VAR T : Texts.Text; VAR string : ARRAY OF CHAR);
VAR R : Texts.Reader;
ch : CHAR;
i : LONGINT;
BEGIN
COPY("", string);
Texts.OpenReader(R, T, 0);
i := 0;
WHILE Texts.Pos(R) < T.len DO
Texts.Read(R, ch);
string[i] := ch;
INC(i);
END;
(*string[i] := 0X;*)
END TextToString;
PROCEDURE DumpLog*;
VAR s : POINTER TO ARRAY OF CHAR;
BEGIN
NEW(s, Log.len + 1);
COPY("", s^);
TextToString(Log, s^);
Out.String(s^); Out.Ln;
NEW(Log);
Texts.Open(Log, "");
END DumpLog;
BEGIN BEGIN
NEW(Par); NEW(Par);
@ -72,4 +101,6 @@ BEGIN
OptionChar := '-'; OptionChar := '-';
Texts.Open(Par.text, ""); Texts.Open(Par.text, "");
PopulateParams; PopulateParams;
NEW(Log);
Texts.Open(Log, "");
END Oberon. END Oberon.