0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove obsolete Windows packaging script; it assumes wrong things...

Browse source 
...about the shape of the documentation tree.
This commit is contained in:
Eric S. Raymond 2008-10-03 16:15:11 +00:00
parent b191839336
commit b7c37ff074
1 changed files with 0 additions and 70 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
utils/mkdos
View file

@ -1,70 +0,0 @@
#!/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";
}