1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
--- plist-clash.pl.orig Sat Apr 25 15:32:11 1998
+++ plist-clash.pl Sat Apr 25 15:33:16 1998
@@ -0,0 +1,96 @@
+#!@PREFIX@/bin/perl
+#
+# Scan all ports and look for filenames used by more than one port.
+#
+
+if(`uname -s` eq "FreeBSD"){
+ $OS="FreeBSD";
+ $PORTSDIR="/usr/ports";
+}else{
+ $OS="NetBSD";
+ $PORTSDIR="@PORTSDIR@";
+}
+
+###########################################################################
+sub read_plist
+{
+ local($pkg)=@_;
+ local($base);
+
+ $prefix="\$LOCALBASE";
+
+ if(! -d $pkg){
+ print "$pkg: no such dir\n";
+ return;
+ }
+
+ open(M,"$pkg/Makefile") || die "Can't read $pkg/Makefile: $!\n";
+ while(<M>){
+ $prefix="\$X11BASE" if /USE_X11/;
+ $prefix="\$X11BASE" if /USE_IMAKE/;
+ $prefix=$1 if /^PREFIX\??=\s*(\S+)/;
+ }
+ close(M);
+
+ # printf "%-40s prefix=%s\n","$pkg:",$prefix;
+
+ # NetBSD may have more than one PLIST file
+ opendir(D,"$pkg/pkg/.") || die "Can't readdir($pkg/pkg/.): $!\n";
+ while($f=readdir(D)){
+ if($f =~ /^PLIST/){
+ next if $f=~/.orig$/;
+
+ # printf("%-40s PLIST=$f\n","",$f);
+
+ open(P,"$pkg/pkg/$f") or die "Can't read $pkg/pkg/$f: $!\n";
+ while(<P>){
+ next if /^@/;
+ chomp;
+
+ # strip .gz off manpages - handled via MANZ
+ s/.gz$// if /^man/;
+
+ ($p) = $pkg =~ m@$PORTSDIR/(.+)@;
+ if(0 and $F{"$prefix/$_"}){
+ print "$prefix/$_ already used by ",$F{"$prefix/$_"},"\n";
+ }
+ $F{"$prefix/$_"} .= " $p";
+ }
+ close(P);
+ }
+ }
+ closedir(D);
+}
+
+
+###########################################################################
+# M A I N
+###########################################################################
+
+if($#ARGV < 0){
+ die "Usage: $0 portsdir1 ...\n";
+}
+
+# loop to parse all PLIST files
+foreach $pkg (@ARGV){
+ print "===> $pkg\n";
+ &read_plist($pkg);
+}
+
+# Output diplicates
+foreach $file (sort keys %F){
+ $pkgs=$F{$file};
+ $pkgs=~s/^\s+//g;
+
+ # clean up duplicates (e.g. via PLIST-*)
+ undef %pF;
+ foreach $p (split(/ /,$pkgs)){
+ $pF{$p}=1;
+ }
+ @pkgs=sort keys %pF;
+
+ $n=$#pkgs+1;
+ if($n>1){
+ print "$n for $file: ",join(", ",@pkgs),"\n";
+ }
+}
|
