TAO/MPC/modules/IDLHelper.pm

   1
   2 package IDLHelper;
   3
   4 use strict;
   5 use CommandHelper;
   6 our @ISA = qw(CommandHelper);
   7
   8 sub get_output {
   9   my($self, $file, $flags) = @_;
  10   my @out;
  11
  12   # handle generated executor files (if any)
  13   if ($flags =~ /-Gex/ && !($flags =~ /-oN/)) {
  14     my $gendir = '';
  15     if ($flags =~ /-oE\s*(\S+)/) {
  16       $gendir = $1;
  17       if (!($gendir =~ /(\\|\/)$/)) {
  18         $gendir .= '/';
  19       }
  20     }
  21     $file =~ /^(.*)(\.p?idl)$/;
  22     push(@out, $gendir.$1."_exec.h");
  23     push(@out, $gendir.$1."_exec.cpp");
  24   }
  25   if ($flags =~ /-Gxhex/ && $flags =~ /-Wb,exec_export_include=(\S*)/) {
  26     push(@out, $1);
  27   }
  28   if ($flags =~ /-Gxhst/) {
  29     if ($flags =~ /-Wb,stub_export_file=(\S*)/) {
  30       push(@out, $1);
  31     } elsif ($flags =~ /-Wb,stub_export_include=(\S*)/) {
  32       push(@out, $1);
  33     }
  34   }
  35   if ($flags =~ /-Gxhsk/) {
  36     if ($flags =~ /-Wb,skel_export_file=(\S*)/) {
  37       push(@out, $1);
  38     } elsif ($flags =~ /-Wb,skel_export_include=(\S*)/) {
  39       push(@out, $1);
  40     }
  41   }
  42   if ($flags =~ /-Gxhsv/ && $flags =~ /-Wb,svnt_export_include=(\S*)/) {
  43     push(@out, $1);
  44   }
  45   if ($flags =~ /-Gxhcn/ && $flags =~ /-Wb,conn_export_include=(\S*)/) {
  46     push(@out, $1);
  47   }
  48
  49   return \@out;
  50 }
  51
  52 sub get_outputexts {
  53   return ['\\.h']; #this is a regexp pattern, so . gets escaped
  54 }
  55
  56 1;