[Oberon] System.Directory options

[Peter Matthias]

Am 22.10.2017 um 18:16 schrieb Paul Reed:
> Hi Peter,
> 
>> If you do "System.Directory *.mod!" and after that without "!" than you
>> get details on both outputs. "!" toggles the details for output without
>> "!".
> 
> Thank you for pointing this out.  Would you be happy with
> 
>      ...
>      WHILE ch > "!" DO pat[i] := ch; INC(i); Texts.Read(R, ch) END;
>      pat[i] := 0X;
>      IF ch = "!" THEN pat[i+1] := "!" END ;  (*directory option*)
>      ...
> 
> being changed to
> 
>      ...
>      WHILE ch > "!" DO pat[i] := ch; INC(i); Texts.Read(R, ch) END;
>      pat[i] := 0X; pat[i+1] := ch; (*directory option*)
>      ...

No. But

       WHILE ch > "!" DO pat[i] := ch; INC(i); Texts.Read(R, ch) END;
       pat[i] := 0X;
       IF ch = "!" THEN pat[i+1] := "!"
       ELSE pat[i+1]:= 0X
       END ;  (*directory option*)

works. Will someone care of the bugs?

Thanks,
	Peter