From: rsandifo <rsandifo@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 6 Feb 2007 13:14:18 +0000 (+0000)
Subject: contrib/
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=2eed23eb9d4d15d4c0fd946c7931de82fb7201c0;hp=9aac6e57b210907273ff80fe81870d8f5147c28d;ds=sidebyside

contrib/
	* texi2pod.pl: Handle @multitable.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@121646 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index a097c762ce3..3b04fdc6107 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2007-02-06  Richard Sandiford  <richard@codesourcery.com>
+
+	* texi2pod.pl: Handle @multitable.
+
 2007-01-15  Tom Tromey  <tromey@redhat.com>
 
 	* download_ecj: New file.
diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl
index ed0d102a1a5..2791cdd85f0 100755
--- a/contrib/texi2pod.pl
+++ b/contrib/texi2pod.pl
@@ -162,6 +162,8 @@ while(<$inf>) {
 	} elsif ($ended =~ /^(?:itemize|enumerate|[fv]?table)$/) {
 	    $_ = "\n=back\n";
 	    $ic = pop @icstack;
+	} elsif ($ended eq "multitable") {
+	    $_ = "\n=back\n";
 	} else {
 	    die "unknown command \@end $ended at line $.\n";
 	}
@@ -278,6 +280,12 @@ while(<$inf>) {
 	$endw = "enumerate";
     };
 
+    /^\@multitable\s.*/ and do {
+	push @endwstack, $endw;
+	$endw = "multitable";
+	$_ = "\n=over 4\n";
+    };
+
     /^\@([fv]?table)\s+(\@[a-z]+)/ and do {
 	push @endwstack, $endw;
 	push @icstack, $ic;
@@ -297,6 +305,16 @@ while(<$inf>) {
 	$_ = "";	# need a paragraph break
     };
 
+    /^\@item\s+(.*\S)\s*$/ and $endw eq "multitable" and do {
+	@columns = ();
+	for $column (split (/\s*\@tab\s*/, $1)) {
+	    # @strong{...} is used a @headitem work-alike
+	    $column =~ s/^\@strong{(.*)}$/$1/;
+	    push @columns, $column;
+	}
+	$_ = "\n=item ".join (" : ", @columns)."\n";
+    };
+
     /^\@itemx?\s*(.+)?$/ and do {
 	if (defined $1) {
 	    # Entity escapes prevent munging by the <> processing below.