--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@ssmblock/containsPort.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,62 @@
+% CONTAINSPORT returns true if the inputs block(s) contain the given port.
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% DESCRIPTION: CONTAINSPORT returns true if the inputs block(s) contain
+% contain the given port.
+%
+% CALL:            results = containsPort(ssmblocks, portname)
+%                  results = containsPort(ssmblocks, portobject)
+%                  results = containsPort(ssmblocks, plist('port', portname))
+%                  results = containsPort(ssmblocks, plist('port', portobject))
+%
+% VERSION:     $Id: containsPort.m,v 1.5 2011/04/08 08:56:31 hewitson Exp $
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+function varargout = containsPort(varargin)
+  error('This function is deprecated and will be deleted')
+
+  [blocks, invars, rest] = utils.helper.collect_objects(varargin(:), 'ssmblock');
+  [port, invars, rest] = utils.helper.collect_objects(rest, 'ssmport');
+  [pl, invars, rest] = utils.helper.collect_objects(rest, 'plist');
+  
+  results = [];
+  
+  % the port name to check for
+  pfind = '';
+  
+  % port in plist
+  if isa(pl, 'plist')
+    pfind = pl.find('port');
+    if isa(pfind, 'ssmport')
+      pfind = pfind.name;
+    end
+  end
+  
+  % port in input args overides plist
+  if isa(port, 'ssmport')
+    pfind = port.name;
+  end
+  
+  % check for a port name in the 'rest' - overides plist and port object
+  for kk=1:numel(rest)
+    if ischar(rest{kk})
+      pfind = rest{kk};
+    end
+  end
+  
+  % loop over blocks
+  for kk=1:numel(blocks)
+    results(kk) = false;
+    block = blocks(kk);
+    for ll=1:numel(block.ports)
+      bp = block.ports(ll);
+      % check this port
+      if strcmpi(bp.name, pfind)
+        results(kk) = true;
+      end
+    end
+  end
+  
+  varargout{1} = results;
+end