summaryrefslogtreecommitdiff
path: root/bin/depgen.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/depgen.pl')
-rwxr-xr-xbin/depgen.pl262
1 files changed, 0 insertions, 262 deletions
diff --git a/bin/depgen.pl b/bin/depgen.pl
deleted file mode 100755
index 5cb652475e6..00000000000
--- a/bin/depgen.pl
+++ /dev/null
@@ -1,262 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
- & eval 'exec perl -w -S $0 $argv:q'
- if 0;
-
-# ************************************************************
-# Description : Generate dependencies for GNU Make and NMake.
-# Author : Chad Elliott
-# Create Date : 5/06/2002
-# $Id$
-# ************************************************************
-
-# ************************************************************
-# Pragma Section
-# ************************************************************
-
-use strict;
-use Cwd;
-use Config;
-use File::Spec;
-use File::Basename;
-
-if ( $^O eq 'VMS' ) {
- require VMS::Filespec;
- import VMS::Filespec qw(unixpath);
-}
-
-unshift(@INC, getExecutePath($0) . '/DependencyGenerator');
-
-require DependencyEditor;
-
-# ************************************************************
-# Data Section
-# ************************************************************
-
-my($version) = '0.9';
-my($os) = ($^O eq 'MSWin32' ? 'Windows' : 'UNIX');
-my(%types) = ('gnu' => 1,
- 'nmake' => 1,
- 'make' => 1,
- );
-my(%defaults) = ('UNIX' => ['gnu'],
- 'Windows' => ['nmake'],
- );
-
-# ************************************************************
-# Subroutine Section
-# ************************************************************
-sub which {
- my($prog) = shift;
- my($exec) = $prog;
-
- if (defined $ENV{'PATH'}) {
- my($part) = '';
- my($envSep) = $Config{'path_sep'};
- foreach $part (split(/$envSep/, $ENV{'PATH'})) {
- $part .= "/$prog";
- if ( -x $part ) {
- $exec = $part;
- last;
- }
- }
- }
-
- return $exec;
-}
-
-
-sub getExecutePath {
- my($prog) = shift;
- my($loc) = '';
-
- if ($prog ne basename($prog)) {
- my($dir) = ($^O eq 'VMS' ? unixpath(dirname($prog)) : dirname($prog));
- if ($prog =~ /^[\/\\]/ ||
- $prog =~ /^[A-Za-z]:[\/\\]?/) {
- $loc = $dir;
- }
- else {
- $loc = ($^O eq 'VMS' ? unixpath(getcwd()) : getcwd()) . '/' . $dir;
- }
- }
- else {
- $loc = dirname(which($prog));
- if ($^O eq 'VMS') {
- $loc = unixpath($loc);
- }
- }
-
- $loc =~ s/\/\.$//;
-
- if ($loc eq '.') {
- $loc = ($^O eq 'VMS' ? unixpath(getcwd()) : getcwd());
- }
-
- return $loc;
-}
-
-
-sub usageAndExit {
- my($base) = shift;
- my($opt) = shift;
-
- if (defined $opt) {
- print "$opt.\n";
- }
-
- print "$base v$version\n" .
- "Usage: $base [-D<MACRO>[=VALUE]] [-I<include dir>] [-A] " .
- "[-R <VARNAME>]\n" .
- " " . (" " x length($base)) .
- " [-e <file>] [-f <output file>] [-i] [-t <type>] [-n]\n" .
- " " . (" " x length($base)) . " <files...>\n" .
- "\n" .
- "-D This option sets a macro to an optional value.\n" .
- "-I The -I option adds an include directory.\n" .
- "-A Replace \$ACE_ROOT and \$TAO_ROOT paths with \$(ACE_ROOT) " .
- "and \$(TAO_ROOT)\n respectively.\n" .
- "-R Replace \$VARNAME paths with \$(VARNAME).\n" .
- "-e Exclude dependencies generated by <file>, but not <file> " .
- "itself.\n" .
- "-f Specifies the output file. This file will be edited if it " .
- "already\n exists.\n" .
- "-i Do not print an error if no source files are provided.\n" .
- "-n Do not include inline files (ending in .i or .inl) in the " .
- "dependencies.\n" .
- "-t Use specified type (";
- my(@keys) = sort keys %types;
- for(my $i = 0; $i <= $#keys; ++$i) {
- print "$keys[$i]" .
- ($i != $#keys ? $i == $#keys - 1 ? ' or ' : ', ' : '');;
- }
- print ") instead of the default.\n" .
- " The default is ";
- @keys = sort keys %defaults;
- for(my $i = 0; $i <= $#keys; ++$i) {
- my($def) = $keys[$i];
- print $defaults{$def}->[0] . " on $def" .
- ($i != $#keys ? $i == $#keys - 1 ? ' and ' : ', ' : '');
- }
- print ".\n";
- exit(0);
-}
-
-
-sub setReplace {
- my($replace) = shift;
- my($name) = shift;
- my($value) = shift;
-
- if (defined $name) {
- ## The key will be used in a regular expression.
- ## So, we need to escape some special characters.
- $name = File::Spec->canonpath($name);
- $name =~ s/([\+\-\\\$\[\]\(\)\.])/\\$1/g;
-
- $$replace{$name} = $value;
- }
-}
-
-
-# ************************************************************
-# Main Section
-# ************************************************************
-
-my($base) = basename($0);
-my($type) = $defaults{$os}->[0];
-my($noinline) = undef;
-my(@files) = ();
-my(%macros) = ();
-my(@ipaths) = ();
-my(%replace) = ();
-my(%exclude) = ();
-my($output) = '-';
-my($needsrc) = 1;
-
-if (defined $ENV{ACE_ROOT} && !defined $ENV{TAO_ROOT}) {
- $ENV{TAO_ROOT} = "$ENV{ACE_ROOT}/TAO";
-}
-
-for(my $i = 0; $i <= $#ARGV; ++$i) {
- my($arg) = $ARGV[$i];
- if ($arg =~ /^\-D(\w+)(=(.*))?/) {
- $macros{$1} = $3;
- }
- elsif ($arg =~ /^\-I(.*)/) {
- push(@ipaths, File::Spec->canonpath($1));
- }
- elsif ($arg eq '-A') {
- setReplace(\%replace, $ENV{ACE_ROOT}, '$(ACE_ROOT)');
- setReplace(\%replace, $ENV{TAO_ROOT}, '$(TAO_ROOT)');
- setReplace(\%replace, $ENV{ACE_PLATFORM_CONFIG}, '$(ACE_PLATFORM_CONFIG)');
- }
- elsif ($arg eq '-R') {
- ++$i;
- $arg = $ARGV[$i];
- if (defined $arg) {
- my($val) = $ENV{$arg};
- if (defined $val) {
- setReplace(\%replace, $val, "\$($arg)");
- }
- }
- else {
- usageAndExit($base, 'Invalid use of -R');
- }
- }
- elsif ($arg eq '-e') {
- ++$i;
- $arg = $ARGV[$i];
- if (defined $arg) {
- $exclude{$arg} = 1;
- }
- else {
- usageAndExit($base, 'Invalid use of -e');
- }
- }
- elsif ($arg eq '-f') {
- ++$i;
- $arg = $ARGV[$i];
- if (defined $arg) {
- $output = $arg;
- }
- else {
- usageAndExit($base, 'Invalid use of -f');
- }
- }
- elsif ($arg eq '-i') {
- $needsrc = undef;
- }
- elsif ($arg eq '-n') {
- $noinline = 1;
- }
- elsif ($arg eq '-h') {
- usageAndExit($base);
- }
- elsif ($arg eq '-t') {
- ++$i;
- $arg = $ARGV[$i];
- if (defined $arg && defined $types{$arg}) {
- $type = $arg;
- }
- else {
- usageAndExit($base, 'Invalid use of -t');
- }
- }
- elsif ($arg =~ /^[\-+]/) {
- ## We will ignore unknown options
- ## Some options for aCC start with +
- }
- else {
- push(@files, $arg);
- }
-}
-
-if (!defined $files[0]) {
- if ($needsrc) {
- usageAndExit($base, 'No files specified');
- }
-}
-
-my($editor) = new DependencyEditor();
-exit($editor->process($output, $type, $noinline, \%macros,
- \@ipaths, \%replace, \%exclude, \@files));
View Lorry Controller Status