Import a2ps_4.14.orig.tar.gz

[dgit import orig a2ps_4.14.orig.tar.gz]

1 files changed, 35 insertions, 0 deletions

diff --git a/doc/translators.pl b/doc/translators.pl
new file mode 100755
index 0000000..0741787
--- /dev/null
+++ b/doc/translators.pl
@@ -0,0 +1,35 @@
+#! /usr/local/bin/perl -w
+
+# Produce the list of the translators for the Texinfo documentation
+
+local ($mail, $name, $lang, $comment);
+
+$translator_file = "translators.txt";
+
+# List of the people who helped the translation
+open (STDIN, $translator_file)
+  || die "Could not open `$translator_file': $1\n";
+
+while (<>)
+  {
+    chop ;
+    ($mail, $name, $lang, $comment) = split ('	');
+
+    print "\@item\n";
+    if ($mail)
+      {
+	$mail =~ s/@/@@/g;
+	print "\@email{$mail, $name} ";
+      }
+    else
+      {
+	print "$name ";
+      }
+    print "($lang) ";
+    if ($comment)
+      {
+	print "$comment";
+      }
+    print "\n" x 2;
+  }
+