[Oberon] SystemV - Directory

[Jörg]

Hi Tomas

What exactly did you do?
I mean: How does your filename without extension look like and what System.Directory parameter did you use?

br
Jörg

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

    Hi,
    
    `System.Directory' on files w/o dot extension gives TRAP 1 around this
    line,
    
     ...
     IF (name[i0] = 0X) & (pat[j0] = 0X) THEN (*found*)
     ...
     END List;
    
    I have applied this patch on "!" option
     ...
     pat[i] := 0X; pat[i+1] := ch;  (*directory option*)
     (*IF ch = "!" THEN pat[i+1] := "!" END ;*)
     ...
     END Directory;
    
    What is a quick remedy?
    
    -- 
    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