aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMax Horn2005-03-22 20:16:02 +0000
committerMax Horn2005-03-22 20:16:02 +0000
commit30bbfc4d245bd9a1fb767f6d2537c37a32619c7a (patch)
treea8dbb5c2c0e96c21c690fb46a8ee20803d3a037e
parent61d0e3f02c5f75f5afa6ba843c876a7957ba7d63 (diff)
downloadscummvm-rg350-30bbfc4d245bd9a1fb767f6d2537c37a32619c7a.tar.gz
scummvm-rg350-30bbfc4d245bd9a1fb767f6d2537c37a32619c7a.tar.bz2
scummvm-rg350-30bbfc4d245bd9a1fb767f6d2537c37a32619c7a.zip
Add RTF as an output format, allowing the creation of a Credits.rtf file for the OSX version (currently using some Mac/Cocoa specific header stuff, mostly because I am too lazy to do look this up in the RTF specs right now)
svn-id: r17195
-rwxr-xr-xtools/credits.pl81
1 files changed, 69 insertions, 12 deletions
diff --git a/tools/credits.pl b/tools/credits.pl
index a9c43353b8..e6755abe80 100755
--- a/tools/credits.pl
+++ b/tools/credits.pl
@@ -27,16 +27,17 @@ my $indent;
my $tab;
if ($#ARGV >= 0) {
- $mode = "TEXT" if ($ARGV[0] eq "--text"); # AUTHROS
+ $mode = "TEXT" if ($ARGV[0] eq "--text"); # AUTHORS file
$mode = "HTML" if ($ARGV[0] eq "--html"); # credits.inc (for use on the website)
$mode = "CPP" if ($ARGV[0] eq "--cpp"); # credits.h (for use by about.cpp)
$mode = "XML" if ($ARGV[0] eq "--xml"); # credits.xml (DocBook)
+ $mode = "RTF" if ($ARGV[0] eq "--rtf"); # Credits.rtf (Mac OS X About box)
#$mode = "TEX" if ($ARGV[0] eq "--tex"); # 10.tex (LaTeX)
}
if ($mode eq "") {
- print STDERR "Usage: credits.pl [--text | --html | --cpp | --xml]\n";
- print STDERR " Just pass --text / --html / --cpp / --xml as parameter, and credits.pl\n";
+ print STDERR "Usage: credits.pl [--text | --html | --cpp | --xml | --rtf]\n";
+ print STDERR " Just pass --text / --html / --cpp / --xml / --rtf as parameter, and credits.pl\n";
print STDERR " will print out the corresponding version of the credits to stdout.\n";
exit 1;
}
@@ -52,7 +53,7 @@ if ($mode eq "TEXT") {
}
# Convert HTML entities to ASCII for the plain text mode
-sub convert_html_entities {
+sub html_entities_to_ascii {
my $text = shift;
# For now we hardcode these mappings
@@ -76,11 +77,32 @@ sub convert_html_entities {
return $text;
}
+# Convert HTML entities to RTF codes
+sub html_entities_to_rtf {
+ my $text = shift;
+
+ $text =~ s/á/\\'87/g;
+ $text =~ s/é/\\'8e/g;
+ $text =~ s/ø/\\'bf/g;
+ $text =~ s/ł/\\uc0\\u322 /g;
+ $text =~ s/ö/\\'9a/g;
+
+ $text =~ s/&/&/g;
+
+ return $text;
+}
+
sub begin_credits {
my $title = shift;
if ($mode eq "TEXT") {
- #print convert_html_entities($title)."\n";
+ #print html_entities_to_ascii($title)."\n";
+ } elsif ($mode eq "RTF") {
+ print '{\rtf1\mac\ansicpg10000\cocoartf102' . "\n";
+ print '{\fonttbl\f0\fswiss\fcharset77 Helvetica-Bold;\f1\fswiss\fcharset77 Helvetica;}' . "\n";
+ print '{\colortbl;\red255\green255\blue255;\red0\green128\blue0;}' . "\n";
+ print '\vieww6920\viewh15480\viewkind0' . "\n";
+ print "\n";
} elsif ($mode eq "CPP") {
print "// This file was generated by credits.pl. Do not edit by hand!\n";
print "static const char *credits[] = {\n";
@@ -103,6 +125,8 @@ sub begin_credits {
sub end_credits {
if ($mode eq "TEXT") {
+ } elsif ($mode eq "RTF") {
+ print "}\n";
} elsif ($mode eq "CPP") {
print "};\n";
} elsif ($mode eq "XML") {
@@ -118,10 +142,20 @@ sub end_credits {
sub begin_section {
my $title = shift;
if ($mode eq "TEXT") {
- $title = convert_html_entities($title);
+ $title = html_entities_to_ascii($title);
print $title.":\n";
+ } elsif ($mode eq "RTF") {
+ $title = html_entities_to_rtf($title);
+
+ # Center text
+ print '\pard\qc' . "\n";
+ print '\f0\b\fs28 \cf2 ' . $title . "\n";
+ print '\f1\b0\fs24 \cf0 \\' . "\n";
+# print '\pard\tx565\li574\fi-574\ql\qnatural' . "\n";
+ # Switch back to base font
+ print '\cf0' . "\n";
} elsif ($mode eq "CPP") {
- $title = convert_html_entities($title);
+ $title = html_entities_to_ascii($title);
print '"\\\\C\\\\c1""'.$title.':",' . "\n";
} elsif ($mode eq "XML") {
print " <row><entry namest='start' nameend='job'>";
@@ -135,6 +169,8 @@ sub begin_section {
sub end_section {
if ($mode eq "TEXT") {
print "\n";
+ } elsif ($mode eq "RTF") {
+ print "\\\n";
} elsif ($mode eq "CPP") {
print '"\\\\L\\\\c0""",' . "\n";
} elsif ($mode eq "XML") {
@@ -151,8 +187,8 @@ sub add_person {
if ($mode eq "TEXT") {
$name = $nick if $name eq "";
- $name = convert_html_entities($name);
- $desc = convert_html_entities($desc);
+ $name = html_entities_to_ascii($name);
+ $desc = html_entities_to_ascii($desc);
printf $tab."%-".$max_name_width.".".$max_name_width."s - ", $name;
@@ -160,10 +196,26 @@ sub add_person {
my $inner_indent = $indent + $max_name_width + 3;
my $multitab = " " x $inner_indent;
print substr(wrap($multitab, $multitab, $desc), $inner_indent)."\n"
+ } elsif ($mode eq "RTF") {
+ $name = $nick if $name eq "";
+ $name = html_entities_to_rtf($name);
+ $desc = html_entities_to_rtf($desc);
+
+ # Left align name
+ print '\pard\ql\qnatural' . "\n";
+ print $name . "\\\n";
+
+ # Left align description, with a left indention
+ print '\pard\li560\ql\qnatural' . "\n";
+ # Italics
+ print "\\i " . $desc . "\\i0\\\n";
+# print $name . "\\\n";
+# print "\\i\t" . $desc . "\\i0\\\n";
+## print "\t" . $name . "\t- " . $desc . "\\\n";
} elsif ($mode eq "CPP") {
$name = $nick if $name eq "";
- $name = convert_html_entities($name);
- $desc = convert_html_entities($desc);
+ $name = html_entities_to_ascii($name);
+ $desc = html_entities_to_ascii($desc);
print '"\\\\L\\\\c0"" '.$name.'",' . "\n";
@@ -195,8 +247,13 @@ sub add_paragraph {
my $text = shift;
if ($mode eq "TEXT") {
- print wrap($tab, $tab, convert_html_entities($text))."\n";
+ print wrap($tab, $tab, html_entities_to_ascii($text))."\n";
print "\n";
+ } elsif ($mode eq "RTF") {
+ # Left align text
+ print '\pard\ql\qnatural' . "\n";
+ print $text . "\\\n";
+ print "\\\n";
} elsif ($mode eq "CPP") {
my $line_start = '"\\\\L\\\\c0""';
my $line_end = '",';