Homec4science
Diffusion iCAPs public (master) Browse

iCAPs/packages/spm12/matlabbatch/gencode_substructcode.m
31022b3a13e6master

Last Change
Raw File

gencode_substructcode.m
View Options

function str = gencode_substructcode(subs, name)
% GENCODE_SUBSTRUCTCODE Create code for a subscript structure
% Generate MATLAB code (using SUBSTRUCT) to create subscript structure
% subs. See help on SUBSTRUCT, SUBSASGN and SUBSREF for details how
% subscript structures are used.
%
% str = gencode_substructcode(subs, name)
% Input arguments:
% subs - a subscript structure
% name - optional: name of variable
% Output arguments:
% str - a one-line cellstr containing a call to SUBSTRUCT that returns
% an substruct equivalent to subs.
% If name is supplied as input argument, the generated code will assign
% the output of SUBSTRUCT to the variable 'name'.
% then only the rhs of the expression will be returned.
% For '()' and '{}' also pseudo subscripts are allowed: if subs.subs{...}
% is a string, it will be printed literally, even if it is not equal to
% ':'. This way, one can create code snippets that contain e.g. references
% to a loop variable by name.
%
% See also GENCODE, GENCODE_RVALUE, GENCODE_SUBSTRUCT.
%
% This code has been developed as part of a batch job configuration
% system for MATLAB. See
% http://sourceforge.net/projects/matlabbatch
% for details about the original project.
%_______________________________________________________________________
% Copyright (C) 2007 Freiburg Brain Imaging
% Volkmar Glauche
% $Id: gencode_substructcode.m 3355 2009-09-04 09:37:35Z volkmar $
rev = '$Rev: 3355 $'; %#ok
ind = 1;
if nargin < 2
name = '';
end
if ~isstruct(subs) || ~all(isfield(subs, {'type','subs'}))
if any(exist('cfg_message') == 2:6)
cfg_message('matlabbatch:usage', 'Item is not a substruct.');
else
warning('gencode_substructcode:usage', ...
'Item is not a substruct.');
end
else
if isempty(subs)
str = {'struct(''type'',{},''subs'',{})'};
else
str = {'substruct('};
for k = 1:numel(subs)
str{1} = sprintf('%s''%s'',', str{1}, subs(k).type);
switch subs(k).type
case '.',
substr = sprintf('''%s''', subs(k).subs);
case {'()','{}'},
substr = '{';
for l = 1:numel(subs(k).subs)
if ischar(subs(k).subs{l})
if strcmp(subs(k).subs{l},':')
substr = sprintf('%s'':'', ', substr);
else
substr = sprintf('%s%s, ', substr, subs(k).subs{l});
end
else
substr1 = sprintf('%d ', subs(k).subs{l});
if numel(subs(k).subs{l}) > 1
substr1 = sprintf('[%s]', substr1(1:end-1));
else
substr1 = substr1(1:end-1);
end
substr = sprintf('%s%s, ', substr, substr1);
end
end
substr = sprintf('%s}', substr(1:end-2));
end
str{1} = sprintf('%s%s, ', str{1}, substr);
end
str{1} = sprintf('%s)', str{1}(1:end-2));
end
if ~isempty(name)
str{1} = sprintf('%s = %s;', name, str{1});
end
end
c4science · Help