[PATCH] define_index

[Hideki IWAMOTO]

* 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