[Oberon] System.Directory options

Paul Reed paulreed at paddedcell.com
Sun Oct 22 23:39:36 CEST 2017

>> 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*)

Maybe I'm missing something (and at the risk of flogging another dead
horse), surely the IF statement is unnecessary?

If ch is "!" then we want to put it in pat[i+1], if not then since
PROCEDURE List only compares with that value, any other one will do.  So
that's why I suggested putting ch in in both cases.

FWIW, I was also concerned about what would have to change if another
option was added.

Paul (bracing myself!) :)

More information about the Oberon mailing list