[Oberon] PO2013 - Last sector allocated

Tomas Kral thomas.kral at email.cz
Fri Jun 26 09:58:21 CEST 2020


Hi,

It has sounded here earlier, it might be sometimes useful, to know
last sector used by OBERON.FS.

Could this hint where the sector lies?

  PROCEDURE LastSec(name: FileDir.FileName; sec : INTEGER; VAR cont: BOOLEAN);
  BEGIN
     IF sec > lsec THEN lsec := sec END ;
     cont := TRUE
  END LastSec;

  PROCEDURE Last*;
  BEGIN lsec := 0;
    FileDir.Enumerate("", LastSec); Texts.WriteInt(W, lsec, 6); Texts.WriteLn(W);
    Texts.Append(Oberon.Log, W.buf)
  END Last;

-- 
Tomas Kral <thomas.kral at email.cz>


More information about the Oberon mailing list