Mercurial > forge

changeset 2725:17e4d690e168 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Only index files in the function reference that aren't ignored
author adb014
date Wed, 18 Oct 2006 20:19:42 +0000
parents c44c63ded447
children eeed7b07e53b
files admin/make_index
diffstat 1 files changed, 8 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/admin/make_index	Wed Oct 18 20:18:55 2006 +0000
+++ b/admin/make_index	Wed Oct 18 20:19:42 2006 +0000
@@ -521,12 +521,15 @@
     }
     if (! ($file =~ /^$OCTAVE/)) {
 	$octave_forge_function{$function} = 1;
-	my $package = $file;
-	$package =~ s|^\s*([^/]+/[^/]+/).*$|$1|;
-	if ($package =~ /^\s*$/) {
-	    printf("%-12s %-20s %s\n", $function, $file, $package);
+	if (defined $index_by_function{$function} ||
+	    ($function !~ /__/ && $file !~ /test/ 
+	     && $function !~ /^[Cc]ontents?$/
+	     && $function !~ /pre_install/
+	     && $function !~ /post_install/)) {
+	    my $package = $file;
+	    $package =~ s|^\s*([^/]+/[^/]+/).*$|$1|;
+	    push @{$index_by_package{$package}}, $function;
 	}
-	push @{$index_by_package{$package}}, $function;
     }
     if (!defined $index_by_function{$function}) {
 	my $entry = $file;