mcs/class/Mono.C5/trees/set2bag.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 open(RBTS,"RedBlackTree.cs") || die "Can't open infile";
   6
   7 rename "RedBlackTreeBag.cs", "RedBlackTreeBag.cs.old" || die "Can't backup";
   8
   9 open(RBTB,">RedBlackTreeBag.cs")  || die "Can't open outfile";
  10
  11 my @cond=(1);
  12 my $printing = 1;
  13
  14 #Assume all conditions on BAG symbol is '#if BAG'
  15 while (<RBTS>) {
  16   if (/^#define BAG/) {
  17     print RBTB "#define BAG\r\n";
  18     next;
  19   }
  20   s/TreeSet/TreeBag/g;
  21   print RBTB;
  22 }
  23
  24 close(RBTS) || die "Can't close infile";
  25 close(RBTB) || die "Can't close outfile";