version 1.3, 2004/09/14 22:26:17
|
version 1.4, 2008/07/29 21:18:16
|
Line 40 sub print_unused {
|
Line 40 sub print_unused {
|
foreach my $file (@{ $all }) { |
foreach my $file (@{ $all }) { |
$all{$file}=[]; |
$all{$file}=[]; |
} |
} |
my @order=('author','course','developer'); |
my @order=('author','course','developer','domain'); |
foreach my $list (@{ $usage }) { |
foreach my $list (@{ $usage }) { |
foreach my $file (@{ $list }) { |
foreach my $file (@{ $list }) { |
if (exists($all{$file})) { |
if (exists($all{$file})) { |
Line 93 sub main {
|
Line 93 sub main {
|
my @author_usage=&get_usage('author'); |
my @author_usage=&get_usage('author'); |
my @course_usage=&get_usage('course'); |
my @course_usage=&get_usage('course'); |
my @developer_usage=&get_usage('developer'); |
my @developer_usage=&get_usage('developer'); |
|
my @domain_usage=&get_usage('domain'); |
if ($usage) { |
if ($usage) { |
&print_unused(\@all_files,[\@author_usage,\@course_usage, |
&print_unused(\@all_files,[\@author_usage,\@course_usage, |
\@developer_usage]); |
\@developer_usage,\@domain_usage]); |
} elsif($build_unused) { |
} elsif($build_unused) { |
&texxml_unused(\@all_files,[\@author_usage,\@course_usage, |
&texxml_unused(\@all_files,[\@author_usage,\@course_usage, |
\@developer_usage]); |
\@developer_usage,\@domain_usage]); |
} else { |
} else { |
print("Please specify either --usage or --build-unused\n"); |
print("Please specify either --usage or --build-unused\n"); |
} |
} |