Mercurial > forge
changeset 2676:019a7290e0fd octave-forge
Respect NOINSTALL tags when indexing functions. Sort categories alphabetically
| author | adb014 |
|---|---|
| date | Sat, 14 Oct 2006 05:10:07 +0000 |
| parents | d9267aa7726d |
| children | 71b7f11da328 |
| files | admin/make_index |
| diffstat | 1 files changed, 16 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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;