[Oberon] FPGA Oberon - Lost file reclaim storage

[Jörg]

Thomas

 

Can you still enumerate the corrupted file?

I mean, will this program find your file?

 

MODULE myDir

 

IMPORT FileDir, Out;

 

PROCEUDRE List(name: FileDir.FileName; sec: INTEGER; VAR cont: BOOLEAN);

            BEGIN

                        Out.String(name); Out.Int(sec, 12); Out.Ln;

                        cont := TRUE

            END List;

 

PROCEDURE Do*;

            BEGIN

                        FileDir.Enumerate(“”, List)

            END Do;

BEGIN

END myDir.Do

 

 

From: Oberon [mailto:oberon-bounces at lists.inf.ethz.ch] On Behalf Of thomas.kral at email.cz
Sent: Dienstag, 21. März 2017 09:53
To: ETH Oberon and related systems <oberon at lists.inf.ethz.ch>
Subject: [Oberon] FPGA Oberon - Lost file reclaim storage

 

Hi,

 

On a very rare occasion, I happened to produce a file that has a corrupt header, wherby a dot '.' in its name is replaced by an invisible character.

 

Subsequent writing to the same file name resolved the situation and file was created normally. 

 

Now I am just thinking how I can reclaim the storage taken up by that lost file. Delete on its name fails, as the system does not see it as a regular file. 

 

Tomas

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.inf.ethz.ch/pipermail/oberon/attachments/20170322/f00aec4e/attachment.html>