CHAR overloads char() function for analysis objects. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: CHAR overloads char() function for analysis objects. CALL: c = char(ao_in); FORMAT: c = 'ao.name/ao.data.name class(ao.data) [size(ao.data.yaxis)]' M-FILE INFO: Get information about this methods by calling >> ao.getInfo('char') Get information about a specified set-plist by calling: >> ao.getInfo('char', 'None') VERSION: $Id: char.m,v 1.18 2008/09/05 11:05:28 ingo Exp $ HISTORY: 15-02-07 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 % CHAR overloads char() function for analysis objects. 0002 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0003 % 0004 % DESCRIPTION: CHAR overloads char() function for analysis objects. 0005 % 0006 % CALL: c = char(ao_in); 0007 % 0008 % FORMAT: c = 'ao.name/ao.data.name class(ao.data) [size(ao.data.yaxis)]' 0009 % 0010 % M-FILE INFO: Get information about this methods by calling 0011 % >> ao.getInfo('char') 0012 % 0013 % Get information about a specified set-plist by calling: 0014 % >> ao.getInfo('char', 'None') 0015 % 0016 % VERSION: $Id: char.m,v 1.18 2008/09/05 11:05:28 ingo Exp $ 0017 % 0018 % HISTORY: 15-02-07 M Hewitson 0019 % Creation 0020 % 0021 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0022 0023 function varargout = char(varargin) 0024 0025 % Check if this is a call for parameters 0026 if utils.helper.isinfocall(varargin{:}) 0027 varargout{1} = getInfo(varargin{3}); 0028 return 0029 end 0030 0031 import utils.const.* 0032 utils.helper.msg(msg.MNAME, 'running %s/%s', mfilename('class'), mfilename); 0033 0034 % Collect input variable names 0035 in_names = cell(size(varargin)); 0036 for ii = 1:nargin,in_names{ii} = inputname(ii);end 0037 0038 % Collect all AOs and plists 0039 as = utils.helper.collect_objects(varargin(:), 'ao', in_names); 0040 0041 % go through analysis objects 0042 pstr = []; 0043 for j=1:numel(as) 0044 pstr = [pstr as(j).name]; 0045 % get data type 0046 if isempty(as(j).data) 0047 pstr = [pstr ' / No data-object']; 0048 else 0049 pstr = [pstr '/' class(as(j).data)]; 0050 pstr = [pstr char(as(j).data) ', ']; 0051 end 0052 end 0053 0054 pstr = strrep(pstr, '_', '\_'); 0055 varargout{1} = pstr(1:end-2); 0056 0057 end 0058 0059 %-------------------------------------------------------------------------- 0060 % Get Info Object 0061 %-------------------------------------------------------------------------- 0062 function ii = getInfo(varargin) 0063 if nargin == 1 && strcmpi(varargin{1}, 'None') 0064 sets = {}; 0065 pl = []; 0066 else 0067 sets = {'Default'}; 0068 pl = getDefaultPlist; 0069 end 0070 % Build info object 0071 ii = minfo(mfilename, 'ao', '', utils.const.categories.output, '$Id: char.m,v 1.18 2008/09/05 11:05:28 ingo Exp $', sets, pl); 0072 end 0073 0074 %-------------------------------------------------------------------------- 0075 % Get Default Plist 0076 %-------------------------------------------------------------------------- 0077 function pl_default = getDefaultPlist() 0078 pl_default = plist(); 0079 end 0080