%======================================================================
%                    G E T S E R I A L . M 
%                    doc: Wed Jan  7 16:30:11 2009
%                    dlm: Fri Mar  5 15:48:31 2010
%                    (c) 2009 A.M. Thurnherr
%                    uE-Info: 101 13 NIL 0 0 72 0 2 8 NIL ofnI
%======================================================================

% CHANGES BY ANT:
%   Jan  7, 2009: - tightened use of exist()

function p=getadcpserial(f,p)
% try to read .LOG or RECOVE.LOG
% decode serial number
%

p=setdefv(p,'down_sn',nan);
p=setdefv(p,'up_sn',nan);

% check in local lookup table
if exist('adcpserial.tab','file')
 disp(' found local lookup table for serial # to instid ')
 load adcpserial.tab 
 if existf(p,'instid')
  [dum(1),ii]=min(abs(adcpserial(:,1)-p.instid(1)));
  if dum(1)==0
   p.down_sn=adcpserial(ii,2);
  end
  if length(p.instid)>1
   [dum(2),ii]=min(abs(adcpserial(:,1)-p.instid(2)));
   if dum(2)==0
    p.up_sn=adcpserial(ii,2);
   end
  end
 end
end

% could not find instrument in lookup table, try log file

flog=findlogwh(f.ladcpdo);

if length(flog)>1
 [p.down_sn,p.down_rawlog]=readserialwh(flog);
else
 flog=findlogbb(f.ladcpdo);
 if length(flog)>3
  [p.down_sn,p.down_rawlog]=readserialbb(flog);
 end
end
disp([' down looking serial number is : ',int2str(p.down_sn)])

% make sure to put serial number in data base
if length(flog)>1
 if exist('adcpserial.tab','file')
  load adcpserial.tab 
  [dum,ii]=min(abs(adcpserial(:,2)-p.down_sn));
 else
  adcpserial=[0 0];
  dum=1;
 end
 if isfinite(p.down_sn)
  if dum~=0
   disp(' found new instrument serial number id pair save to ADCPSERIAL.TAB ') 
   adcpserial(end+1,:)=[p.instid(1) p.down_sn];
  else
   if p.instid(1)~=adcpserial(ii,1)
    disp(['found new CPU board for ',int2str(p.down_sn),' add to ADCPSERIAL.TAB '])
   end
  end
  fid = fopen('adcpserial.tab','w');
  fprintf(fid,'%16.0f  %5.0f\n',adcpserial');
  fclose(fid);
 else
  disp(['found new CPU board id ',int2str(p.instid(1)),...
        ' add it to ADCPSERIAL.TAB with serial number'])
 end
end
 

% up looker 
flog=findlogwh(f.ladcpup);
if length(flog)>1
 [p.up_sn,p.up_rawlog]=readserialwh(flog);
else
 flog=findlogbb(f.ladcpup);
 if length(flog)>1
  [p.up_sn,p.up_rawlog]=readserialbb(flog);
 end
end
disp(['   up looking serial number is : ',int2str(p.up_sn)])

% make sure to put serial number in data base
if length(flog)>1
 if exist('adcpserial.tab','file')
  load adcpserial.tab
  [dum,ii]=min(abs(adcpserial(:,2)-p.up_sn));
 else
  adcpserial=[0 0];
  dum=1;
 end
 if isfinite(p.up_sn)
  if dum~=0
   disp(' found new instrument serial number id pair save to ADCPSERIAL.TAB ')
   adcpserial(end+1,:)=[p.instid(2) p.up_sn];
  else
   if p.instid(2)~=adcpserial(ii,1)
    disp(['found new CPU board for ',int2str(p.down_sn),' add to ADCPSERIAL.TAB '])
   end
  end

  fid = fopen('adcpserial.tab','w');
  fprintf(fid,'%16.0f  %5.0f\n',adcpserial');
  fclose(fid);
 else
  disp(['found new CPU board id ',int2str(p.instid(1)),...
        ' add it to ADCPSERIAL.TAB with serial number'])
 end
end

 


%====================================
function flog=findlogwh(fin)
% look for logfile in data directory

% ignore empty file
flog=' ';
if length(fin)<2, return, end

disp([' FINDLOG: search near file: ',fin])
% check if .LOG exists
dum=find(fin=='.');
if dum>0
 flog=[fin(1:max(dum)),'LOG'];
 if exist(flog,'file')
  return
 end
 flog=[fin(1:max(dum)),'log'];
 if exist(flog,'file')
  return
 end

% check if 000.LOG exists
 fin1=fin(1:(max(dum)-4));
 flog=[fin1,'000.LOG'];
 if exist(flog,'file')
  return
 end
 flog=[fin1,'000.log'];
 if exist(flog,'file')
  return
 end
end

% look in data directory for RECOVER.LOG
dum=find(fin=='/' | fin=='\') ;
if length(dum)>0
 i1=1:dum(end);
 fdir=fin(i1);
else
 fdir='';
end

flog=[fdir,'RECOVER.LOG'];
if exist(flog,'file')
 return
end

flog=[fdir,'recover.log'];
if exist(flog,'file')
 return
end

disp([' FINDLOG: give up'])
flog='';

return

%====================================
function flog=findlogbb(fin)
% look for logfile in data directory

% ignore empty file
flog=' ';
if length(fin)<2, return, end

disp([' FINDLOG: search near file: ',fin])
% check if .LOG exists
dum=find(fin=='/' | fin=='\') ;

if length(dum)<1, return, end

if length(dum)>1, i1=dum(end-1)+1; else i1=1; end

fname=fin(i1:[dum(end)-1]);
flog=[fin(1:max(dum)),lower(fname)];
if exist(flog,'file')
  return
end

flog=[fin(1:max(dum)),upper(fname)];
if exist(flog,'file')
  return
end

disp([' FINDLOG: give up'])
flog='';

return

%=========================================
function [s,A]=readserialwh(f)
% open file ans parse for serial number

 disp([' READSERIAL_WH: parse file ',f])
 id=fopen(f);
 A=fread(id);
 fclose(id);
 As=A;
 ii=find(As<32); As(ii)=[]; 
 ii=findstr(As','  Instrument S/N:');
 if length(ii)>0
  s=sscanf(char(As(ii(1)+17+[1:9])'),'%g')';
  if (s>0 & s<9999)
%  disp([' serial number is : ',int2str(s)])
  else
   s=nan;
  end
 else
  disp([' Can not find RDI serial number '])
  ii=findstr(A','Board Serial Number Data:');
  if length(ii)>0
     disp([' Check BOARD-ID: ',char(A(ii(1)+[26:208])')])
   s=sum(A(ii(1)+[26:208]));
   switch s
    case 8600
     s = 149;
    case 8560;
     s = 150.2;
    case 8547;
     s = 150.1;
    case 8477
     s = 299;
    case 8521
     s = 754;
    otherwise
     disp([' unknown BOARD-ID';])
     disp([' madeup serial number is : ',int2str(s)])
   end
  else
   s=nan;
  end
 end
 A=char(A)';
 

%=========================================
function [s,A]=readserialbb(f)
% open file ans parse for serial number

 disp([' READSERIAL_BB: parse file ',f])
 id=fopen(f);
 A=fread(id);
 fclose(id);
 As=A;
 ii=find(As<32); As(ii)=[]; 
 ii=findstr(As','Xducer Ser #:');
 s=sscanf(char(As(ii+13+[1:9])'),'%g')';
 if (s>0 & s<9999)
%  disp([' serial number is : ',int2str(s)])
 else
  s=nan;
 end
 A=char(A)';