TAO/TAO_IDL/regen.pl

   1 eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
   2     & eval 'exec perl -w -S $0 $argv:q'
   3     if 0;
   4
   5 use strict;
   6 use Env 'ACE_ROOT';
   7
   8 my %args = map { $_ => 1 } @ARGV;
   9 my $debug = exists($args{'-d'});
  10
  11 my $features = 'tao_idl_fe_gen=1';
  12 if (system "$ACE_ROOT/bin/mpc.pl -type gnuace -features $features tao_idl_fe.mpc") {
  13   exit(1);
  14 }
  15 utime undef, undef, 'fe/keywords.dat';
  16
  17 my $bison_target = $debug ? 'debug_bison' : 'y.tab';
  18 if (system "make -f GNUmakefile.TAO_IDL_GEN $features lex.yy $bison_target all") {
  19   exit(1);
  20 }