--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@plist/combine.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,104 @@
+% COMBINE multiple parameter lists (plist objects) into a single plist.
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% DESCRIPTION: COMBINE multiple parameter lists (plist objects) into a single
+%              plist. Duplicate parameters are given priority in the order
+%              in which they appear in the input.
+%
+% CALL:        pl = combine(p1, p2, p3);
+%              pl = combine(p1, [p2 p3], p4)
+%
+% EXAMPLES:    >> pl1 = plist('A', 1);
+%              >> pl2 = plist('A', 3);
+%              >> plo = plist(pl1, pl2)
+%
+%              Then plo will contain a parameter 'A' with value 1.
+%
+% <a href="matlab:utils.helper.displayMethodInfo('plist', 'combine')">Parameters Description</a>
+%
+% VERSION:     $Id: combine.m,v 1.26 2011/04/08 08:56:21 hewitson Exp $
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function varargout = combine(varargin)
+  
+  %%% Check if this is a call for parameters
+  if utils.helper.isinfocall(varargin{:})
+    varargout{1} = getInfo(varargin{3});
+    return
+  end
+  
+  objs = utils.helper.collect_objects(varargin(:), 'plist');
+  
+  %%% decide whether we modify the first plist, or create a new one.
+  pl      = copy(objs(1), nargout);
+  changed = false;
+  
+  %%% If we found more than one plist then append the parameters
+  %%% of the second, third, ... plist to the first plist
+  if numel (objs) > 1
+    for ii = 2:numel(objs)
+      % Loop over all params in the current plist
+      for jj = 1:length(objs(ii).params)
+        ps = copy(objs(ii).params(jj), 1);
+        [pl, changed] = add_param(pl, ps);
+      end
+    end
+  end
+  
+  varargout{1} = pl;
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%                               Local Functions                               %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% DESCRIPTION: The input parameter will only be added if the key doesn't exist
+%              in the plist.
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+function [pl, changed] = add_param(pl, p)
+  
+  if ~isempty(pl.params) && any(strcmpi({pl.params(:).key}, p.key))
+    changed = false;
+    return
+  end
+  
+  changed = true;
+  
+  pl.params = [pl.params p];
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% FUNCTION:    getInfo
+%
+% DESCRIPTION: Get Info Object
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function ii = getInfo(varargin)
+  if nargin == 1 && strcmpi(varargin{1}, 'None')
+    sets = {};
+    pl   = [];
+  else
+    sets = {'Default'};
+    pl   = getDefaultPlist;
+  end
+  % Build info object
+  ii = minfo(mfilename, 'plist', 'ltpda', utils.const.categories.helper, '$Id: combine.m,v 1.26 2011/04/08 08:56:21 hewitson Exp $', sets, pl);
+  ii.setArgsmin(2);
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% FUNCTION:    getDefaultPlist
+%
+% DESCRIPTION: Get Default Plist
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function plo = getDefaultPlist()
+  plo = plist();
+end
+