[Scummvm-git-logs] scummvm master -> e235dfc900a67b9173d6b6830548739b54fdfeac

[sev-]

This automated email contains information about 1 new commit which have been
pushed to the 'scummvm' repo located at https://github.com/scummvm/scummvm .

Summary:
e235dfc900 DEVTOOLS: Print statistics in MacBinary mode in dumper companion


Commit: e235dfc900a67b9173d6b6830548739b54fdfeac
    https://github.com/scummvm/scummvm/commit/e235dfc900a67b9173d6b6830548739b54fdfeac
Author: Eugene Sandulenko (sev at scummvm.org)
Date: 2021-07-30T19:35:24+02:00

Commit Message:
DEVTOOLS: Print statistics in MacBinary mode in dumper companion

Changed paths:
    devtools/dumper-companion.pl


diff --git a/devtools/dumper-companion.pl b/devtools/dumper-companion.pl
index 563eb8ef89..7164cf6d7b 100755
--- a/devtools/dumper-companion.pl
+++ b/devtools/dumper-companion.pl
@@ -172,6 +172,9 @@ sub processIso($) {
 }
 
 sub processMacbinary() {
+	my $countres = 0;
+	my $countren = 0;
+
 	find( sub {
 		my $fname = $_;
 		my $fname1 = $fname;
@@ -180,6 +183,8 @@ sub processMacbinary() {
 			print "Resource in $fname\n";
 			close F;
 
+			$countres++;
+
 			system1("macbinary encode \"$fname\"");
 			system1("touch -r \"$fname\" \"$fname.bin\"");
 
@@ -187,6 +192,11 @@ sub processMacbinary() {
 				$fname1 = encode_punycodefilename $fname;
 			}
 
+			if ($fname1 ne $fname) {
+				print "Renamed \"$fname\" to \"$fname1\"\n" unless $verbose;
+				$countren++;
+			}
+
 			system1("mv \"$fname.bin\" \"$fname1\"");
 		} else {
 			if ($::opt_e) {
@@ -194,12 +204,15 @@ sub processMacbinary() {
 
 				if ($fname1 ne $fname) {
 					system1("mv \"$fname\" \"$fname1\"");
+
+					print "Renamed \"$fname\" to \"$fname1\"\n" unless $verbose;
+					$countren++;
 				}
 			}
 		}
 
 	}, ".");
-
+	print "Macbinary $countres files, Renamed $countren files\n";
 }
 
 sub HELP_MESSAGE() {