From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 22 Apr 2016 12:35:27 +0000 (+0300)
Subject: wadcnt: better info display for POSIX
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=7f112d0ea9a5f431202d629484094592ff021e09;p=d2df-sdl.git

wadcnt: better info display for POSIX
---

diff --git a/src/sfs/wadcvt.dpr b/src/sfs/wadcvt.dpr
index 4885b32..bcb9520 100644
--- a/src/sfs/wadcvt.dpr
+++ b/src/sfs/wadcvt.dpr
@@ -569,12 +569,22 @@ begin
       //fs.Free();
       //fs := SFSFileOpen(dvfn+'::'+fl[f].fPath+fl[f].fName);
       fs.position := 0;
+{$IFNDEF WINDOWS}
+      write(#13'[', f+1, '/', fl.Count, ']: ', fl[f].fPath, newname, '  ', fs.size, ' ... '#27'[K');
+{$ELSE}
       write('[', f+1, '/', fl.Count, ']: ', fl[f].fPath, newname, '  ', fs.size, ' ... ');
+{$ENDIF}
       nfo := ZipOne(fo, fl[f].fPath+newname, fs);
-      writeln('DONE');
+      write('DONE');
+{$IFDEF WINDOWS}
+      writeln;
+{$ENDIF}
       SetLength(files, length(files)+1);
       files[high(files)] := nfo;
     end;
+{$IFNDEF WINDOWS}
+    writeln(#13, fl.Count, ' files processed'#27'[K');
+{$ENDIF}
     writeCentralDir(fo, files);
   except
     fo.Free();