ACE/bin/DependencyGenerator/GNUIDLObjectGenerator.pm

   1 package GNUIDLObjectGenerator;
   2
   3 # ************************************************************
   4 # Description   : Generates object files for GNU IDL Makefiles.
   5 # Author        : Chip Jones
   6 # Create Date   : 11/01/2011
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14 use File::Spec;
  15 use ObjectGenerator;
  16
  17 use vars qw(@ISA);
  18 @ISA = qw(ObjectGenerator);
  19
  20 # ************************************************************
  21 # Constants
  22 # ************************************************************
  23 my $prefix = '$(IDL_GEN_FILES_DIR)/';
  24 my @suffixes = qw/
  25     $(IDL_CLIENT_HDR_EXT)
  26     $(IDL_CLIENT_INL_EXT)
  27     $(IDL_CLIENT_SRC_EXT)
  28     $(IDL_SERVER_HDR_EXT)
  29     $(IDL_SERVER_SRC_EXT)
  30     $(IDL_SERVER_THDR_EXT)
  31     $(IDL_SERVER_TINL_EXT)
  32     $(IDL_SERVER_TSRC_EXT)
  33     /;
  34
  35 # ************************************************************
  36 # Subroutine Section
  37 # ************************************************************
  38
  39 sub process {
  40   my($noext) = $_[1];
  41   $noext =~ s/\.[^\.]+$//o;
  42   $noext =~ s/.+\/// if $noext =~ /\.\.\//;
  43   my($vol, $dir, $file) = File::Spec->splitpath($noext);
  44   my @list = map "$prefix$file$_", @suffixes;
  45   return \@list;
  46 }
  47
  48 1;