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
0025 if (nargout ~= 0)
0026
0027 propArgin = varargin;
0028
0029 while length(propArgin) >= 2
0030 prop = varargin{1};
0031 val = varargin{2};
0032 propArgin = propArgin(3:end);
0033 switch prop
0034 case 'name'
0035 h.name = val;
0036 case 'created'
0037 h.created = val;
0038 case 'version'
0039 h.version = val;
0040 case 'plist'
0041 h.plist = val;
0042 case 'n'
0043 h.n = val;
0044 case 'pn'
0045 h.pn = val;
0046 case 'inhists'
0047 h.inhists = val;
0048 case 'invars'
0049 h.invars = val;
0050 case 'consver'
0051 h.consver = val;
0052 otherwise
0053 error([val, ' is not a property of history class']);
0054 end
0055 end
0056
0057 else
0058 if ischar(varargin{2})
0059 error('### please use: %s = set(%s, ''%s'', ''%s'');', ...
0060 inputname(1), ...
0061 inputname(1), ...
0062 varargin{1}, ...
0063 varargin{2});
0064 elseif isnumeric(varargin{2})
0065 error('### please use: %s = set(%s, ''%s'', %d);', ...
0066 inputname(1), ...
0067 inputname(1), ...
0068 varargin{1}, ...
0069 varargin{2});
0070 else
0071 error('### please use: %s = set(%s, key, ''value'');', ...
0072 inputname(1), ...
0073 inputname(1));
0074 end
0075 end