texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm, P


From: Patrice Dumas
Subject: branch master updated: * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm, Pod-Simple-Texinfo/pod2texi.pl: rename Texinfo::Convert::Texinfo convert() as convert_to_texinfo(). Report from shoober420.
Date: Sat, 21 Aug 2021 06:53:02 -0400

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new c45b25e  * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm, 
Pod-Simple-Texinfo/pod2texi.pl: rename Texinfo::Convert::Texinfo convert() as 
convert_to_texinfo(). Report from shoober420.
c45b25e is described below

commit c45b25eacfd9e3256754856b1ae23fbdc5a92ba8
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sat Aug 21 12:52:50 2021 +0200

    * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm,
    Pod-Simple-Texinfo/pod2texi.pl: rename
    Texinfo::Convert::Texinfo convert() as convert_to_texinfo().
    Report from shoober420.
---
 ChangeLog                                    |  7 +++++++
 Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm | 10 +++++-----
 Pod-Simple-Texinfo/pod2texi.pl               |  6 +++---
 man/pod2texi.1                               | 22 +++++++++++++---------
 4 files changed, 28 insertions(+), 17 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3123fe9..91a3436 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2021-08-21  Patrice Dumas  <pertusus@free.fr>
 
+       * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm,
+       Pod-Simple-Texinfo/pod2texi.pl: rename 
+       Texinfo::Convert::Texinfo convert() as convert_to_texinfo().
+       Report from shoober420.
+
+2021-08-21  Patrice Dumas  <pertusus@free.fr>
+
        * tp/Texinfo/ParserNonXS.pm (%in_simple_text_headings_commands),
        (%simple_text_commands, %simple_text_headings_commands)
        (%default_valid_nestings): add valid nestings for
diff --git a/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm 
b/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
index 1f99857..1c85953 100644
--- a/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
+++ b/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
@@ -273,7 +273,7 @@ sub _protect_comma($)
   my $texinfo = shift;
   my $tree = parse_texi_line(undef, $texinfo);
   $tree = protect_comma_in_tree($tree);
-  return Texinfo::Convert::Texinfo::convert($tree);
+  return Texinfo::Convert::Texinfo::convert_to_texinfo($tree);
 }
 
 sub _protect_hashchar($)
@@ -283,7 +283,7 @@ sub _protect_hashchar($)
   if ($texinfo =~ /#/) {
     my $tree = parse_texi_text(undef, $texinfo);
     protect_hashchar_at_line_beginning(undef, $tree);
-    return Texinfo::Convert::Texinfo::convert($tree);
+    return Texinfo::Convert::Texinfo::convert_to_texinfo($tree);
   } else {
     return $texinfo;
   }
@@ -294,7 +294,7 @@ sub _reference_to_text_in_texi($)
   my $texinfo = shift;
   my $tree = parse_texi_text(undef, $texinfo);
   Texinfo::Transformations::reference_to_arg_in_tree(undef, $tree);
-  return Texinfo::Convert::Texinfo::convert($tree);
+  return Texinfo::Convert::Texinfo::convert_to_texinfo($tree);
 }  
 
 sub _section_manual_to_node_name($$$)
@@ -334,7 +334,7 @@ sub _normalize_texinfo_name($$)
     $tree->{'contents'}->[0]->{'args'}->[-0]->{'contents'}
       = 
protect_first_parenthesis($tree->{'contents'}->[0]->{'args'}->[-0]->{'contents'});
   }
-  my $fixed_text = Texinfo::Convert::Texinfo::convert($tree, 1);
+  my $fixed_text = Texinfo::Convert::Texinfo::convert_to_texinfo($tree, 1);
   my $result = $fixed_text;
   if ($command eq 'anchor') {
     $result =~ s/^\@anchor\{(.*)\}$/$1/s;
@@ -385,7 +385,7 @@ sub _prepare_anchor($$)
   }
   $node_tree = protect_comma_in_tree($node_tree);
   $self->{'texinfo_nodes'}->{$normalized} = $node_tree;
-  my $final_node_name = Texinfo::Convert::Texinfo::convert($node_tree, 1);
+  my $final_node_name = 
Texinfo::Convert::Texinfo::convert_to_texinfo($node_tree, 1);
   return $final_node_name;
 }
 
diff --git a/Pod-Simple-Texinfo/pod2texi.pl b/Pod-Simple-Texinfo/pod2texi.pl
index ba3ac4c..4e99332 100755
--- a/Pod-Simple-Texinfo/pod2texi.pl
+++ b/Pod-Simple-Texinfo/pod2texi.pl
@@ -254,7 +254,7 @@ sub _fix_texinfo_tree($$$$;$)
           # First remove the old normalized entry
           delete $parser->{'labels'}->{$node->{'extra'}->{'normalized'}};
           # now get the number
-          my $node_texi = Texinfo::Convert::Texinfo::convert(
+          my $node_texi = Texinfo::Convert::Texinfo::convert_to_texinfo(
                 {'contents' => $node->{'extra'}->{'node_content'}});
           # We could have kept the asis, too, it is kept when !section_nodes
           $node_texi =~ s/^\s*(\@asis\{\})?\s*//;
@@ -298,7 +298,7 @@ sub _fix_texinfo_manual($$$$;$)
   my $do_master_menu = shift;
   my ($parser, $tree) = _fix_texinfo_tree($self, $manual_texi, $section_nodes, 
                                     $fill_gaps_in_sectioning, $do_master_menu);
-  return Texinfo::Convert::Texinfo::convert($tree);
+  return Texinfo::Convert::Texinfo::convert_to_texinfo($tree);
 }
 
 sub _do_top_node_menu($)
@@ -308,7 +308,7 @@ sub _do_top_node_menu($)
   my $labels = $parser->labels_information();
   my $top_node_menu = $labels->{'Top'}->{'menus'}->[0];
   if ($top_node_menu) {
-    return Texinfo::Convert::Texinfo::convert($top_node_menu);
+    return Texinfo::Convert::Texinfo::convert_to_texinfo($top_node_menu);
   } else {
     return '';
   }
diff --git a/man/pod2texi.1 b/man/pod2texi.1
index 2c872eb..a068336 100644
--- a/man/pod2texi.1
+++ b/man/pod2texi.1
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 4.09 (Pod::Simple 3.35)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
 .\"
 .\" Standard preamble:
 .\" ========================================================================
@@ -54,16 +54,20 @@
 .\" Avoid warning from groff about undefined register 'F'.
 .de IX
 ..
-.if !\nF .nr F 0
-.if \nF>0 \{\
-.    de IX
-.    tm Index:\\$1\t\\n%\t"\\$2"
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+.    if \nF \{\
+.        de IX
+.        tm Index:\\$1\t\\n%\t"\\$2"
 ..
-.    if !\nF==2 \{\
-.        nr % 0
-.        nr F 2
+.        if !\nF==2 \{\
+.            nr % 0
+.            nr F 2
+.        \}
 .    \}
 .\}
+.rr rF
 .\"
 .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
 .\" Fear.  Run.  Save yourself.  No user-serviceable parts.
@@ -129,7 +133,7 @@
 .\" ========================================================================
 .\"
 .IX Title "POD2TEXI 1"
-.TH POD2TEXI 1 "2021-06-17" "perl v5.26.1" "User Contributed Perl 
Documentation"
+.TH POD2TEXI 1 "2021-08-21" "perl v5.32.1" "User Contributed Perl 
Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l



reply via email to

[Prev in Thread] Current Thread [Next in Thread]