[JVCL-Checkins] CVS: jvcl/devtools/JvAdjustLineBreaks crlfutils.pas,1.5,1.6

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/jvcl/devtools/JvAdjustLineBreaks
In directory sc8-pr-cvs1:/tmp/cvs-serv20099/devtools/JvAdjustLineBreaks

Modified Files:
	crlfutils.pas 
Log Message:
More updates

Index: crlfutils.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/devtools/JvAdjustLineBreaks/crlfutils.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** crlfutils.pas	4 Mar 2003 17:36:48 -0000	1.5
--- crlfutils.pas	4 Mar 2003 17:50:53 -0000	1.6
***************
*** 151,157 ****
--- 151,161 ----
        tmp := AdjustLineBreaks(tmp{$IFDEF COMPILER6_UP},cStyle[ToWindows]{$ENDIF});
        if CompareBeforeWrite and (tmp = tmp2) then
+       begin
+         writeln(ExtractFilename(Filename), ' not converted');
          Exit;
+       end;
        F.Size := 0;
        F.Write(tmp[1],Length(tmp));
+       writeln(ExtractFilename(Filename), ' converted');
      end;
    finally
***************
*** 177,186 ****
          if (FindData.dwFileAttributes and FILE_ATTRIBUTE_READONLY = FILE_ATTRIBUTE_READONLY) then
            writeln('ERROR: ',FindData.cFileName,' is read-only!')
!         else
!         begin
!           writeln(FindData.cFileName);
!           if ConvertFile(APath + FindData.cFileName,ToWindows,CompareBeforeWrite) then
              Inc(Result);
-         end;
        end;
      until not FindNextFile(SearchHandle,FindData);
--- 181,186 ----
          if (FindData.dwFileAttributes and FILE_ATTRIBUTE_READONLY = FILE_ATTRIBUTE_READONLY) then
            writeln('ERROR: ',FindData.cFileName,' is read-only!')
!         else if ConvertFile(APath + FindData.cFileName,ToWindows,CompareBeforeWrite) then
              Inc(Result);
        end;
      until not FindNextFile(SearchHandle,FindData);
***************
*** 270,274 ****
    end;
    writeln('');
!   writeln('Done: ', Count,' files converted.');
  end;
  
--- 270,274 ----
    end;
    writeln('');
!   writeln('Done: ', Count, ' files converted.');
  end;