[Scummvm-cvs-logs] SF.net SVN: scummvm:[45593] scummvm/branches/branch-1-0-0/tools/credits.pl

[fingolfin at users.sourceforge.net]

Revision: 45593
          http://scummvm.svn.sourceforge.net/scummvm/?rev=45593&view=rev
Author:   fingolfin
Date:     2009-11-01 09:53:04 +0000 (Sun, 01 Nov 2009)

Log Message:
-----------
Sync credits.pl fixes between branch and trunk

Modified Paths:
--------------
    scummvm/branches/branch-1-0-0/tools/credits.pl

Modified: scummvm/branches/branch-1-0-0/tools/credits.pl
===================================================================
--- scummvm/branches/branch-1-0-0/tools/credits.pl	2009-11-01 09:39:16 UTC (rev 45592)
+++ scummvm/branches/branch-1-0-0/tools/credits.pl	2009-11-01 09:53:04 UTC (rev 45593)
@@ -69,11 +69,13 @@
 	# ü    -> ue
 	# &     -> &
 	# ł    -> l
+	# Š  -> S
 	$text =~ s/á/a/g;
 	$text =~ s/é/e/g;
 	$text =~ s/ó/o/g;
 	$text =~ s/ø/o/g;
 	$text =~ s/ł/l/g;
+	$text =~ s/Š/S/g;
 
 	$text =~ s/ä/a/g;
 	$text =~ s/ü/ue/g;
@@ -95,6 +97,7 @@
 	$text =~ s/ó/\\363/g;
 	$text =~ s/ø/\\370/g;
 	$text =~ s/ł/l/g;
+	$text =~ s/Š/\\352/g;
 
 	$text =~ s/ä/\\344/g;
 	$text =~ s/ö/\\366/g;
@@ -114,6 +117,7 @@
 	$text =~ s/ó/\\'97/g;
 	$text =~ s/ø/\\'bf/g;
 	$text =~ s/ł/\\uc0\\u322 /g;
+	$text =~ s/Š/\\uc0\\u352 /g;
 
 	$text =~ s/ä/\\'8a/g;
 	$text =~ s/ö/\\'9a/g;
@@ -133,6 +137,7 @@
 	$text =~ s/ó/\\'o/g;
 	$text =~ s/ø/{\\o}/g;
 	$text =~ s/ł/{\\l}/g;
+	$text =~ s/Š/{\\v S}/g;
 
 	$text =~ s/ä/\\"a/g;
 	$text =~ s/ö/\\"o/g;
@@ -428,16 +433,18 @@
 		print wrap($tab, $tab, html_entities_to_ascii($text))."\n";
 		print "\n";
 	} elsif ($mode eq "TEX") {
+		$text = html_entities_to_tex($text);
 		print '\item' . "\n";
 		print $text;
 		print "\n";
 	} elsif ($mode eq "RTF") {
+		$text = html_entities_to_rtf($text);
 		# Center text
 		print '\pard\qc' . "\n";
 		print "\\\n";
 		print $text . "\\\n";
 	} elsif ($mode eq "CPP") {
-		$test = html_entities_to_ascii($text);
+		$text = html_entities_to_ascii($text);
 		my $line_start = '"C0""';
 		my $line_end = '",';
 		print $line_start . $text . $line_end . "\n";


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.