Реализовано несколько процедур записи в Files, исправление проблем в SYSTEM и Oberon

[dsw-obn.git] / rtl / Oberon.obn

diff --git a/rtl/Oberon.obn b/rtl/Oberon.obn
index 6282f4e4acd3bc1ab45cf0a56c6cb24f3877e948..3316b850ea9e30bfd4b0c82eac8f77994fb0a1b3 100644 (file)
--- a/rtl/Oberon.obn
+++ b/rtl/Oberon.obn
@@ -29,6 +29,7 @@ BEGIN
   i := 1;
   WHILE i < Args.count DO
     Args.GetArg(i, str); Texts.WriteString(W, str); Texts.Write(W, " ");
+    Out.String("Param "); Out.Int(i, 0); Out.Char(" "); Out.String(str); Out.Ln;
     INC(i)
   END;
   Texts.Append(Par.text, W.buf);
@@ -50,14 +51,9 @@ BEGIN
   END
 END LogNotifier;
 
-PROCEDURE StubNotifier(T: Texts.Text; op: INTEGER; beg, end: LONGINT);
-BEGIN
-END StubNotifier;
-
 BEGIN
   NEW(Par);
   NEW(Par.text);
-  Par.text.notify := StubNotifier;
   Par.pos := 0;
   Texts.Open(Par.text, "");
   PopulateParams;