libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2025-03-06 10:17:14 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

DEVTOOLS: Reduce code duplication in dumper-companion.pl

Browse Source
This commit is contained in:
Eugene Sandulenko 2021-07-27 23:00:41 +02:00
parent 8199c96342
commit 57836da5bb
No known key found for this signature in database
GPG Key ID: 014D387312D34F08
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
devtools/dumper-companion.pl
View File

@ -38,6 +38,7 @@ sub processIso($);
sub processMacbinary();
sub decode_punycode;
sub encode_punycode;
sub encode_punycodefilename;
getopts('hmf:c:ed');
@ -93,14 +94,7 @@ sub processIso($) {
}
if ($::opt_e) {
# make 0x81 an escape symbol
$dir =~ s/\x81/\x81\x81/g;
# escape non-printables, '/', '"' and ":"
$dir =~ s/([\x00-\x1f\/":])/\x81@{[chr(ord($1) + 0x80)]}/g;
if ($dir =~ /[\x80-\xff]/) {
$dir = encode_punycode $dir;
}
$dir = encode_punycodefilename $dir;
}
# Replace Mac separators with *nix
$dir =~ s/:/\//g;
@ -120,14 +114,7 @@ sub processIso($) {
}
if ($::opt_e) {
# make 0x81 an escape symbol
$decfname =~ s/\x81/\x81\x79/g;
# escape non-printables, '/', '"' and ':'
$decfname =~ s/([\x00-\x1f\/":])/\x81@{[chr(ord($1) + 0x80)]}/g;
if ($decfname =~ /[\x80-\xff]/) {
$decfname = encode_punycode $decfname;
}
$decfname = encode_punycodefilename $decfname;
}
print " " x $prevlen;
@ -330,3 +317,17 @@ sub encode_punycode {
}
return 'xn--' . $output;
}
sub encode_punycodefilename {
my $decfname = shift;
$decfname =~ s/\x81/\x81\x79/g;
# escape non-printables, '/', '"' and ':'
$decfname =~ s/([\x00-\x1f\/":])/\x81@{[chr(ord($1) + 0x80)]}/g;
if ($decfname =~ /[\x80-\xff]/) {
$decfname = encode_punycode $decfname;
}
return $decfname;
}