summaryrefslogtreecommitdiff
path: root/bin/nightlybuilds/print_config.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/nightlybuilds/print_config.pl')
-rw-r--r--bin/nightlybuilds/print_config.pl76
1 files changed, 0 insertions, 76 deletions
diff --git a/bin/nightlybuilds/print_config.pl b/bin/nightlybuilds/print_config.pl
deleted file mode 100644
index 68a685b94b4..00000000000
--- a/bin/nightlybuilds/print_config.pl
+++ /dev/null
@@ -1,76 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
- & eval 'exec perl -S $0 $argv:q'
- if 0;
-
-#
-# @file print_config.pl
-#
-# $Id$
-#
-# @author Darrell Brunsch <brunsch@doc.ece.uci.edu>
-#
-# Print out the build configuration, i.e. the contents of the config.h
-# file, the latest ChangeLog entries and (if present) the
-# platform_macros.GNU file.
-#
-
-use strict;
-use FileHandle;
-
-##############################################################################
-
-sub print_file ($$)
-{
- my $filename = shift;
- my $printall = shift;
-
- my $filehandle = new FileHandle ($filename, "r");
-
- while (<$filehandle>) {
- print $_;
-
- last if ($printall == 0);
- }
-}
-
-##############################################################################
-
-if ($#ARGV < 0) {
- print STDERR "Not enough arguments, pass in ACEROOT\n";
- exit 1;
-}
-
-my $root = shift @ARGV;
-
-# convert to forward slash
-$root =~ s/\\/\//g;
-
-# chop off trailing slash
-if ($root =~ m/^(.*)\/$/) {
- $root = $1;
-}
-
-# last ACE Changelog Entry
-
-if (-r "$root/ChangeLog") {
- print "================ ACE ChangeLog ================\n";
- print_file ("$root/ChangeLog", 0);
-}
-
-# last TAO Changelog Entry
-if (-r "$root/TAO/ChangeLog") {
- print "================ TAO ChangeLog ================\n";
- print_file ("$root/TAO/ChangeLog", 0);
-}
-
-# config.h, if it exists
-if (-r "$root/ace/config.h") {
- print "================ config.h ================\n";
- print_file ("$root/ace/config.h", 1);
-}
-
-# platform_macros.GNU, if it exists
-if (-r "$root/include/makeinclude/platform_macros.GNU") {
- print "================ platform_macros.GNU ================\n";
- print_file ("$root/include/makeinclude/platform_macros.GNU", 1);
-}