# HG changeset patch
# User adb014
# Date 1160802607 0
# Node ID 019a7290e0fd5a77efc2d01e876d5bfd5c0c22d1
# Parent  d9267aa7726dd80cf86c4fa482532b98976a3b2a
Respect NOINSTALL tags when indexing functions. Sort categories alphabetically

diff -r d9267aa7726d -r 019a7290e0fd admin/make_index
--- a/admin/make_index	Fri Oct 13 15:51:49 2006 +0000
+++ b/admin/make_index	Sat Oct 14 05:10:07 2006 +0000
@@ -73,7 +73,10 @@
     return if ($File::Find::dir =~ /packages$/);
     my $path = "$File::Find::dir/$_";
     $path =~ s|^[.]/||;
-    push @index_files, $path; 
+    my $noinstall = sprintf("%s/NOINSTALL", $path);
+    if (! -e $noinstall) {
+	push @index_files, $path; 
+    }
 } # 1}}}
 foreach my $f ( @index_files ) {
     load_index($f,
@@ -99,10 +102,13 @@
     return unless -f and /\.(m|cc|l|y)$/;  # .m and .cc files (lex & yacc too!)
     my $path = "$File::Find::dir/$_";
     $path =~ s|^[.]/||;
-    if (/\.m$/) {
-        push @m_files, $path;
-    } else {
-        push @C_files, $path;
+    my $noinstall = sprintf("%s/NOINSTALL", $path);
+    if (! -e $noinstall) {
+	if (/\.m$/) {
+	    push @m_files, $path;
+	} else {
+	    push @C_files, $path;
+	}
     }
 } # 1}}}
 
@@ -812,7 +818,7 @@
 	print OUT "<select name=\"dropdowncat\" size=\"1\" onChange=\"javascript:goto_url(docform.dropdowncat.value)\">\n";
 	print OUT "<option value=\"-1\">Categories</option>\n";
 
-    foreach my $TB (toolbox_list()) {
+    foreach my $TB (toolbox_list_sorted_by_desc()) {
 	print OUT "<option value=\"__BASE_ADDRESS__/doc/$TB.html\">$TB_description{$TB}</option>\n";
     }
     print OUT "</select>\n";
@@ -1139,6 +1145,10 @@
 # toolbox_list() returns an ordered list of toolboxes.
     return sort { uc($a) cmp uc($b) } keys %index_by_TB_cat;
 } # 1}}}
+sub toolbox_list_sorted_by_desc { # 1{{{
+# toolbox_list_sorted_by_desc() returns an ordered list of toolboxes.
+    return sort { uc($TB_description{$a}) cmp uc($TB_description{$b}) } keys %index_by_TB_cat;
+} # 1}}}
 sub package_list { # 1{{{
 # package_list() returns an ordered list of package directories.
     return sort { uc($a) cmp uc($b) } keys %index_by_package;