Re: [PATCH] define_index

[Shigio Yamaguchi]

I have committed your patch.
Thank you!

> * Omit the index, when there is no definition
> * Changed "following functions" to "following definitions"
> 
> ===================================================================
> RCS file: /cvsroot/global/global/htags/htags.in,v
> retrieving revision 1.113
> diff -u -r1.113 htags.in
> --- htags/htags.in    16 Apr 2003 02:28:42 -0000      1.113
> +++ htags/htags.in    20 Apr 2003 12:43:15 -0000
> @@ -2134,20 +2134,25 @@
>               }
>               print " */$'comment_end";
>               print "\n<HR>\n";
> -             print "<H2>$'title_define_index</H2>\n";
> -             print "This source file includes following functions.\n";
> -             print "<OL>\n";
> +
> +             local($define_index) = '';
>               local($lno, $tag, $type);
>               for (($lno, $tag, $type) = &anchor'first(); $lno; ($lno, $tag, 
$type) = &anchor'next()) {
>                       if ($type eq 'D') {
> -                             print "<LI><A HREF=#$lno";
> -                             print " title=\"" . &'show('R',$lno,'') . "\"";
> -                             print " onMouseOver=\"show('R',$lno,'')\"" if (
$'use_javascript);
> -                             print ">$tag</A>\n";
> +                             $define_index .= "<LI><A HREF=#$lno";
> +                             $define_index .= " title=\"" . &'show('R',$lno,
'') . "\"";
> +                             $define_index .= " onMouseOver=\"show('R',$lno,
'')\"" if ($'use_javascript);
> +                             $define_index .=  ">$tag</A>\n";
>                       }
>               }
> -             print "</OL>\n";
> -             print "<HR>\n";
> +             if ($define_index) {
> +                     print "<H2>$'title_define_index</H2>\n";
> +                     print "This source file includes following definitions.
\n";
> +                     print "<OL>\n";
> +                     print $define_index;
> +                     print "</OL>\n";
> +                     print "<HR>\n";
> +             }
>  
>               local($basename) = ($file =~ /([^\/]+)$/);
>               if (defined $'included_from{$basename}) {
> 
> ----
> Hideki IWAMOTO  address@hidden
> 
> 
> _______________________________________________
> Bug-global mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/bug-global
> 
> 
--
Shigio Yamaguchi <address@hidden> - Tama Communications Corporation
Spare mail address: <address@hidden>
PGP fingerprint: D1CB 0B89 B346 4AB6 5663  C4B6 3CA5 BBB3 57BE DDA3