Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 177545 Details for
Bug 231331
FreeHEP libraries
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
depscan.pl
depscan.pl (text/plain), 1.03 KB, created by
Andrey Kislyuk (RETIRED)
on 2009-01-06 05:15:13 UTC
(
hide
)
Description:
depscan.pl
Filename:
MIME Type:
Creator:
Andrey Kislyuk (RETIRED)
Created:
2009-01-06 05:15:13 UTC
Size:
1.03 KB
patch
obsolete
>#!/usr/bin/perl >use strict; >use File::Path; > >opendir(DIR,"."); >my @l = readdir(DIR); > >my %pkgs; >foreach my $pkg (@l) { > next unless $pkg =~ /freehep-(.+)/; > $pkgs{$1}={}; >} > >foreach my $pkg (@l) { > next unless $pkg =~ /freehep/; > my @df = glob "/usr/portage/distfiles/$pkg*"; my $distfile = $df[0]; > die("need $distfile") unless -f $distfile; > mkdir "fhs"; > system("cd fhs; unzip -q $distfile"); > > my @imports = `find fhs -name '*.java'|xargs grep -H 'import org.freehep'`; > my @ext_imports = `find fhs -name '*.java'|xargs grep -H 'import '|grep -v 'import org.freehep.'|grep -v 'import java.'`; > for (@imports) { > /import org\.freehep\.([^\.]+)\.([\w\.\*]+)/ or die($_); > die("dep $1 not mapped") unless $pkgs{$1}; > $pkgs{$pkg}->{"freehep-$1"} = 1 unless $pkg eq "freehep-$1"; > } > my %ei; > for (@ext_imports) { > /\:import ([^;]+);\s*$/ or next; > $ei{$1}=1; > } > rmtree "fhs"; > > print "$pkg:\n"; > foreach my $dep (keys %{$pkgs{$pkg}}) { > print "\t$dep\n"; > } > print "\tExternal imports:\n\t\t".join("\n\t\t", keys %ei)."\n" if %ei > 0; >} >closedir DIR;
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 231331
:
177542
|
177543
|
177545
|
177547
|
177608
|
177610
|
177912
|
177913
|
177972