%MATCHLABLIST Match entries of lablist1 with lablist2
%
%    I = MATCHLABLIST(LABLIST1,LABLIST2)
%
% INPUT
%    LABLIST1  list of class names
%    LABLIST2  list of class names
%
% OUTPUT
%    I         indices for LABLIST1 appearing in LABLIST2
%
% DESCRIPTION
% Find the indices of places where the entries of LABLIST1 appear 
% in LABLIST2, i.e. LABLIST1 = LABLIST2(I).
% Note that this operation is not symmetric, changing the order of
% LABLIST1 and LABLIST2 changes I! 
% I(i) = 0 for labels appearing in LABLIST1 that are not in LABLIST2.
%
% SEE ALSO (<a href="http://37steps.com/prtools">PRTools Guide</a>)
% DATASETS, RENUMLAB

% Copyright: D.M.J. Tax davidt@ph.tn.tudelft.nl
% Faculty of Applied Sciences, Delft University of Technology
% P.O. Box 5046, 2600 GA Delft, The Netherlands

function I = matchlablist(lablist1,lablist2)
	n = size(lablist1,1);
I = zeros(n,1); % the resulting vector

if isempty(lablist2) % nothing fits
	return
end

if iscell(lablist1) & iscell(lablist2)
	lablist1 = char(lablist1);
	lablist2 = char(lablist2);
end

for i=1:n
	if isstr(lablist1) & isstr(lablist2)
  	tmp = strmatch(deblank(lablist1(i,:)),lablist2,'exact');
	elseif ~isstr(lablist1) & ~isstr(lablist2)
		tmp = find(~sum((lablist2 ~= repmat(lablist1(i),size(lablist2,1),1)),2));
	else
		tmp = zeros(size(lablist1,1),1);
	end
  if ~isempty(tmp)
		I(i) = tmp(1);
	else
		I(i) = 0;
  end
end

return