On 23/01/13 11:45, Luca Barbato wrote:
> ---
>
> I'm pondering of hacking texi2man and use it instead, this thing is
> nasty.
>
> doc/texi2pod.pl | 20 ++++++++++++++++++--
> 1 file changed, 18 insertions(+), 2 deletions(-)
>
> diff --git a/doc/texi2pod.pl b/doc/texi2pod.pl
> index 94323be..96d967b 100755
> --- a/doc/texi2pod.pl
> +++ b/doc/texi2pod.pl
> @@ -161,7 +161,7 @@ INF: while(<$inf>) {
> } elsif ($ended =~ /^(?:example|smallexample|display)$/) {
> $shift = "";
> $_ = ""; # need a paragraph break
> - } elsif ($ended =~ /^(?:itemize|enumerate|[fv]?table)$/) {
> + } elsif ($ended =~ /^(?:itemize|enumerate|(?:multi|[fv])?table)$/) {
> $_ = "\n=back\n";
> $ic = pop @icstack;
> } else {
> @@ -262,7 +262,7 @@ INF: while(<$inf>) {
> $endw = "enumerate";
> };
>
> - /^\@([fv]?table)\s+(\@[a-z]+)/ and do {
> + /^\@((?:multi|[fv])?table)\s+(\@[a-z]+)/ and do {
> push @endwstack, $endw;
> push @icstack, $ic;
> $endw = $1;
> @@ -271,6 +271,7 @@ INF: while(<$inf>) {
> $ic =~ s/\@(?:code|kbd)/C/;
> $ic =~ s/\@(?:dfn|var|emph|cite|i)/I/;
> $ic =~ s/\@(?:file)/F/;
> + $ic =~ s/\@(?:columnfractions)//;
> $_ = "\n=over 4\n";
> };
>
> @@ -281,6 +282,21 @@ INF: while(<$inf>) {
> $_ = ""; # need a paragraph break
> };
>
> + /^\@item\s+(.*\S)\s*$/ and $endw eq "multitable" and do {
> + my $columns = $1;
> + $columns =~ s/\@tab/ : /;
> +
> + $_ = "\n=item B<". $columns .">\n";
> + };
> +
> + /^\@tab\s+(.*\S)\s*$/ and $endw eq "multitable" and do {
> + my $columns = $1;
> + $columns =~ s/\@tab/ : /;
> +
> + $_ = " : ". $columns;
> + $section =~ s/\n+\s+$//;
> + };
> +
> /^\@itemx?\s*(.+)?$/ and do {
> if (defined $1) {
> # Entity escapes prevent munging by the <> processing below.
>
Ping.
_______________________________________________
libav-devel mailing list
[email protected]
https://lists.libav.org/mailman/listinfo/libav-devel
