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.3 2007/07/30 12:18:28 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.3 2007/07/30 12:18:28 ingo Exp $ 0018 % 0019 % HISTORY: 30-01-2007 M Hewitson 0020 % Creation 0021 % 0022 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0023 0024 propArgin = varargin; 0025 0026 while length(propArgin) >= 2 0027 prop = propArgin{1}; 0028 val = propArgin{2}; 0029 propArgin = propArgin(3:end); 0030 switch prop 0031 case 'creator' 0032 p.creator = val; 0033 case 'created' 0034 p.created = val; 0035 case 'ip' 0036 p.ip = val; 0037 case 'hostname' 0038 p.hostname = val; 0039 case 'os' 0040 p.os = val; 0041 case 'matlab_version' 0042 p.matlab_version = val; 0043 case 'sigproc_version' 0044 p.sigproc_version = val; 0045 case 'ltpda_version' 0046 p.ltpda_version = val; 0047 otherwise 0048 error([val, ' is not a property of provenance class']); 0049 end 0050 end