tools/build-watch.pl
author Norm Jacobs <Norm.Jacobs@Oracle.COM>
Wed, 23 Feb 2011 10:37:11 -0800
changeset 99 c15c9099bb44
parent 32 280a7444e782
child 3770 ca450a806cc1
permissions -rwxr-xr-x
6841644 OpenSolaris Python should support gdbm 6991811 Migrate Mercurial (Hg) to Python 2.6 7009592 PyOpenSSL should be updated from 0.8 to 0.11 7016735 move mercurial from sfw to userland 7018363 Userland LD_OPTIONS should include non-executable data mapfiles as well 7019410 python 2.6 should move to userland 7020772 userland build should provide more macros for common flags 7021204 userland runpath checking should relax slightly.
#!/usr/perl5/bin/perl
#
# CDDL HEADER START
#
# The contents of this file are subject to the terms of the
# Common Development and Distribution License (the "License").
# You may not use this file except in compliance with the License.
#
# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
# or http://www.opensolaris.org/os/licensing.
# See the License for the specific language governing permissions
# and limitations under the License.
#
# When distributing Covered Code, include this CDDL HEADER in each
# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
# If applicable, add the following below this CDDL HEADER, with the
# fields enclosed by brackets "[]" replaced with your own identifying
# information: Portions Copyright [yyyy] [name of copyright owner]
#
# CDDL HEADER END
#
# Copyright (c) 2010, Oracle and/or it's affiliates.  All rights reserved.
#
#
# build-watch.pl - a simple utility to watch a process and it's children under
# 		   dtrace and process the results for dependency information.
#
# Ex:
#	$ export WS_TOP=/top/of/your/workspace
#	$ cd $(WS_TOP)/components/{component}
#	$ $(WS_TOP)/tools/build-watch.pl -c "gmake install"
#

use File::Temp qw/tempfile/;
use Getopt::Long;

my $verbose = 0;

my @ignore = (
	'^[^/\.].*',		# ignore paths that don't begin with / or .	
	'^/dev/',		# ignore devices
	'^/etc/',		# ignore config files
	'^/proc/',		# ignore /proc
	'^/tmp/',		# ignore temp files
	'^/var/',		# ignore more temp/volatile files
	'^/usr/lib/locale/',	# ignore locale support
	'^/usr/share/lib/make/',	# ignore make bits
	'^/usr/share/lib/zoneinfo/',	# ignore timezone info
	'/SUNWspro/',		# ignore compiler bits
	'/sunstudio12.1/',	# ignore more compiler bits
	'^/ws/',		# nothing in /ws can be interesting
	'^\.[/\.]{0,1}$'	# ignore ., .., and ./
);

sub match
{
	local($string, @expressions) = @_;

	foreach (@expressions) {
		($string =~ m{$_}) && return (1);
	}
	return (0);
}

sub process_dtrace_results
{
	local ($filename) = @_;
	my (%tools, %files, $fh) = ();

	open($fh, "<$filename") || die "open($filename): $!\n";
	while (<$fh>) {
		if (/^TOOL:\s+(\S+) = (\S+)$/) {
			$tools{$2} = $1;
		} elsif ((/^FILE:\s+(\S+)\s*$/) && (match($1, @ignore) == 0) &&
			 (-e $1)) {
			$files{$1} = $1;
		}
	}
	close($fh);

	return (\%tools, \%files);
}

sub generate_package_requirements
{
	local (*tools, *files) = @_;
	my ($count, %pkgs, @search_strings, $search_string) = (0);

	# create a set of search strings to query the package DB
	foreach (sort (keys %tools, keys %files)) {
		if ($count++ % 100 == 0) {
			defined($search_string) && \
				push(@search_strings, $search_string);
			$search_string = $_;
		} else {
			$search_string .= " OR $_";
		}
	}
	push(@search_strings, $search_string);

	# walk through the search strings and query the package DB
	foreach (@search_strings) {
		my $IFH;

		open($IFH, "pkg search -l -H -o path,pkg.name '$_'|");
		while (<$IFH>) {
           		(/^(\S+)\s+(\S+)$/) && ($pkgs{$1} = $2);
		}
		close($IFH);
	}

	return (\%pkgs);
}

#
# Main execution begins here
#
GetOptions("c|command=s" => \$cmd, "i|input-file=s" => \@file,
	   "p|pkg" => \$pkg_flag, "v|verbose" => \$verbose);

if (defined($cmd)) {
	$file = (tempfile(UNLINK => 1))[1];

	if (!defined($ENV{'WS_TOP'})) {
		print("WS_TOP must be set in the calling environment\n");
		exit(1);
	}
	($verbose == 1) && print("*** Executing '$cmd' under dtrace...\n");
	system($ENV{'WS_TOP'}."/tools/build-watch.d", "-o", $file, "-c", $cmd);
}

($verbose == 1) && printf("*** Processing results...\n");
my ($tools, $files) = process_dtrace_results($file);

if (defined($pkg_flag)) {
	($verbose == 1) && printf("*** Generating package requirements...\n");
	my ($pkgs) = generate_package_requirements($tools, $files);
}

if (defined($tools)) {
	print "\n";
	print "REQUIRED_TOOL +=\t$_\n" for (sort keys %$tools);
}

if (defined($files)) {
	print "\n";
	print "REQUIRED_FILE +=\t$_\n" for (sort keys %$files);
}

if (defined($pkgs)) {
	@unique{values %$pkgs} = ();
	print "\n";
	print "REQUIRED_PKG +=\t$_\n" for (sort keys %unique);
}

exit(0);