ACE/bin/DependencyGenerator/GNUIDLDependencyWriter.pm

   1 package GNUIDLDependencyWriter;
   2
   3 # ************************************************************
   4 # Description   : Generates GNU IDL Makefile dependencies.
   5 # Author        : Chip Jones
   6 # Create Date   : 11/01/2011
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14 use DependencyWriter;
  15
  16 use vars qw(@ISA);
  17 @ISA = qw(DependencyWriter);
  18
  19 # ************************************************************
  20 # Subroutine Section
  21 # ************************************************************
  22
  23 sub process {
  24   my($objects) = $_[1];
  25   my($files)   = $_[2];
  26
  27   ## Sort the dependencies to make them reproducible
  28   if (scalar @$files > 0) {
  29     return '$(sort ' . join(' ', @$objects) . "): \\\n  "
  30       . join(" \\\n  ", sort @$files) . "\n";
  31   }
  32   else {
  33     return;
  34   }
  35
  36 }
  37
  38
  39 1;