OSDN Git Service

* calls.c (expand_call): Handle current_function_pretend_args_size
[pf3gnuchains/gcc-fork.git] / contrib / texi2pod.pl
index 8c63ba2..480f26a 100755 (executable)
@@ -241,10 +241,14 @@ while(<$inf>) {
        and $_ = "\n=head3 $1\n";
 
     # Block command handlers:
-    /^\@itemize\s+(\@[a-z]+|\*|-)/ and do {
+    /^\@itemize(?:\s+(\@[a-z]+|\*|-))?/ and do {
        push @endwstack, $endw;
        push @icstack, $ic;
-       $ic = $1;
+       if (defined $1) {
+           $ic = $1;
+       } else {
+           $ic = '@bullet';
+       }
        $_ = "\n=over 4\n";
        $endw = "itemize";
     };
@@ -345,6 +349,9 @@ sub postprocess
     s/\@w\{([^\}]*)\}/S<$1>/g;
     s/\@(?:dmn|math)\{([^\}]*)\}/$1/g;
 
+    # keep references of the form @ref{...}, print them bold
+    s/\@(?:ref)\{([^\}]*)\}/B<$1>/g;
+
     # Cross references are thrown away, as are @noindent and @refill.
     # (@noindent is impossible in .pod, and @refill is unnecessary.)
     # @* is also impossible in .pod; we discard it and any newline that