diff options
Diffstat (limited to 'ACE/MPC/modules/Depgen/MakeObjectGenerator.pm')
-rw-r--r-- | ACE/MPC/modules/Depgen/MakeObjectGenerator.pm | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/ACE/MPC/modules/Depgen/MakeObjectGenerator.pm b/ACE/MPC/modules/Depgen/MakeObjectGenerator.pm new file mode 100644 index 00000000000..397c6a01abc --- /dev/null +++ b/ACE/MPC/modules/Depgen/MakeObjectGenerator.pm @@ -0,0 +1,43 @@ +package MakeObjectGenerator; + +# ************************************************************ +# Description : Generates object files for generic Makefiles. +# Author : Chad Elliott +# Create Date : 5/23/2003 +# ************************************************************ + +# ************************************************************ +# Pragmas +# ************************************************************ + +use strict; +use ObjectGenerator; + +use vars qw(@ISA); +@ISA = qw(ObjectGenerator); + +# ************************************************************ +# Subroutine Section +# ************************************************************ + +sub process { + my $noext = $_[1]; + my @exts = ('o'); + my @dirs = (defined $ENV{VDIR} ? $ENV{VDIR} : ''); + $noext =~ s/\.[^\.]+$//o; + + push(@exts, $ENV{SOEXT}) if (defined $ENV{SOEXT}); + push(@dirs, $ENV{VSHDIR}) if (defined $ENV{VSHDIR}); + + my @objects; + foreach my $dirs (@dirs) { + foreach my $ext (@exts) { + push(@objects, "$dirs$noext.$ext"); + } + } + + return \@objects; +} + + +1; |