+
−% MAKEPORTINDEX gives indexes of selected in a series of list in a cell array
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: MAKEPORTINDEX2 gives a an array of port positions
+
−%
+
−% CALL: [blockNumber portNumber] = makePortIndex(varargin)
+
−%
+
−%       makePortIndex(ssmblock, cellstr)
+
−%       makePortIndex(ssmblock, str)
+
−%
+
−% INPUTS:
+
−%       select - input index:
+
−%                         - cellstr,
+
−%                         - cell array including
+
−%                                 - 'ALL'/'NONE' to index all/no content,
+
−%                                 - chars with port/block names
+
−%                         - a str for one variable name only, 'ALL'/'NONE'
+
−%
+
−% OUTPUTS:
+
−%       blockNumber - block index
+
−%       portNumber  - port index
+
−%
+
−% ***** There are no parameters *****
+
−%
+
−% VERSION: '$Id: findPorts.m,v 1.3 2010/08/27 12:55:30 adrien Exp $'
+
−%
+
−%
+
−% HISTORY:
+
−% 24-09-2008 A Grynagier
+
−%
+
−% TO DO :
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function [blockNumber portNumber] = findPorts(block, data)
+
−  error('This function is deprecated and will be deleted')
+
−
+
−
+
−  if ~isa(block, 'ssmblock')
+
−    error('block is not an ssmblock object')
+
−  end
+
−  if ischar(data)
+
−    data = {data};
+
−  end
+
−  
+
−  if iscellstr(data)
+
−    if numel(data) == 1 && strcmpi(data{1}, 'all')
+
−      [blockNumber portNumber] = forAll(block);
+
−    elseif numel(data) == 1 && strcmpi(data{1}, 'none')
+
−      [blockNumber portNumber] = forNone();
+
−    else
+
−      [blockNumber portNumber] = fromNames(block, data);      
+
−    end
+
−  else
+
−    display(data)
+
−    error('parameter ''data'' is of wrong type')
+
−  end
+
−end
+
−
+
−function [blockNumber portNumber] = forAll(block)
+
−  nBlocks = numel(block) ;
+
−  nPorts = block.Nports;
+
−  nPortsTot = sum(nPorts);
+
−  
+
−  blockNumber = zeros(nPortsTot,1);
+
−  portNumber = zeros(nPortsTot,1);
+
−  
+
−  k = 1;
+
−  for i=1:nBlocks
+
−    for j=1:nPorts(i)
+
−      blockNumber(k) = i;
+
−      portNumber(k) = j;
+
−      k = k+1;
+
−    end
+
−  end
+
−end
+
−
+
−function [blockNumber portNumber] = forNone()
+
−  blockNumber = zeros(1,0);
+
−  portNumber = zeros(1,0);
+
−end
+
−
+
−function [blockNumber portNumber] = fromNames(block, data)  
+
−  nBlocks = numel(block) ;
+
−  nPorts = block.Nports;
+
−  
+
−  blockNumber = zeros(1,0);
+
−  portNumber = zeros(1,0);
+
−  portNames = block.portNames;
+
−  
+
−  for i=1:numel(data)
+
−    [isin, pos] = posBlock(block, data{i});
+
−    if isin
+
−      % indexing full block
+
−      blockNumber = [blockNumber ones(1,nPorts(pos))*pos];  %#ok<AGROW>
+
−      portNumber  = [portNumber  1:nPorts(pos)];  %#ok<AGROW>
+
−    else
+
−      % looking for a port to index
+
−      for ii = 1:nBlocks
+
−        found = strcmpi(portNames{ii}, data{i});
+
−        wasFound = sum(found)>0;
+
−        if wasFound;
+
−          blockNumber = [blockNumber ii]; %#ok<AGROW>
+
−          portNumber  = [portNumber  find(found)];  %#ok<AGROW>
+
−          break
+
−        end
+
−      end
+
−      if ~wasFound
+
−        display(['block or port '  data{i} ' was not found!'])
+
−      end
+
−    end
+
−  end
+
−end
+
−