ACE/bin/zap_svn_id.pl

   1 eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}'
   2     & eval 'exec perl -0 -S $0 $argv:q'
   3     if 0;
   4
   5 # You may want to run the "find" command with this script, which maybe
   6 # something like this:
   7 #
   8 # find . -type f \( -name "*.inl" -o -name "*.h" -o -name "*.cxx" -o -name "*.java" -o -name "*.l" -o -name "*.c" -o -name "*.mpd" -o -name "*.py" -o -name "*.cpp" -o -name "*.mpc" -o -name "*.idl" -o -name "*.conf" -o -name "*.mpb" -o -name "*.hpp" -o -name "*.pl"  -o -name "*.mpt"   -o -name "*.pm" -o -name "*.html" -o -name "*.xml" -o -name "*.y" \) -print | xargs $ACE_ROOT/bin/zap_svn_id.pl
   9
  10 # The first three lines above let this script run without specifying the
  11 # full path to perl, as long as it is in the user's PATH.
  12 # Taken from perlrun man page.
  13
  14 # Replace the old cvs-id tag with nothing
  15 BEGIN{undef $/;} s///smg;
  16 # Replace a single doxygen style with two spaces before the Id with one space
  17 BEGIN{undef $/;} s/ \*\n \*  \$Id\$\n \*\n/ \*\n \* \$Id\$\n \*\n/smg;
  18 # Replace a three line doxygen style Id tag with just line *
  19 BEGIN{undef $/;} s/ \*\n \* \$Id\$\n \*\n/ \*\n/smg;
  20 # Replace a three line doxygen style Id tag with just line *
  21 BEGIN{undef $/;} s/\*\*\n \* \$Id\$\n \*\n/\*\*\n/smg;
  22 # Replace a three line c-style id tag with an empty line below that with nothing
  23 BEGIN{undef $/;} s/\/\/\n\/\/ \$Id\$\n\/\/\n\n//smg;
  24 # Replace a three line c-style id tag with nothing
  25 BEGIN{undef $/;} s/\/\/\n\/\/ \$Id\$\n\/\/\n//smg;
  26 # Replace a two line c-style id tag with an empty line below that with nothing
  27 BEGIN{undef $/;} s/\/\/\n\/\/ \$Id\$\n\n//smg;
  28 # Replace a two line c-style id tag with nothing
  29 BEGIN{undef $/;} s/\/\/\n\/\/ \$Id\$\n//smg;
  30 # Replace a one line c-style id tag with an empty line below that with nothing
  31 BEGIN{undef $/;} s/\/\/ \$Id\$\n\n//smg;
  32 # Replace a one line c-style id tag with nothing
  33 BEGIN{undef $/;} s/\/\/ \$Id\$\n//smg;
  34 # Replace a one line c-style id tag with an empty line below that with nothing
  35 BEGIN{undef $/;} s/\/\/\$Id\$\n\n//smg;
  36 # Replace a one line c-style id tag with nothing
  37 BEGIN{undef $/;} s/\/\/\$Id\$\n//smg;
  38 # Replace a one line start C++ line with Id with
  39 BEGIN{undef $/;} s/\/\/ -\*- C\+\+ -\*-   \$Id\$\n/\/\/ -\*- C\+\+ -\*-\n/smg;
  40 # Replace a one line start C++ line with Id with
  41 BEGIN{undef $/;} s/\/\/ -\*- C\+\+ -\*-  \$Id\$\n/\/\/ -\*- C\+\+ -\*-\n/smg;
  42 # Replace a one line start C++ line with Id with
  43 BEGIN{undef $/;} s/\/\/ -\*- C\+\+ -\*- \$Id\$\n/\/\/ -\*- C\+\+ -\*-\n/smg;
  44 # Replace a three line doxygen style Id tag with just line *
  45 BEGIN{undef $/;} s/\/\*\n \* \$Id\$\n \*\n/\/\*\n/smg;
  46 # Replace a one line c++-style id tag with an empty line below that with nothing
  47 BEGIN{undef $/;} s/\/\* \$Id\$ \*\/\n\n//smg;
  48 # Replace a one line c++-style id tag with an empty line below that with nothing
  49 BEGIN{undef $/;} s/\/\* \$Id\$ \*\/\n//smg;
  50 # Replace a three perl style Id tag with just line #
  51 BEGIN{undef $/;} s/ \#\n \# \$Id\$\n \#\n/ \#\n/smg;
  52 BEGIN{undef $/;} s/\#\n\# \$Id\$\n\#\n/\#\n/smg;
  53 BEGIN{undef $/;} s/ \#\n \#\$Id\$\n \#\n/ \#\n/smg;
  54 BEGIN{undef $/;} s/\#\n\#\$Id\$\n\#\n/\#\n/smg;
  55 BEGIN{undef $/;} s/\#\$Id\$\n//smg;
  56 BEGIN{undef $/;} s/\# \$Id\$\n//smg;
  57 BEGIN{undef $/;} s/\$Id\$//smg;
  58
  59 # Trailing whitespaces
  60 BEGIN{undef $/;} s/\#         \n//smg;
  61 BEGIN{undef $/;} s/\*\* \n/\*\*\n/smg;
  62 BEGIN{undef $/;} s/\/\*\n\*\*\n\*\*\n/\/\*\n/smg;
  63 BEGIN{undef $/;} s/\/\* \n/\/\*\n/smg;
  64 BEGIN{undef $/;} s/ \* \n/ \*\n/smg;
  65 BEGIN{undef $/;} s/ \*  \n/ \*\n/smg;
  66 BEGIN{undef $/;} s/\*\n\*  \n\*\n/\*\n/smg;
  67 BEGIN{undef $/;} s/ \*\n \*\n \*\n/ \*\n/smg;
  68 BEGIN{undef $/;} s/ \*\n \*\/\n/ \*\/\n/smg;
  69 BEGIN{undef $/;} s/\/\/  \n/\/\/\n/smg;
  70 BEGIN{undef $/;} s/ \*\n \*\n/ \*\n/smg;
  71
  72 BEGIN{undef $/;} s/\/\/\n\/\/\n/\/\/\n/smg;
  73 BEGIN{undef $/;} s/ \n/\n/smg;
  74
  75 BEGIN{undef $/;} s/\/\/ cvs-id    :\n//smg;
  76
  77 # Empty header
  78 BEGIN{undef $/;} s/\/\*\n \*\/\n//smg;
  79 BEGIN{undef $/;} s/\/\*\*\n \*\/\n//smg;
  80 BEGIN{undef $/;} s/\/\*\*\n \*\n \*\/\n//smg;
  81 BEGIN{undef $/;} s/\/\*\*\n\*\n\*\/\n//smg;
  82