%GETFILENAMES  Returns the filenames in a given directory
%
% Examples:
% 
% All files in directory 'imagedir'
%   getfilenames('imagedir')
%
% All '.tif' images in directory 'imagedir'
%   getfilenames('imagedir', '*.tif')
%
% Thorsten Hansen 2008-05-07
function filenames = getfilenames(dirname, pattern)

if nargin < 1
  dirname = pwd; % use present working directory if no arguments are given
end

if nargin < 2
  direc = dir(dirname); 
else
  direc = dir([dirname '/' pattern]); 
end

filenames = {};
[filenames{1:length(direc),1}] = deal(direc.name);

% remove '.' and '..' if present 
% in Unix/Linux, each directory has entries '.' meaning "this dir" and entry '..'
% meaning  "top dir"
valid_ind = find(~strcmp(filenames, '.') & ~strcmp(filenames, '..'));
[filenames{1:length(valid_ind)}] = deal(filenames{valid_ind});