view _misc/tools/.svn/text-base/getFileDependencies.m.svn-base @ 8:b5b38998ef3b

added all that other stuff

function list =  getFileDependencies(file)
% searches the paths of the .m-Files the given file is using. This function
% depends on the depfun-Function of Matlab. Though it is not guaranteed,
% that all files will be found. E.g. files in evaluate-constructs won't be
% found!!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Parameters:
%     - file: the file for which the dependencies should be searched. This
%             could be only a string with the function-name, the filename
%             or the path to a file.
%
% Returns:
%     - list: a cell-Array with the paths to all files the given file uses
%             as strings. list is -1 if an error occured while processing.
%             See errormessage for details.
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% author:   Torsten Hopp
% last change: 03.07.2007
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% checking the input-parameter
if(isempty(file))
    disp('ERROR. Input Parameter is empty')
    list = -1;
    return;
end
if(~ischar(file))
    disp('ERROR. Input Parameter is not char')
    list = -1;
    return;
end


% list: a cell-array for the result
list = {which(file)};
% fileList: array of strings to search in the current iteration
fileList = list;

% While new files where found in last iteration
while (~isempty(fileList))
    fileListSize = length(fileList);
    newOnes = [];
    newCounter = 1;
    currentFileList = fileList;
    fileList = [];

    % running trough the current file list
    for k=1:fileListSize
        % calling depfun. -toponly indicates non-recursive search. -quiet
        % suppresses output to command line
        templist = depfun(currentFileList{k},'-toponly','-quiet');

        % the first file is already included 
        templist(1) = []; 
        
        % calling the helper-function to delete files which contain
        % <matlabroot> in the path from the list.
        templist = deleteMatlabFiles(templist);

        listSize = length(list);
        tempListSize = length(templist);

        % excluding first iteration with this if-clause
        if(listSize > 1)

            % comparing lists --> Searching for files that are not in the
            % list yet
            for i=1:tempListSize
                contained = 0;
                j=1;
                % first condition stops comparing if something was found.
                while contained == 0 & j<=listSize
                    if((strcmp(templist{i},list{j})==1) )
                        contained = 1;
                    end
                    j = j+1;
                end

                % if file isn't in the list yet...
                if(contained == 0)

                    % add it to a cellArray for new filenames...
                    % if-clause excludes first run with empty
                    % newOnes-variable
                    if(~isempty(newOnes))

                        % if not first run: comparing the filename with the
                        % filenames that are in the newOnes-List to avoid
                        % double-enties
                        a = strfind(newOnes,templist{i});
                        counter = 0;
                        for p=1:length(a)
                            if(~isempty(a{p}))
                                counter = counter +1;
                            end
                        end
                        % if not found in list: add it to the list!
                        if(counter==0)
                            newOnes{newCounter} = templist{i};
                            newCounter = newCounter + 1;
                        end
                    else
                        % if list is empty: add it without checking!
                        newOnes{newCounter} = templist{i};
                        newCounter = newCounter + 1;
                    end
                end
            end

            % if new filenames where found in this run...
            if(~isempty(newOnes))
                % ... search the new found files in the next iteration
                fileList = [fileList newOnes];
                % ... add the new found files to the list
                list(length(list)+1:length(list)+length(newOnes)) = newOnes;
                newOnes = [];
                newCounter = 1;
            end
        else
            % if first iteration: set the first-level dependecies as
            % filelist for next iteration and add them to the list.
            fileList = templist;
            list = [list; templist];
        end
    end
end


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% HELPER FUNCTIONS                                                        %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


function rList = deleteMatlabFiles(pList)
% deletes filenames with matlabroot in path from the given list.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Parameters:
%     - pList: a cell-Array of filenames as string
%
% Returns:
%     - rList: a cell-Array of filenames as string
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
excludedDir = matlabroot;
indexes = strfind(pList,excludedDir);
keepIndexes = cellfun(@isempty,indexes);
rList = pList(keepIndexes);