1## Copyright (C) 2007 Michel D. Schmid  <michaelschmid@users.sourceforge.net>
2##
3##
4## This program is free software; you can redistribute it and/or modify it
5## under the terms of the GNU General Public License as published by
6## the Free Software Foundation; either version 2, or (at your option)
7## any later version.
8##
9## This program is distributed in the hope that it will be useful, but
10## WITHOUT ANY WARRANTY; without even the implied warranty of
11## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12## General Public License for more details.
13##
14## You should have received a copy of the GNU General Public License
15## along with this program; see the file COPYING.  If not, write to the Free
16## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
17## 02110-1301, USA.
18
19## Author: Michel D. Schmid
20
21function [cAr mData] = loadtestresults(strFileName)
22
23  ## check range of input arguments
24  error(nargchk(1,1,nargin))
25
26  i = 1;
27  mData = [];
28  cAr = {};
29
30  fid = fopen(strFileName,"rt"); # open read only
31
32  strLine = fgetl(fid);
33  while (!feof(fid)) # this means, while not eof
34
35    [val, count] = sscanf (strLine, "%f");
36    if (count)
37      mData = [mData; val'];
38    else
39      cAr{i} = strLine;
40    endif
41
42    strLine = fgetl(fid);
43    i += 1;
44  endwhile
45
46  # here, the strLine contains the last row of a file
47  # so do the complete coding once more
48  [val, count] = sscanf (strLine, "%f");
49  if (count)
50    mData = [mData; val'];
51  else
52    cAr{i} = strLine;
53  endif
54
55  fclose(fid);
56
57endfunction