OSDN Git Service

Make texi2pod.pl process @include texinfo directives wherever they are
authorStefano Sabatini <stefano.sabatini-lala@poste.it>
Tue, 8 Jun 2010 23:03:16 +0000 (23:03 +0000)
committerStefano Sabatini <stefano.sabatini-lala@poste.it>
Tue, 8 Jun 2010 23:03:16 +0000 (23:03 +0000)
placed, and not only if inside @c man begin/end sections.

Originally committed as revision 23544 to svn://svn.ffmpeg.org/ffmpeg/trunk

doc/texi2pod.pl

index 07b724f..fd3f020 100755 (executable)
@@ -100,6 +100,17 @@ while(<$inf>) {
         next;
     };
 
+    /^\@include\s+(.+)$/ and do {
+        push @instack, $inf;
+        $inf = gensym();
+
+        # Try cwd and $ibase.
+        open($inf, "<" . $1)
+            or open($inf, "<" . $ibase . "/" . $1)
+                or die "cannot open $1 or $ibase/$1: $!\n";
+        next;
+    };
+
     # Look for blocks surrounded by @c man begin SECTION ... @c man end.
     # This really oughta be @ifman ... @end ifman and the like, but such
     # would require rev'ing all other Texinfo translators.
@@ -220,17 +231,6 @@ while(<$inf>) {
 
     # Single line command handlers.
 
-    /^\@include\s+(.+)$/ and do {
-        push @instack, $inf;
-        $inf = gensym();
-
-        # Try cwd and $ibase.
-        open($inf, "<" . $1)
-            or open($inf, "<" . $ibase . "/" . $1)
-                or die "cannot open $1 or $ibase/$1: $!\n";
-        next;
-    };
-
     /^\@(?:section|unnumbered|unnumberedsec|center)\s+(.+)$/
         and $_ = "\n=head2 $1\n";
     /^\@subsection\s+(.+)$/