g_ls.m

function [ FolderFileList ] = g_ls(input)
%
%__________________________________________________________________________
% SUMMARY OF G_LS
% 
% List the folders or the files under the path user inputs according to
% users' needs
%
% SYNTAX:
% 
% 1) g_ls( input )
%__________________________________________________________________________
% INPUTS:
%
% INPUT
%        (string) 
%        The full path of the NIfTI data.
%__________________________________________________________________________
% OUTPUTS:
%         
% Cell of strings, each of which is the full path of folder or the file 
% under the folder user inputs.     
%__________________________________________________________________________
% COMMENTS:
%
% Copyright (c) Zaixu Cui, Gaolang Gong, State Key Laboratory of Cognitive
% Neuroscience and Learning, Beijing Normal University, 2012.
% Maintainer: zaixucui@gmail.com
% See licensing information in the code
% keywords: dir
% Please report bugs or requests to:
%   Zaixu Cui:         <a href="zaixucui@gmail.com">zaixucui@gmail.com</a>
%   Suyu Zhong:        <a href="suyu.zhong@gmail.com">suyu.zhong@gmail.com</a>
%   Gaolang Gong (PI): <a href="gaolang.gong@gmail.com">gaolang.gong@gmail.com</a>

% Permission is hereby granted, free of charge, to any person obtaining a
% copy of this software and associated documation files, to deal in the
% Software without restriction, including without limitation the rights to
% use, copy, modify, merge, publish, distribute, sublicense, and/or sell
% copies of the Software, and to permit persons to whom the Software is
% furnished to do so, subject to the following conditions:
%
% The above copyright notice and this permission notice shall be included
% in all copies or substantial portions of the Software.
%
% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS 
% OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 
% MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
% NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, 
% DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR 
% OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
% USE OR OTHER DEALINGS IN THE SOFTWARE.

% Replace string '//', '///', ... with '/'
tmp_ls = input;
input = '';
input(1) = tmp_ls(1);
m = 1;
for i = 2:length(tmp_ls)
    if tmp_ls(i) == filesep & tmp_ls(i - 1) == filesep
        continue;
    else
        m = m + 1;
        input(m) = tmp_ls(i);
    end
end

% Separate the path
SeprateLocations = find(input == filesep);
SeprateQuantity = length(SeprateLocations);
for i = 1:SeprateQuantity - 1
    PathUnits{i} = input(SeprateLocations(i) + 1:SeprateLocations(i + 1) - 1);
end
if input(end) ~= filesep
    PathUnits{SeprateQuantity} = input(SeprateLocations(SeprateQuantity) + 1:end);
end

% Initialize the Result folders & files List
FolderFileList{1} = filesep;

% Get all the folders & files user needs
for i = 1:length(PathUnits)
    % Seek all the index of '*'
    StarSymbolIndex = find(PathUnits{i} == '*');
    StarSymbolQuantity = length(StarSymbolIndex);
           
    if ~StarSymbolQuantity
        for j = 1:length(FolderFileList)
            if exist(FolderFileList{j}, 'dir')
                if FolderFileList{j} == filesep
                    FolderFileList{j} = [FolderFileList{j} PathUnits{i}];
                else
                    FolderFileList{j} = [FolderFileList{j} filesep PathUnits{i}];
                end
            else
                FolderFileList{j} = '';
            end
        end
    else
        WholeSubDirFile = [];
        Quantity = 0;
        for j = 1:length(FolderFileList)
        % Search all the subfolders and subfiles that meet the rule of PathUnits{i}

            % Seek all the subfolders and subfiles under the folders of FoldersList
            SubDirFile = [];
            if isdir(FolderFileList{j})
                SubDirFile = dir(FolderFileList{j});
                SubDirFile = {SubDirFile.name};
            end

            % Judge whether the folder & file in WholeSubDirFile meet the rule of PathUnits{i}
            for m = 1:length(SubDirFile)
                if ~StarSymbolQuantity
                    % No star symbol
                    if ~strcmp(SubDirFile{m}, PathUnits{i})
                        SubDirFile{m} = '';
                    end
                else
                    if PathUnits{i}(1) ~= '*'
                        Prefix = PathUnits{i}(1:StarSymbolIndex(1) - 1);
                        if length(SubDirFile{m}) >= length(Prefix)
                            if ~strcmp(Prefix, SubDirFile{m}(1:length(Prefix)))
                                SubDirFile{m} = '';
                            end
                        else
                            SubDirFile{m} = '';
                        end
                    end
                    if PathUnits{i}(end) ~= '*'
                        Suffix = PathUnits{i}(StarSymbolIndex(end) + 1:end);
                        if length(SubDirFile{m}) >= length(Suffix)
                            if ~strcmp(Suffix, SubDirFile{m}(end - length(Suffix) + 1:end))
                                SubDirFile{m} = '';
                            end
                        else
                            SubDirFile{m} = '';
                        end
                    end

                    for t = 1:StarSymbolQuantity - 1
                        Unit = PathUnits{i}(StarSymbolIndex(t) + 1:StarSymbolIndex(t + 1) - 1);
                        if isempty(findstr(SubDirFile{m}, Unit))
                            SubDirFile{m} = '';
                        end
                    end
                end

                if ~isempty(SubDirFile{m})
                    if ~strcmp(SubDirFile{m}, '.') & ~strcmp(SubDirFile{m}, '..')
                        Quantity = Quantity + 1;
                        if strcmp(FolderFileList{j}, filesep)
                            SubDirFile{m} = [FolderFileList{j} SubDirFile{m}];
                            WholeSubDirFile{Quantity} = SubDirFile{m};
                        else
                            SubDirFile{m} = [FolderFileList{j} filesep SubDirFile{m}];
                            WholeSubDirFile{Quantity} = SubDirFile{m};
                        end
                    end
                end
            end  
        end
        FolderFileList = WholeSubDirFile;
    end
end

for i = 1:length(FolderFileList)
    if ~exist(FolderFileList{i}, 'file')
        FolderFileList{i} = '';
    end
end

tmp_ls = FolderFileList;
FolderFileList = '';
j = 0;
for i = 1:length(tmp_ls)
    [a,Name,~]=fileparts(tmp_ls{i}); %%xixi
    if ~isempty(Name) %%xixi~isempty(tmp_ls{i})
       j = j + 1;
       FolderFileList{j} = tmp_ls{i};
    end
end

if input(end) == filesep
    tmp_ls = FolderFileList;
    FolderFileList = '';
    j = 0;
    for i = 1:length(tmp_ls)
        if isdir(tmp_ls{i})
            j = j + 1;
            FolderFileList{j} = tmp_ls{i};
        end
    end
end

FolderFileList = reshape(FolderFileList, length(FolderFileList), 1);