SET set a cdata property. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: SET set a cdata property. CALL: c = set(c, 'name', 'my_name'); c = set(c, 'vals', vals); c = set(c, 'vals', [1 2 3]); c = set(c, 'tags', {'a', 'c', 'c'}); c = set(c, 'tags', tags); c = set(c, 'xunits', 'sec'); c = set(c, 'yunits', 'V'); c = set(c, 'created', time()); c = set(c, 'version', 'cdata/set.m,v 1.7...'); VERSION: $Id: set.m,v 1.7 2007/07/30 12:18:28 ingo Exp $ HISTORY: 30-01-07 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function c = set(c, varargin) 0002 % SET set a cdata property. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: SET set a cdata property. 0007 % 0008 % CALL: c = set(c, 'name', 'my_name'); 0009 % c = set(c, 'vals', vals); 0010 % c = set(c, 'vals', [1 2 3]); 0011 % c = set(c, 'tags', {'a', 'c', 'c'}); 0012 % c = set(c, 'tags', tags); 0013 % c = set(c, 'xunits', 'sec'); 0014 % c = set(c, 'yunits', 'V'); 0015 % c = set(c, 'created', time()); 0016 % c = set(c, 'version', 'cdata/set.m,v 1.7...'); 0017 % 0018 % VERSION: $Id: set.m,v 1.7 2007/07/30 12:18:28 ingo Exp $ 0019 % 0020 % HISTORY: 30-01-07 M Hewitson 0021 % Creation 0022 % 0023 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0024 0025 if (nargout ~= 0) 0026 0027 propArgin = varargin; 0028 0029 while length(propArgin) >= 2 0030 prop = propArgin{1}; 0031 val = propArgin{2}; 0032 propArgin = propArgin(3:end); 0033 switch prop 0034 case 'name' 0035 c.name = val; 0036 case 'created' 0037 c.created = val; 0038 case 'version' 0039 c.version = val; 0040 case 'vals' 0041 c.vals = val; 0042 case 'tags' 0043 c.tags = val; 0044 case 'xunits' 0045 c.xunits = val; 0046 case 'yunits' 0047 c.yunits = val; 0048 otherwise 0049 error([val, ' is not a property of cdata class']); 0050 end 0051 end 0052 0053 else 0054 if ischar(varargin{2}) 0055 error('### please use: %s = set(%s, ''%s'', ''%s'');', ... 0056 inputname(1), ... 0057 inputname(1), ... 0058 varargin{1}, ... 0059 varargin{2}); 0060 elseif isnumeric(varargin{2}) 0061 error('### please use: %s = set(%s, ''%s'', %d);', ... 0062 inputname(1), ... 0063 inputname(1), ... 0064 varargin{1}, ... 0065 varargin{2}); 0066 else 0067 error('### please use: %s = set(%s, ''key'', ''value'');', ... 0068 inputname(1), ... 0069 inputname(1)); 0070 end 0071 end