mcs/class/Mono.C5/add-conditional.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 foreach my $file (@ARGV) {
   5     open FILE,"+<",$file;
   6     my $contents = "";
   7     while (defined ($_ = <FILE>)) {
   8         $contents .= $_;
   9     }
  10     truncate FILE, 0;
  11     seek FILE, 0, 0;
  12     print FILE "#if NET_2_0\n";
  13     print FILE $contents . "\n";
  14     print FILE "#endif\n";
  15     close FILE;
  16 }