CHAR convert a cdata object into a string. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: CHAR convert a cdata object into a string. VERSION: $Id: char.m,v 1.4 2008/02/12 19:54:05 hewitson Exp $ HISTORY: 04-02-2007 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function pstr = char(p, varargin) 0002 % CHAR convert a cdata object into a string. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: CHAR convert a cdata object into a string. 0007 % 0008 % VERSION: $Id: char.m,v 1.4 2008/02/12 19:54:05 hewitson Exp $ 0009 % 0010 % HISTORY: 04-02-2007 M Hewitson 0011 % Creation 0012 % 0013 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0014 0015 VERSION = '$Id: char.m,v 1.4 2008/02/12 19:54:05 hewitson Exp $'; 0016 CATEGORY = 'Output'; 0017 0018 % Check if this is a call for parameters 0019 if nargin == 2 0020 if isa(p, 'cdata') && ischar(varargin{1}) 0021 in = char(varargin{1}); 0022 if strcmp(in, 'Params') 0023 pstr = plist(); 0024 return 0025 elseif strcmp(in, 'Version') 0026 pstr = VERSION; 0027 return 0028 elseif strcmp(in, 'Category') 0029 pstr = CATEGORY; 0030 return 0031 end 0032 end 0033 end 0034 0035 pstr = get(p,'name'); 0036 0037 0038 % END