texi2pod.pl: Handle @subsubsection, ignore @anchor.

2007-02-16  Matthias Klose  <doko@debian.org>

        * texi2pod.pl: Handle @subsubsection, ignore @anchor.

From-SVN: r122026

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index 7405f44e569ad7b575206ec866d64e2df018fcf7..53535521c9443e091a9bdd5dc1b4ea3c11ef1754 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2007-02-16  Matthias Klose  <doko@debian.org>
+
+       * texi2pod.pl: Handle @subsubsection, ignore @anchor.
+
 2007-02-10  Hans-Peter Nilsson  <hp@axis.com>
 
        * test_summary (configflags): Adjust for changes in the

diff --git a/contrib/texi2pod.pl b/contrib/texi2pod.pl
index 2791cdd85f0164065851f01d9778f55eff1be15f..e7b983bd2d282c0a46088d065af2d165ee53aa83 100755 (executable)
--- a/contrib/texi2pod.pl
+++ b/contrib/texi2pod.pl
@@ -254,6 +254,8 @@ while(<$inf>) {
        and $_ = "\n=head2 $1\n";
     /^\@subsection\s+(.+)$/
        and $_ = "\n=head3 $1\n";
+    /^\@subsubsection\s+(.+)$/
+       and $_ = "\n=head4 $1\n";
 
     # Block command handlers:
     /^\@itemize(?:\s+(\@[a-z]+|\*|-))?/ and do {
@@ -400,6 +402,9 @@ sub postprocess
     s/\@gol//g;
     s/\@\*\s*\n?//g;
 
+    # Anchors are thrown away
+    s/\@anchor\{(?:[^\}]*)\}//g;
+
     # @uref can take one, two, or three arguments, with different
     # semantics each time.  @url and @email are just like @uref with
     # one argument, for our purposes.