Message ID | 20200822105305.34429-1-george@nsup.org |
---|---|
State | Accepted |
Commit | 7d7e44a3aab1b14d80ec9c6ba32dff88d230eb70 |
Headers | show |
Series | [FFmpeg-devel,1/3] doc/texi2pod: support @float. | expand |
Context | Check | Description |
---|---|---|
andriy/default | pending | |
andriy/make | success | Make finished |
andriy/make_fate | success | Make fate finished |
On 22-08-2020 04:23 pm, Nicolas George wrote: > Signed-off-by: Nicolas George <george@nsup.org> > --- > doc/texi2pod.pl | 9 +++++++++ > 1 file changed, 9 insertions(+) > > diff --git a/doc/texi2pod.pl b/doc/texi2pod.pl > index 9a9b34fc15..c7f67afe8c 100644 > --- a/doc/texi2pod.pl > +++ b/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/ : /; Not well acquainted enough with texinfo to review this but 2/3 and 3/3 are fine. Gyan
Gyan Doshi (12020-08-22): > Not well acquainted enough with texinfo to review this but 2/3 and 3/3 are > fine. Thanks. I am confident enough about my perl and I checked the output. Series pushed. Regards,
diff --git a/doc/texi2pod.pl b/doc/texi2pod.pl index 9a9b34fc15..c7f67afe8c 100644 --- a/doc/texi2pod.pl +++ b/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/ : /;
Signed-off-by: Nicolas George <george@nsup.org> --- doc/texi2pod.pl | 9 +++++++++ 1 file changed, 9 insertions(+)