TAO/examples/Simulator/DOVEBrowser/ecdata_patch.pl

   1 eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}'
   2     & eval 'exec perl -pi -S $0 $argv:q'
   3     if 0;
   4
   5 #
   6 # This script patches the event data definition by removing the IDL typedef,
   7 # for java idl compilers that do not handle typedefs correctly.  Repeated
   8 # applications of this patch to an already patched file should be idempotent.
   9 # This script reads from stdin and writes to stdout.
  10
  11 while (<>) {
  12 s%^(\s*)(typedef RtecEventData EventData;)%$1// $2%;
  13 s%^(\s*)(EventData data;)%$1Rtec$2%;
  14 print;
  15 }