% Loads data from an xml file.
%
%    The data type is determined from the file and *result* adapted
%    accordingly.
%
%    On error, the execution is stopped and an error message is printed.
%
% FORMAT   result = xmlLoad(filename)
%
% OUT   result     Data read from file
% IN    filename   XML filename
 
% 2002-09-25   Created by Oliver Lemke.

function result = xmlLoad(filename)

fid = fopen (filename,'r');

if fid == -1
  error (sprintf ('Cannot open file %s', filename));
end

%=== Validate XML file header
s = fscanf (fid, '%s', 1);
limit = 10;
while limit & s(size(s)) ~= '>'
  s = strcat (s, fscanf (fid, '%s', 1));
end

if ~strcmp (s, '<?xmlversion="1.0"?>')
  error ('Invalid xml header');
end

%=== Parsing data tag
result = xmlReadTag(fid, filename, '', '', 0, 0);

fclose (fid);