


SET set an provenance property.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: SET set an provenance property.
CALL: prov = set(prov, 'creator', 'unknown');
prov = set(prov, 'created', time());
prov = set(prov, 'ip', '127.0.0.2');
prov = set(prov, 'hostname', 'hws165');
prov = set(prov, 'os', 'GLNX86');
prov = set(prov, 'matlab_version', '7.4 (R2007a)');
prov = set(prov, 'matlab_version', '6.7 (R2007a)');
prov = set(prov, 'matlab_version', '0.4 (R2007a)');
VERSION: $Id: set.m,v 1.4 2008/01/07 13:48:02 ingo Exp $
HISTORY: 30-01-2007 M Hewitson
Creation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function p = set(p, varargin) 0002 % SET set an provenance property. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: SET set an provenance property. 0007 % 0008 % CALL: prov = set(prov, 'creator', 'unknown'); 0009 % prov = set(prov, 'created', time()); 0010 % prov = set(prov, 'ip', '127.0.0.2'); 0011 % prov = set(prov, 'hostname', 'hws165'); 0012 % prov = set(prov, 'os', 'GLNX86'); 0013 % prov = set(prov, 'matlab_version', '7.4 (R2007a)'); 0014 % prov = set(prov, 'matlab_version', '6.7 (R2007a)'); 0015 % prov = set(prov, 'matlab_version', '0.4 (R2007a)'); 0016 % 0017 % VERSION: $Id: set.m,v 1.4 2008/01/07 13:48:02 ingo Exp $ 0018 % 0019 % HISTORY: 30-01-2007 M Hewitson 0020 % Creation 0021 % 0022 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0023 0024 VERSION = '$Id: set.m,v 1.4 2008/01/07 13:48:02 ingo Exp $'; 0025 0026 % Check if this is a call for parameters or for the cvs-version number 0027 if nargin == 2 0028 if isa(p, 'provenance') && ischar(varargin{1}) 0029 in = char(varargin{1}); 0030 if strcmp(in, 'Params') 0031 p = plist(); 0032 return 0033 elseif strcmp(in, 'Version') 0034 p = VERSION; 0035 return 0036 end 0037 end 0038 end 0039 0040 propArgin = varargin; 0041 0042 while length(propArgin) >= 2 0043 prop = propArgin{1}; 0044 val = propArgin{2}; 0045 propArgin = propArgin(3:end); 0046 switch prop 0047 case 'creator' 0048 p.creator = val; 0049 case 'created' 0050 p.created = val; 0051 case 'ip' 0052 p.ip = val; 0053 case 'hostname' 0054 p.hostname = val; 0055 case 'os' 0056 p.os = val; 0057 case 'matlab_version' 0058 p.matlab_version = val; 0059 case 'sigproc_version' 0060 p.sigproc_version = val; 0061 case 'ltpda_version' 0062 p.ltpda_version = val; 0063 otherwise 0064 error([val, ' is not a property of provenance class']); 0065 end 0066 end