depgen.pl

   1 #! /usr/bin/perl
   2 eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
   3     & eval 'exec perl -w -S $0 $argv:q'
   4     if 0;
   5
   6 # ************************************************************
   7 # Description   : Generate dependencies for Make and NMake.
   8 # Author        : Chad Elliott
   9 # Create Date   : 5/06/2002
  10 #            $Id$
  11 # ************************************************************
  12
  13 # ************************************************************
  14 # Pragma Section
  15 # ************************************************************
  16
  17 use strict;
  18 use FindBin;
  19 use File::Spec;
  20 use File::Basename;
  21
  22 my $basePath = $FindBin::Bin;
  23 if ($^O eq 'VMS') {
  24   $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
  25   $basePath = VMS::Filespec::unixify($basePath);
  26 }
  27 unshift(@INC, $basePath . '/modules/Depgen', $basePath . '/modules');
  28
  29 require Driver;
  30
  31 # ************************************************************
  32 # Main Section
  33 # ************************************************************
  34
  35 my $driver = new Driver();
  36 exit($driver->run(\@ARGV));