[Oberon] PO2013 - Texts

Tomas Kral thomas.kral at email.cz
Sat May 30 09:29:13 CEST 2020


Looking at some late changes to Texts.Mod.
I do not quite get why in Texts.Read we remove commented part below?

  PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
  BEGIN Files.Read(R.rider, ch);
    R.fnt := R.ref.fnt; R.col := R.ref.col; R.voff := R.ref.voff;
    IF R.off = R.ref.len THEN
      IF R.ref.f = TrailerFile THEN R.eot := TRUE END;
      (*R.org := R.org + R.off; R.off := 0;*) (*removed*)
      R.ref := R.ref.next; R.org := R.org + R.off; R.off := 0;
      Files.Set(R.rider, R.ref.f, R.ref.off)
  END Read;

Also this comment suggests there is a "1" after text tag.

     (* TextBlock = TextTag "1" offset run {run} "0" len {AsciiCode}.
      run = fnt [name] col voff len. *)

Tomas Kral <thomas.kral at email.cz>

More information about the Oberon mailing list