mfbox_checkparam.m

来自「toolbox for spm 5 for data, model free a」· M 代码 · 共 25 行

function d=mfbox_checkparam(p,t,n,d,e)
% Copyright by Peter Gruber and Fabian J. Theis
% Signal Processing & Information Theory group
% Institute of Biophysics, University of Regensburg, Germany
% Homepage: http://research.fabian.theis.name
%           http://www-aglang.uni-regensburg.de
%
% This file is free software, subject to the 
% GNU GENERAL PUBLIC LICENSE, see gpl.txt

if (nargin<5) e = 'stable'; end

if (isstruct(p))
    if (isfield(p,'type'))
        if ((isfield(p.type,'type'))&&(isfield(p.type,'name')))
            if ((strcmp(p.type.type,t))&&(strcmp(p.type.name,n)))
                f = fieldnames(d);
                for i=1:length(f), if (isfield(p,f{i})), d.(f{i}) = p.(f{i}); end, end
            end
        end
    end
end
d.type = struct('type',t,'name',n,'status',e);