%------------------------------------------------------------------------
%
% NAME:    xmlReadArray
%
%          Reads Array from XML file.
%
% FORMAT:  result = xmlReadArray(fid, attrlist)
%
% RETURN:  result      Data read from file
% IN:      fid         File descriptor
% IN:      attrlist    List of attributes
%------------------------------------------------------------------------
%

% HISTORY: 2002-09-25  Created by Oliver Lemke.

function result = xmlReadArray(fid, attrlist)

ne = str2num (xmlGetAttrValue (attrlist, 'nelem'));

e = 0;
while e ~= ne
  s = fscanf (fid, '%s', 1);
  
  if ~size (s)
    break
  end
  
  %=== Tag has to start with bracket
  if s(1) == '<'
    %=== Do we have an opening tag here?
    if s(2) ~= '/'
      l = size(s);
      tag = s(2:l(2));
      
      attrlist2 = xmlReadAttributes (fid);

      switch tag
      otherwise
         e=e+1;
         func = str2func (strcat ('xmlRead', tag));
         result{e} = feval (func, fid, attrlist2);
      end
    else %=== or is it a closing tag
    end
  end
end