[ViewVC] Contents of: ozone/mgar/gar/bin/find_unpackaged

#!/usr/bin/perl

# A quick hack of a script to find files that are not added to any
# package The idea is that we build a list of files from the main
# prototype file in build-global.  Then, we look for each arch
# specific prototype and remove files that we see there from the
# global list.  Any remaining file is not listed in a package
# prototype and therefore won't be delivered to client systems.

# We expect a path to build-global as an argument.  No error checking
# is done on this.

chdir $ARGV[0];
$proc = `uname -p`;
@ptypes = glob("*prototype-$proc");
%ptype_whole = ();

open (MAINPTYPE, "prototype") or die "Couldn't open full prototype.\n";
while (<MAINPTYPE>) {
    @parts = split(/\s+/, $_);
    next if $parts[0] eq 'i';
    # store references to each file.  remove these while traversing
    # sub-package prototypes
    $ptype_whole{$parts[2]} = 1;
}
close(MAINPTYPE);

foreach $ptype (@ptypes) {
    open(PTYPE, "$ptype") or die "Couldn't open prototype $ptype.\n";
    while (<PTYPE>) {
        @parts = split(/\s+/, $_);
        next if $parts[0] eq 'i';
        delete $ptype_whole{$parts[2]};
    }
    close(PTYPE);
}

foreach $k (keys %ptype_whole) {
    print "$k\n";
}
Revision:	1
Committed:	Sat Jun 20 14:58:51 2026 UTC (4 weeks, 3 days ago) by operz
File size:	1180 byte(s)
Log Message:	Initial import of OZSW mgar build tree
#	Content
1	#!/usr/bin/perl
2
3	# A quick hack of a script to find files that are not added to any
4	# package The idea is that we build a list of files from the main
5	# prototype file in build-global. Then, we look for each arch
6	# specific prototype and remove files that we see there from the
7	# global list. Any remaining file is not listed in a package
8	# prototype and therefore won't be delivered to client systems.
9
10	# We expect a path to build-global as an argument. No error checking
11	# is done on this.
12
13	chdir $ARGV[0];
14	$proc = `uname -p`;
15	@ptypes = glob("*prototype-$proc");
16	%ptype_whole = ();
17
18	open (MAINPTYPE, "prototype") or die "Couldn't open full prototype.\n";
19	while (<MAINPTYPE>) {
20	@parts = split(/\s+/, $_);
21	next if $parts[0] eq 'i';
22	# store references to each file. remove these while traversing
23	# sub-package prototypes
24	$ptype_whole{$parts[2]} = 1;
25	}
26	close(MAINPTYPE);
27
28	foreach $ptype (@ptypes) {
29	open(PTYPE, "$ptype") or die "Couldn't open prototype $ptype.\n";
30	while (<PTYPE>) {
31	@parts = split(/\s+/, $_);
32	next if $parts[0] eq 'i';
33	delete $ptype_whole{$parts[2]};
34	}
35	close(PTYPE);
36	}
37
38	foreach $k (keys %ptype_whole) {
39	print "$k\n";
40	}