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

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