view toolboxes/MIRtoolbox1.3.2/MIRToolbox/mircompute.m @ 0:e9a9cd732c1e tip

first hg version after svn

function varargout = mircompute(algo,varargin)

l = length(varargin{1});    % number of audio files.
for i = 1:l
    % for each audio file
    v = varargin;
    for j = 1:length(v)
        % for each variable associated to that audio
        if isa(v{j},'mirdata')
            v{j} = get(v{j},'Data');
        end
        if iscell(v{j})
            v{j} = v{j}{i};
        end
        %if not(iscell(v{j}))
        %    v{j} = {v{j}};
        %end
    end
    % final result for that audio
    for k = 1:length(v{1})
        % for each segment in that audio file
        vk = v;
        for j = 1:length(vk)
            if iscell(vk{j})
                vk{j} = vk{j}{k};
            end
        end
        if 1 %nargout == 1 
            res = algo(vk{:});
        else %% used for miremotion, provokes bug else...
            [res res2 res3 res4] = algo(vk{:}); 
        end
        if iscell(res)
            lr = length(res);
            for j = 1:lr
                varargout{j}{i}{k} = res{j};
            end
        else
            varargout{1}{i}{k} = res;
            if nargout == 4
                varargout{2}{i}{k} = res2;
                varargout{3}{i}{k} = res3;
                varargout{4}{i}{k} = res4;
            end
        end
    end
end