findfiles.m

function files = findfiles(pattern, directory)
%FINDFILES Recursively find files.
%   FILES = FINDFILES(PATTERN) returns a cell array of strings containing
%   the full paths of all files in the current directory the filenames of
%   which matches PATTERN.
%
%   FILES = FINDFILES(PATTERN, DIRECTORY) searches in DIRECTORY instead of
%   the current working directory.

%   Copyright (c) 2017, Sebastian Berger.
%
%   Klinikum rechts der Isar der
%   Technischen Universitaet Muenchen
%   Munich, Germany
%
%   All rights reserved.
%
%   Redistribution and use in source and binary forms, with or without
%   modification, are permitted provided that the following conditions are
%   met:
%       * Redistributions of source code must retain the above copyright
%         notice, this list of conditions and the following disclaimer.
%       * Redistributions in binary form must reproduce the above copyright
%         notice, this list of conditions and the following disclaimer in
%         the documentation and/or other materials provided with the
%         distribution.
%       * Neither the names of the copyright holders nor the names of its
%         contributors may be used to endorse or promote products derived
%         from this software without specific prior written permission.
%
%   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
%   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
%   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
%   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR
%   THE KLINIKUM RECHTS DER ISAR BE LIABLE FOR ANY DIRECT, INDIRECT,
%   INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
%   BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
%   LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
%   AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
%   OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
%   THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
%   DAMAGE.

% Check input arguments
narginchk(1, 2);

% Current directory is default
if nargin == 1
    directory = pwd();
end

% Get content of directory
subdirs = dir(directory);

% Any valid directory will at least contain '.' and '..' subdirectories
if isempty(subdirs)
    error('Invalid path: %s.', directory);
end

% Filter for subdirectories
skip = ~[subdirs.isdir]            | ... skip non-directories
       strcmp({subdirs.name}, '.') | ... skip current directory
       strcmp({subdirs.name}, '..'); %   skip parent directory

subdirs(skip) = [];

% Recursively search for pattern in subdirectories
fcn = str2func(mfilename);
files = {};
for subdir = subdirs'
    files = [files; fcn(pattern, fullfile(directory, subdir.name))];
end

% Search for files matching pattern in current top directory
found = dir(fullfile(directory, pattern));
files = [files; fullfile(directory, {found.name}')];