Author: esr
Date: Fri Oct 3 18:15:11 2008
New Revision: 29833
URL: http://svn.gna.org/viewcvs/wesnoth?rev=29833&view=rev
Log:
Remove obsolere Windows packaging script; it assimes wrong things
about the shape of the documentation tree.
Removed:
trunk/utils/mkdos
Removed: trunk/utils/mkdos
URL: http://svn.gna.org/viewcvs/wesnoth/trunk/utils/mkdos?rev=29832&view=auto
==============================================================================
--- trunk/utils/mkdos (original)
+++ trunk/utils/mkdos (removed)
@@ -1,70 +1,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";
-}
_______________________________________________
Wesnoth-commits mailing list
[email protected]
https://mail.gna.org/listinfo/wesnoth-commits
