substruct2str.m
afeb07864e76MyFit-data-scaling

substruct2str.m
View Options

			% Convert subreference structure S to readable format
			function str = substruct2str(S, own_name)
			if nargin()<2
			own_name='';
			end

			str=own_name;

			for i=1:length(S)
			if strcmp(S(i).type,'.')
			% Structure field
			str=[str,'.',S(i).subs]; %#ok<*AGROW>
			elseif strcmp(S(i).type,'()') \|\| strcmp(S(i).type,'{}')
			% Array or cell array. Add opening bracket first.
			str=[str,S(i).type(1)];
			% Then print indices iterating over dimensions
			for j=1:length(S(i).subs)
			ind=S(i).subs{j};
			if length(ind)==1
			% Single index or ':'
			if ischar(ind)
			str=[str,ind,','];
			else
			str=[str,sprintf('%i',ind),','];
			end
			else
			% Range of indices
			str=[str, sprintf('%i',ind(1)), ...
			':',sprintf('%i',ind(end)),','];
			end
			end
			% Replace the last symbol, which is comma, with closing bracket
			str(end)=S(i).type(2);
			else
			error('Inknown indexing type: %s', S(i).type)
			end
			end
			end