From 65a82610d15214eee56d0719c0f80c1e86b3039a Mon Sep 17 00:00:00 2001
From: Max Horn
Date: Fri, 13 May 2011 14:30:56 +0200
Subject: DEVTOOLS: Remove obsolete TeX mode from credits.pl, mention
 Credits.rtf

---
 devtools/credits.pl | 37 +------------------------------------
 1 file changed, 1 insertion(+), 36 deletions(-)

(limited to 'devtools')

diff --git a/devtools/credits.pl b/devtools/credits.pl
index c45f16eec9..46c75402c1 100755
--- a/devtools/credits.pl
+++ b/devtools/credits.pl
@@ -5,10 +5,9 @@
 # of the credits in other places from this source. In particular:
 # - The AUTHORS file
 # - The gui/credits.h header file
+# - The Credits.rtf file used by the Mac OS X port
 # - The credits.xml file, part of the DocBook manual
 # - Finally, credits.xml, for use on the website (different format than the DocBook one)
-# And maybe in the future, also "doc/10.tex", the LaTeX version of the README.
-# Although that might soon be obsolete, if the manual evolves enough.
 #
 # Initial version written by Fingolfin in December 2004.
 #
@@ -37,7 +36,6 @@ if ($#ARGV >= 0) {
 	$mode = "CPP" if ($ARGV[0] eq "--cpp");		# credits.h (for use by about.cpp)
 	$mode = "XML-DOC" if ($ARGV[0] eq "--xml-docbook");		# 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 "") {
@@ -184,10 +182,6 @@ sub begin_credits {
 
 	if ($mode eq "TEXT") {
 		#print html_entities_to_ascii($title)."\n";
-	} elsif ($mode eq "TEX") {
-		print "% This file was generated by credits.pl. Do not edit by hand!\n";
-		print '\section{Credits}' . "\n";
-		print '\begin{trivlist}' . "\n";
 	} elsif ($mode eq "RTF") {
 		print '{\rtf1\mac\ansicpg10000' . "\n";
 		print '{\fonttbl\f0\fswiss\fcharset77 Helvetica-Bold;\f1\fswiss\fcharset77 Helvetica;}' . "\n";
@@ -219,9 +213,6 @@ sub begin_credits {
 
 sub end_credits {
 	if ($mode eq "TEXT") {
-	} elsif ($mode eq "TEX") {
-		print '\end{trivlist}' . "\n";
-		print "\n";
 	} elsif ($mode eq "RTF") {
 		print "}\n";
 	} elsif ($mode eq "CPP") {
@@ -252,15 +243,6 @@ sub begin_section {
 		} elsif ($section_level eq 1) {
 			print "  " x $section_level . "-" x (length $title)."\n";
 		}
-	} elsif ($mode eq "TEX") {
-		print '\item \textbf{';
-		if ($section_level eq 0) {
-			print '\LARGE';
-		} elsif ($section_level eq 1) {
-			print '\large';
-		}
-		print " " . html_entities_to_tex($title) . "}\n";
-		print '\begin{list}{}{\setlength{\leftmargin}{0.2cm}}' . "\n";
 	} elsif ($mode eq "RTF") {
 		$title = html_entities_to_rtf($title);
 
@@ -327,8 +309,6 @@ sub end_section {
 
 	if ($mode eq "TEXT") {
 		# nothing
-	} elsif ($mode eq "TEX") {
-		print '\end{list}' . "\n";
 	} elsif ($mode eq "RTF") {
 		# nothing
 	} elsif ($mode eq "CPP") {
@@ -352,16 +332,12 @@ sub begin_persons {
 		print "\t\t\t<group>\n";
 		print "\t\t\t\t<name>" . $title . "</name>\n";
 		#print "\t\t\t\t<persons>\n";
-	} elsif ($mode eq "TEX") {
-		print '\item  \begin{tabular}[h]{p{0.3\linewidth}p{0.6\linewidth}}' . "\n";
 	}
 }
 
 sub end_persons {
 	if ($mode eq "TEXT") {
 		print "\n";
-	} elsif ($mode eq "TEX") {
-		print '  \end{tabular}' . "\n";
 	} elsif ($mode eq "RTF") {
 		# nothing
 	} elsif ($mode eq "XML-WEB") {
@@ -392,12 +368,6 @@ sub add_person {
 		  print " - " . substr(wrap($multitab, $multitab, $desc), $inner_indent);
 		}
 		print "\n";
-	} elsif ($mode eq "TEX") {
-		$name = $nick if $name eq "";
-		$name = html_entities_to_tex($name);
-		$desc = html_entities_to_tex($desc);
-
-		print "    $name & \\textit{$desc}\\\\\n";
 	} elsif ($mode eq "RTF") {
 		$name = $nick if $name eq "";
 		$name = html_entities_to_rtf($name);
@@ -447,11 +417,6 @@ sub add_paragraph {
 		$tab = " " x ($section_level * 2 + 1);
 		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
-- 
cgit v1.2.3