[Qemu-devel] [RFC PATCH 02/32] texi2pod: Support @verbatim environment

[Markus Armbruster <armbru@redhat.com>]

Signed-off-by: Markus Armbruster <armbru@redhat.com>
---
 scripts/texi2pod.pl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/scripts/texi2pod.pl b/scripts/texi2pod.pl
index 39ce584a32..2171f8b819 100755
--- a/scripts/texi2pod.pl
+++ b/scripts/texi2pod.pl
@@ -85,6 +85,13 @@ if (defined $out) {
 
 while(defined $inf) {
 while(<$inf>) {
+    # Verbatim environment
+    if (defined $endw and $endw eq "verbatim"
+	and not (/^\@end\s+([a-z]+)/ and $1 eq $endw)) {
+	$section .= "\t".$_;
+	next;
+    }
+
     # Certain commands are discarded without further processing.
     /^\@(?:
 	 [a-z]+index		# @*index: useful only in complete manual
@@ -165,7 +172,7 @@ while(<$inf>) {
 	if ($ended =~ /^(?:ifset|ifclear|ignore|menu|iftex)$/) {
 	    $skipping = pop @skstack;
 	    next;
-	} elsif ($ended =~ /^(?:example|smallexample|display
+	} elsif ($ended =~ /^(?:example|smallexample|display|verbatim
                             |quotation|deftp|deftypefn)$/x) {
 	    $shift = "";
 	    $_ = "";	# need a paragraph break
@@ -311,7 +318,7 @@ while(<$inf>) {
 	$_ = "\n=over 4\n";
     };
 
-    /^\@((?:small)?example|display)/ and do {
+    /^\@((?:small)?example|display|verbatim)/ and do {
 	push @endwstack, $endw;
 	$endw = $1;
 	$shift = "\t";
-- 
2.13.6