Mercurial > hg > octave-lyh
comparison scripts/general/structfun.m @ 7208:a730e47fda4d
[project @ 2007-11-28 02:32:41 by jwe]
author | jwe |
---|---|
date | Wed, 28 Nov 2007 02:32:42 +0000 |
parents | e8c94e473c68 |
children | fa78cb8d8a5c |
comparison
equal
deleted
inserted
replaced
7207:71c03c7239fb | 7208:a730e47fda4d |
---|---|
66 if (nargin < 2) | 66 if (nargin < 2) |
67 print_usage (); | 67 print_usage (); |
68 endif | 68 endif |
69 | 69 |
70 varargout = cell (max ([nargout, 1]), 1); | 70 varargout = cell (max ([nargout, 1]), 1); |
71 [varargout{:}] = cellfun (fun, struct2cell (s), varargin {:}); | 71 [varargout{:}] = cellfun (fun, struct2cell (s), varargin{:}); |
72 | 72 |
73 if (iscell (varargout{1})) | 73 if (iscell (varargout{1})) |
74 [varargout{:}] = cell2struct (varargout{1}, fieldnames(s), 1); | 74 [varargout{:}] = cell2struct (varargout{1}, fieldnames(s), 1); |
75 endif | 75 endif |
76 endfunction | 76 endfunction |