0001 function varargout = char(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023 VERSION = '$Id: char.html,v 1.15 2008/03/31 10:27:33 hewitson Exp $';
0024 CATEGORY = 'Output';
0025
0026
0027 if nargin == 2
0028 if isa(varargin{1}, 'ao') && ischar(varargin{2})
0029 in = char(varargin{2});
0030 if strcmp(in, 'Params')
0031 varargout{1} = plist();
0032 return
0033 elseif strcmp(in, 'Version')
0034 varargout{1} = VERSION;
0035 return
0036 elseif strcmp(in, 'Category')
0037 varargout{1} = CATEGORY;
0038 return
0039 end
0040 end
0041 end
0042
0043
0044
0045 in_names = {};
0046 for ii = 1:nargin
0047 in_names{end+1} = inputname(ii);
0048 end
0049
0050 [ao_set, pl, invars] = collect_inputs(varargin, in_names);
0051
0052 if ~isempty (pl)
0053 pl = combine(pl);
0054 end
0055
0056
0057 for j=1:numel(ao_set)
0058
0059 a = ao_set(j);
0060
0061 pstr = [];
0062 pstr = [pstr a.name];
0063
0064
0065 d = a.data;
0066
0067
0068 if isempty(d)
0069 pstr = [pstr ' / No data-object'];
0070 else
0071 pstr = [pstr '/' d.name ' ' class(d)];
0072
0073 [x,y] = get_xy_values(a.data);
0074
0075 xinfo = whos('y');
0076 pstr = [pstr ' ' sprintf('[%d %d]', xinfo.size(1), xinfo.size(2)) ];
0077
0078 end
0079
0080
0081 pstr = strrep(pstr, '_', '\_');
0082
0083 varargout{j} = pstr;
0084
0085 end
0086
0087