Эх сурвалжийг харах

doc/texi2pod: support @float.

Nicolas George 5 жил өмнө
parent
commit
7d7e44a3aa
1 өөрчлөгдсөн 9 нэмэгдсэн , 0 устгасан
  1. 9 0
      doc/texi2pod.pl

+ 9 - 0
doc/texi2pod.pl

@@ -172,6 +172,9 @@ INF: while(<$inf>) {
         } elsif ($ended =~ /^(?:itemize|enumerate|(?:multi|[fv])?table)$/) {
             $_ = "\n=back\n";
             $ic = pop @icstack;
+        } elsif ($ended =~ /^float$/) {
+            $_ = "\n=back\n";
+            $ic = pop @icstack;
         } else {
             die "unknown command \@end $ended at line $.\n";
         }
@@ -297,6 +300,12 @@ INF: while(<$inf>) {
         $_ = "";        # need a paragraph break
     };
 
+    /^\@(float)\s+\w+/ and do {
+        push @endwstack, $endw;
+        $endw = $1;
+        $_ = "\n=over 4\n";
+    };
+
     /^\@item\s+(.*\S)\s*$/ and $endw eq "multitable" and do {
         my $columns = $1;
         $columns =~ s/\@tab/ : /;