OberonCore

MODULE MFile;
 IMPORT Files,StdLog,Stores;
VAR
 l:Files.Locator;
 li:Files.LocInfo;
PROCEDURE do*;
BEGIN
 l:=Files.dir.This("c:\temp\");
 li:=Files.dir.LocList(l);
 HALT(0);
END do;
 END MFile.

...
 l:=Files.dir.This("c:\temp\"); ASSERT(l.res = 0, 100);
 li:=Files.dir.LocList(l); ASSERT(l.res = 0, 101);
...

MODULE MFile;
 IMPORT Files,StdLog,Stores,TextViews,TextModels,TextMappers,
Views,In;
VAR
 l:Files.Locator;
 li:Files.LocInfo;
 lf:Files.FileInfo;
PROCEDURE do*;
 VAR
  w:TextViews.View;
  tm:TextModels.Model;
  txt:TextMappers.Formatter;
  s:ARRAY(200) OF CHAR;
BEGIN
 In.Open;
 In.String(s);
 l:=Files.dir.This(s);
[b] li:=Files.dir.LocList(l);
 lf:=Files.dir.FileList(l); [/b]
 IF  (li#NIL) OR (lf#NIL)  THEN

  tm:=TextModels.dir.New();
  txt.ConnectTo(tm);
  w:=TextViews.dir.New(tm);
  Views.OpenView(w);
 
    WHILE (li#NIL) DO
      txt.WriteString(li.name); txt.WriteLn;
      li:=li.next;
    END;

    WHILE (lf#NIL) DO
      txt.WriteString(lf.name); txt.WriteLn;
      lf:=lf.next;
    END;

 END;
END do;
 
END MFile.
MFile.do;
"c:\temp"