0001 function h = set(h, varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024 if (nargout ~= 0)
0025
0026 propArgin = varargin;
0027
0028 while length(propArgin) >= 2
0029 prop = varargin{1};
0030 val = varargin{2};
0031 propArgin = propArgin(3:end);
0032 switch prop
0033 case 'name'
0034 h.name = val;
0035 case 'created'
0036 h.created = val;
0037 case 'version'
0038 h.version = val;
0039 case 'plist'
0040 h.plist = val;
0041 case 'n'
0042 h.n = val;
0043 case 'pn'
0044 h.pn = val;
0045 case 'inhists'
0046 h.inhists = val;
0047 case 'invars'
0048 h.invars = val;
0049 otherwise
0050 error([val, ' is not a property of history class']);
0051 end
0052 end
0053
0054 else
0055 if ischar(varargin{2})
0056 error(sprintf ('### please use: %s = set(%s, ''%s'', ''%s'');', ...
0057 inputname(1), ...
0058 inputname(1), ...
0059 varargin{1}, ...
0060 varargin{2}));
0061 elseif isnumeric(varargin{2})
0062 error(sprintf ('### please use: %s = set(%s, ''%s'', %d);', ...
0063 inputname(1), ...
0064 inputname(1), ...
0065 varargin{1}, ...
0066 varargin{2}));
0067 else
0068 error(sprintf ('### please use: %s = set(%s, key, ''value'');', ...
0069 inputname(1), ...
0070 inputname(1)));
0071 end
0072 end