Home > classes > @param > set.m

set

PURPOSE ^

SET set a parameter property.

SYNOPSIS ^

function p = set(p, varargin)

DESCRIPTION ^

 SET set a parameter property.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

 DESCRIPTION: SET set a parameter property.

 CALL: p = set(p, 'key', 'name');
       p = set(p, 'val', val);
       p = set(p, 'val', 'val');

 VERSION: $Id: set.m,v 1.5 2007/07/18 13:58:45 ingo Exp $

 HISTORY: 30-01-07 M Hewitson
             Creation

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function p = set(p, varargin)
0002 % SET set a parameter property.
0003 %
0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0005 %
0006 % DESCRIPTION: SET set a parameter property.
0007 %
0008 % CALL: p = set(p, 'key', 'name');
0009 %       p = set(p, 'val', val);
0010 %       p = set(p, 'val', 'val');
0011 %
0012 % VERSION: $Id: set.m,v 1.5 2007/07/18 13:58:45 ingo Exp $
0013 %
0014 % HISTORY: 30-01-07 M Hewitson
0015 %             Creation
0016 %
0017 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0018 
0019 if (nargout ~= 0)
0020 
0021   propArgin = varargin;
0022 
0023   while length(propArgin) >= 2
0024     prop = varargin{1};
0025     val  = varargin{2};
0026     propArgin = propArgin(3:end);
0027     switch prop
0028       case 'version'
0029         p.version = val;
0030       case 'key'
0031         p.key = val;
0032       case 'val'
0033        p.val = val;
0034       otherwise
0035         error([val, ' is not a property of param class']);
0036     end
0037   end
0038 
0039 else
0040   if ischar(varargin{2})
0041     error('### please use: %s = set(%s, ''%s'', ''%s'');', ...
0042                         inputname(1), ...
0043                         inputname(1), ...
0044                         varargin{1},  ...
0045                         varargin{2});
0046   elseif isnumeric(varargin{2})
0047     error('### please use: %s = set(%s, ''%s'', %d);', ...
0048                         inputname(1), ...
0049                         inputname(1), ...
0050                         varargin{1},  ...
0051                         varargin{2});
0052   else
0053     error('### please use: %s = set(%s, key, ''value'');', ...
0054                         inputname(1), ...
0055                         inputname(1));
0056   end
0057 end
0058

Generated on Mon 03-Sep-2007 12:12:34 by m2html © 2003