PetscReadBinaryMatlab
Date: 2016-07-24

    function
       petsc-3.7.3 2016-07-24
       Report Typos and Errors Set = PetscReadBinaryMatlab(filename)
    % PETSCREADBINARYMATLAB - Reads and interprets matlab specific lines
    %   from the .info files produced by PetscViewerBinaryMatlab
    %
    %   Input filename can be the name of the binary file with or without
    %   the .info suffix
    %
    %   This function returns a single struct containing all objects submitted
    %   to the PetscViewerBinaryMatlab viewer.

      matlabHeader = ['%$$ '; '#$$ ']; % string that marks a matlab line for evaluation (could be passed)
      matlabHeaderLen = size(matlabHeader,2);

      if (isempty(strfind(filename,'.info')))
         filename = [filename,'.info'];
      end
      fid=fopen(filename,'r');
      if (fid == -1)
         error(sprintf('PetscReadBinaryMatlab: cannot load file %s',filename))
      end
      str=fgets(fid);
      while (ischar(str))

         % check for output lines that start matlabHeader
         if strncmp(str,matlabHeader(1,:),matlabHeaderLen) || strncmp(str,matlabHeader(2,:),matlabHeaderLen)
    	 str = str(1+matlabHeaderLen:end);

         	 % check for old-style file open/close commands
    	 if strfind(str,'fopen(Set.filename')
    	    str = 'fd = PetscOpenFile(Set.filename);';
    	 elseif strfind(str,'if (fd < 0) error'); % ignore this line
    	    str = '%';
    	 elseif strfind(str,'fclose(fd)');
    	    str = 'close(fd);';
    	 end

    	 eval(str);
         end
         str=fgets(fid);
      end
      fclose(fid);
      return