mirror of
https://github.com/wesnoth/wesnoth
synced 2025-04-26 20:04:11 +00:00
71 lines
1.7 KiB
Perl
Executable File
71 lines
1.7 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# mkdos
|
|
# make DOS-style versions of text files shipped with release
|
|
# the list below needs to be updated when new text files are added!
|
|
# run it in the main distribution directory
|
|
# generates a list of the files it has created on stdout
|
|
|
|
# this is a helper script for the Battle for Wesnoth project
|
|
# see http://www.wesnoth.org/
|
|
# this script is distributed on the same terms as Battle for Wesnoth itself
|
|
|
|
# format of each line: original-name dosified-name
|
|
%files = qw(
|
|
COPYING COPYING.txt
|
|
INSTALL INSTALL.txt
|
|
MANUAL.brazilian MANUAL-pt_BR.txt
|
|
MANUAL.catalan MANUAL-ca.txt
|
|
MANUAL.chinese_simplified MANUAL-zh_CN.txt
|
|
MANUAL.czech MANUAL-cs.txt
|
|
MANUAL.danish MANUAL-da.txt
|
|
MANUAL.french MANUAL-fr.txt
|
|
MANUAL.german MANUAL-de.txt
|
|
MANUAL.hungarian MANUAL-hu.txt
|
|
MANUAL.indonesian MANUAL-id.txt
|
|
MANUAL.italian MANUAL-it.txt
|
|
MANUAL.japanese MANUAL-jp.txt
|
|
MANUAL.norwegian MANUAL-no.txt
|
|
MANUAL.polish MANUAL-pl.txt
|
|
MANUAL.russian MANUAL-ru.txt
|
|
MANUAL.serbian MANUAL-sr.txt
|
|
MANUAL.serbian-latin MANUAL-sr-lat.txt
|
|
MANUAL.spanish MANUAL-es.txt
|
|
MANUAL.swedish MANUAL-sv.txt
|
|
MANUAL.turkish MANUAL-tr.txt
|
|
README README.txt
|
|
changelog changelog.txt
|
|
players_changelog players_changelog.txt
|
|
);
|
|
|
|
READFILE:
|
|
foreach $f ( keys %files ) {
|
|
unless (open(IN, "$f")) {
|
|
warn "cannot read $f, skipping";
|
|
next READFILE
|
|
}
|
|
unless (open(OUT, ">".$files{$f})) {
|
|
warn "cannot create $files{$f}, skipping";
|
|
next READFILE
|
|
}
|
|
push @written, $files{$f};
|
|
while (<IN>) {
|
|
if (/ / or /^[- |]/) {
|
|
s/\n$/\r\n/;
|
|
} elsif (/^$/) {
|
|
s/^\n$/\r\n\r\n/;
|
|
} else {
|
|
s/\n$/ /;
|
|
}
|
|
#s/^\s*$//;
|
|
#s/^$/\r\n\r\n/;
|
|
print OUT;
|
|
}
|
|
print OUT "\r\n";
|
|
close IN;
|
|
close OUT;
|
|
}
|
|
if (@written) {
|
|
print join("\n", @written), "\n";
|
|
}
|