[Oberon] OLR and data storage.

[Peter Matthias]

Hello Jan,

your Match procedure needs the filename to end with 0X, 0X (two times 
0X). If the filesystem does that, it works. If not, not.

Adding
n:=0;
WHILE name[n]#0 DO INC(n) END;
name[n+1]:=0X;
at the beginning of your Match procedure obviously fixes the problem.

You can also call Match directly to see the bug:
mask:="*.Mod"
name:="ABCD.Mod"
name:="123";
IF Match(mask, name) THEN ...

Regards,
	Peter


Am 07.10.2015 um 17:51 schrieb Jan de Kruyf:
> Hallo Peter,
>
> Could you send me your test cases please.
> I would like to duplicate your findings and see where I went wrong.
>
> Cheers,
>
> j.
>
>
> On Tue, Oct 6, 2015 at 10:21 PM, Peter Matthias <PeterMatthias at web.de
> <mailto:PeterMatthias at web.de>> wrote:
>
>     Am 23.09.2015 um 17:26 schrieb Peter Easthope:
>
>         Hello,
>
>         In OLR, has anyone found a way to store user data separately
>         from OLR system data?  As a specific example, OLR is installed
>         in /home/peter/olr on the HDD.  User data is in a SDHC card.
>         The SDHC can be mounted at /home/peter/olr/SDHC.
>
>         ls /home/peter/olr/SDHC/* shows the contents of the SDHC.
>         System.Directory ./SDHC/* ~ shows nothing.
>
>         Does anyone have a clever solution?
>
>
>     Hi Peter,
>
>     I updated OLR.FileDir.Mod . File is here:
>     oberon.wdfiles.com/local--files/start/OLR.FileDir.Mod
>     <http://oberon.wdfiles.com/local--files/start/OLR.FileDir.Mod>
>     (and at http://oberon.wikidot.com/start in "Get OLR" section)
>     download, store in olr directory and compile the module.
>
>     I did not update to Jan's matching procedure because I also get
>     wrong matches there.
>
>     Regards,
>              Peter
>
>     --
>     Oberon at lists.inf.ethz.ch <mailto:Oberon at lists.inf.ethz.ch> mailing
>     list for ETH Oberon and related systems
>     https://lists.inf.ethz.ch/mailman/listinfo/oberon
>
>
>
>
> --
> Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems
> https://lists.inf.ethz.ch/mailman/listinfo/oberon
>