Mercurial > forge
changeset 280:d635ce91ccaf octave-forge
still more tidying of summary output
| author | pkienzle |
|---|---|
| date | Wed, 10 Apr 2002 17:30:09 +0000 |
| parents | b1f96506fd9c |
| children | dff2af593001 |
| files | admin/make_index |
| diffstat | 1 files changed, 18 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/admin/make_index Wed Apr 10 16:32:55 2002 +0000 +++ b/admin/make_index Wed Apr 10 17:30:09 2002 +0000 @@ -36,7 +36,9 @@ find(\&index_files, "."); sub index_files { # {{{1 populates global array @files return unless -f and /INDEX$/; # INDEX files - push @index_files, "$File::Find::dir/$_"; + my $path = "$File::Find::dir/$_"; + $path =~ s|^[.]/||; + push @index_files, $path; } # 1}}} foreach my $f ( @index_files ) { load_index($f, @@ -57,10 +59,12 @@ find(\&cc_and_m_files, "$OCTAVE/scripts") if $include_octave; sub cc_and_m_files { # {{{1 populates global array @files return unless -f and /\.(m|cc)$/; # .m and .cc files + my $path = "$File::Find::dir/$_"; + $path =~ s|^[.]/||; if (/\.m$/) { - push @m_files, "$File::Find::dir/$_"; + push @m_files, $path; } else { - push @C_files, "$File::Find::dir/$_"; + push @C_files, $path; } } # 1}}} @@ -167,6 +171,7 @@ my $entry = sprintf("%-13s %s",$func,$desc); print wrap("","\t\t"," $entry"), "\n"; } + print "\n"; } } } @@ -181,10 +186,10 @@ if (@uncategorized) { - print "\n", scalar(@uncategorized), " uncategorized functions "; - print "(out of ", $n_functions, " total)\n"; - my $rs = $,; $, = "\n"; - print sort(@uncategorized); $, = $rs; + print scalar(@uncategorized), " uncategorized functions "; + print "(out of ", $n_functions, " total)"; + my $rs = $,; $, = "\n "; + print " ", sort(@uncategorized); $, = $rs; print "\n"; # print wrap("\t", "\t", join(" ", sort @uncategorized)), "\n"; } @@ -314,7 +319,12 @@ } $octave_forge_function{$function} = 1 unless $file =~ /^$OCTAVE/; if (!defined $index_by_function{$function}) { - push @uncategorized, "$file/$function"; + if ($file =~ /.m$/) { + push @uncategorized, "$file"; + } + else { + push @uncategorized, "$file: $function" + } } my $oneline = first_sentence($desc);