CHAR convert a param object into a string. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: CHAR convert a param object into a string. CALL: string = char(p) VERSION: $Id: char.html,v 1.14 2008/03/31 10:27:38 hewitson Exp $ HISTORY: 04-02-2007 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function pstr = char(p, varargin) 0002 % CHAR convert a param object into a string. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: CHAR convert a param object into a string. 0007 % 0008 % CALL: string = char(p) 0009 % 0010 % VERSION: $Id: char.html,v 1.14 2008/03/31 10:27:38 hewitson Exp $ 0011 % 0012 % HISTORY: 04-02-2007 M Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 VERSION = '$Id: char.html,v 1.14 2008/03/31 10:27:38 hewitson Exp $'; 0018 CATEGORY = 'Output'; 0019 0020 % Check if this is a call for parameters 0021 if nargin == 2 0022 if isa(p, 'param') && ischar(varargin{1}) 0023 in = char(varargin{1}); 0024 if strcmp(in, 'Params') 0025 pstr = plist; 0026 return 0027 elseif strcmp(in, 'Version') 0028 pstr = VERSION; 0029 return 0030 elseif strcmp(in, 'Category') 0031 pstr = CATEGORY; 0032 return 0033 end 0034 end 0035 end 0036 0037 if isnumeric(get(p, 'val')) 0038 pstr = [get(p, 'key') ' : ' ltpda_mat2str(get(p, 'val'))]; 0039 else 0040 pstr = [get(p, 'key') ' : ' char(get(p, 'val'))]; 0041 end 0042 0043 0044 0045 % END