


CHAR convert a cdata object into a string.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: CHAR convert a cdata object into a string.
VERSION: $Id: char.m,v 1.3 2007/11/14 18:18:36 ingo 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.3 2007/11/14 18:18:36 ingo Exp $ 0009 % 0010 % HISTORY: 04-02-2007 M Hewitson 0011 % Creation 0012 % 0013 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0014 0015 VERSION= '$Id: char.m,v 1.3 2007/11/14 18:18:36 ingo Exp $'; 0016 0017 % Check if this is a call for parameters 0018 if nargin == 2 0019 if isa(p, 'cdata') && ischar(varargin{1}) 0020 in = char(varargin{1}); 0021 if strcmp(in, 'Params') 0022 pstr = plist(); 0023 return 0024 elseif strcmp(in, 'Version') 0025 pstr = VERSION; 0026 return 0027 end 0028 end 0029 end 0030 0031 pstr = get(p,'name'); 0032 0033 0034 % END