[Oberon] SystemV - Directory

[Jörg]

Hi Tomas

 

Doesn't trap on my system.

 

But the option handling is indeed wrong and should be corrected.

Either you correct the wrong option handling with

   pat[i] := 0X;

   IF ch ="!" THEN pat[i+1] := "!" ELSE pat[i+1] := 0X END;

or as you did

   pat[i] := 0X;  pat[i+1] := ch;

 

Jörg

 

Am 06.01.19, 16:45 schrieb "Oberon im Auftrag von Tomas Kral" <oberon-bounces at lists.inf.ethz.ch im Auftrag von thomas.kral at email.cz>:

 

    On Sun, 6 Jan 2019 16:34:13 +0100

    Jörg <joerg.straube at iaeth.ch> wrote:

    

    > How does your filename without extension look like and what

    > System.Directory parameter did you use?

    

    Edit.Open Test ~ new file

    Test.Store

    System.Directory Test! ~

    System.Directory Test ~

    

    -- 

    Tomas Kral <thomas.kral at email.cz>

    --

    Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems

    https://lists.inf.ethz.ch/mailman/listinfo/oberon

    

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