libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2025-04-02 23:01:42 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

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)

Browse Source 
svn-id: r17195
This commit is contained in:
Max Horn 2005-03-22 20:16:02 +00:00
parent 61d0e3f02c
commit 30bbfc4d24
1 changed files with 69 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
tools/credits.pl
View File

@ -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 = '",';