#!/usr/bin/env instantfpc

{ List all .pas files in this directory, recursively. }

uses CastleFindFiles;

procedure FileCallback(const FileInfo: TFileInfo; Data: Pointer; var StopSearch: boolean);
begin
  Writeln(FileInfo.URL);
end;

begin
  FindFiles('*.pas', false, @FileCallback, nil, [ffRecursive]);
end.
