ACE/bin/main2TMAIN.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 # You may want to run the "find" command with this script, which maybe
   7 # something like this:
   8 #
   9 # find . -type f \( -name "*.C" -o -name "*.cc" -o -name "*.c" -o -name "*.cpp" \) -print | xargs $ACE_ROOT/bin/main2TMAIN.pl
  10
  11 # The first three lines above let this script run without specifying the
  12 # full path to perl, as long as it is in the user's PATH.
  13 # Taken from perlrun man page.
  14
  15 s/main( *\(int[ A-Za-z]*, *ACE_TCHAR)/ACE_TMAIN$1/g;