splitter.m

%%concap recrod splitter

function splitter (strFilename)
  intRecordNumber = 1;
  fid = fopen(strFilename);
  bEOF = false;
  while (!bEOF)
    strLine = fgetl(fid);
    if (strLine == -1)
      bEOF = true;
      continue;
    endif;
    if (strncmp(strLine,"START_OF_TRACE",14))
      strTime = fgetl(fid);
      strReason = fgetl(fid);
      strTime = strftime ("%Y.%m.%d %a %H.%M.%S", localtime(str2double(strTime)));
      bEOR = false; %reset end of record flag
      strOutFileName = strcat(strTime, "_", int2str(intRecordNumber), "_", strReason);
      fidout = fopen(strOutFileName,"w");
      intRecordNumber = intRecordNumber + 1;
      while (!bEOR)
        strLine = fgetl(fid);
        if (strLine == -1)
          bEOR = true;
          continue;
        endif;
        if (strncmp(strLine, " END_OF_TRACE",10) || length(strLine) < 20)
          bEOR = true;
        else
          fprintf(fidout,"%s \r\n",strLine);
        endif;
      endwhile;
      fclose(fidout);
    endif;
  endwhile;
  fclose(fid);

endfunction