b@0: function testDat=readTestFile(testFile)
b@0: fid=fopen(testFile,'r');
b@0: testDat.sndRef=[];
b@0: 
b@0: 
b@0: while ~feof(fid)
b@0:    lin=fgetl(fid);
b@0:    [word1,COUNT,ERRMSG,NEXTINDEX] = sscanf(lin,'%s',1);
b@0:    
b@0:    if (~COUNT | ~strcmp(word1,'%'))
b@0:       
b@0:       switch upper(word1)
b@0:          
b@0:       case 'NAME'
b@0:          testDat.name=fgetl(fid);
b@0:          
b@0:       case 'COMBINATIONS:'
b@0:          [nbComb,COUNT,ERRMSG,NEXTINDEX] = sscanf(lin(NEXTINDEX:end),'%d',1);
b@0:          testDat.nbComb=nbComb;	%%
b@0:          testDat.posComb=[];
b@0:          
b@0:          for noComb=1:nbComb
b@0:             lin=fgetl(fid);
b@0:             if ~isempty(lin) 
b@0:                if lin(1)~='%'
b@0:                   [comb,COUNT,ERRMSG,NEXTINDEX] = sscanf(lin,'%d',2);
b@0:                   testDat.comb(noComb,:)=comb;	%%
b@0:                   
b@0:                   % Read the reference DATAS
b@0:                   if COUNT==1
b@0:                      lin=lin(NEXTINDEX:end);
b@0:                      [stri,COUNT,ERRMSG,NEXTINDEX] = sscanf(lin,'%s',1);
b@0:                      
b@0:                      if findstr(lower(stri),'ref')								
b@0:                         testDat.sndRef(end+1)=comb(1);
b@0:                         lin=lin(NEXTINDEX:end);
b@0:                         [stri,COUNT,ERRMSG,NEXTINDEX] = sscanf(lin,'%s',1);
b@0:                      end
b@0:                      
b@0:                      if findstr(lower(stri),'pos')
b@0:                         lin=lin(NEXTINDEX:end);
b@0:                      end
b@0:                      
b@0:                      % read the sounds default position
b@0:                      [posComb,COUNT,ERRMSG,NEXTINDEX] = sscanf(lin,'%f',inf);	% position must be specified for each scale!!
b@0:                      if ~isempty(posComb)
b@0:                         testDat.posComb(noComb,:)=posComb';
b@0:                      end	
b@0:                   end     
b@0:                end               
b@0:             end			
b@0:          end
b@0:          % tricky here! try to satisfy both comp1d and 2d 
b@0:          % requirements of default position of icons
b@0:          % may be should decompose each case...
b@0:          
b@0:          posComb=testDat.posComb;
b@0:          [nbComb1,nbPos]=size(posComb);
b@0:          if isempty(nbComb1)
b@0:             nbComb1=1;
b@0:          end
b@0:          if exist('nbScale')
b@0:             nbPos=nbScale;
b@0:          end        
b@0:          if nbComb1<nbComb
b@0:             testDat.posComb(nbComb,nbPos)=0;
b@0:          end
b@0:          indx=find(testDat.posComb==0);
b@0:          testDat.posComb(indx)=nan;   % mark the combinations with unknown position
b@0: 
b@0:       case 'NBSCALES:'
b@0:          [nbScale,COUNT,ERRMSG,NEXTINDEX] = sscanf(lin(NEXTINDEX:end),'%d',1);
b@0:          testDat.nbScale=nbScale;
b@0:          % check posRef length
b@0:          nbRef=length(testDat.sndRef);
b@0:          
b@0:          for noRef=1:nbRef	
b@0:             if length(testDat.posComb(:,testDat.sndRef(noRef)))~=nbScale
b@0:                fprintf(1,'Watch out, the position of reference %d are not specified for all scale',noRef);
b@0:             end
b@0:          end	
b@0:          for noScale=1:nbScale
b@0:             
b@0:             while ~feof(fid)					
b@0:                lin=fgetl(fid);
b@0:                [header,COUNT,ERRMSG,NEXTINDEX] = sscanf(lin,'%s',1);					
b@0:                
b@0:                switch firstWord(header)
b@0:                case 'SCALE:'
b@0:                   lin=lin(NEXTINDEX:end);
b@0:                   name=lin; %%						
b@0:                case 'min'
b@0:                   lin=lin(NEXTINDEX:end);
b@0:                   [minn,COUNT,ERRMSG,NEXTINDEX]=sscanf(lin,'%d',1); %%
b@0:                   level{1}=lin(NEXTINDEX:end); %%
b@0:                case 'max'
b@0:                   lin=lin(NEXTINDEX:end);
b@0:                   [maxx,COUNT,ERRMSG,NEXTINDEX]=sscanf(lin,'%d',1); %%
b@0:                   level{3}=lin(NEXTINDEX:end); %%
b@0:                   
b@0:                case 'step'
b@0:                   lin=lin(NEXTINDEX:end);
b@0:                   [stepp,COUNT,ERRMSG,NEXTINDEX]=sscanf(lin,'%d',1); %%
b@0:                   level{2}=lin(NEXTINDEX:end); %%
b@0:                   break
b@0:                end
b@0:                
b@0:             end
b@0:             testDat.scale(noScale).name=name;
b@0:             testDat.scale(noScale).maxx=maxx;
b@0:             testDat.scale(noScale).minn=minn;
b@0:             testDat.scale(noScale).stepp=stepp;
b@0:             testDat.scale(noScale).level=level;
b@0:          end
b@0:       end
b@0:    end
b@0: end
b@0: fclose(fid);
b@0: 
b@0: function word=firstWord(word)
b@0: 
b@0: if ~isempty(word) 
b@0:    if word(1)=='%'
b@0:       word=[];
b@0:    end
b@0: else
b@0:    word=[];
b@0: end