ACE/bin/clean_dsp.pl

   1 #   DSP cleaner
   2
   3 $if_depth = 0;
   4 @saved_lines = ();
   5 $dirty = 0;
   6 $in_dependency = 0;
   7
   8 die "Not enough args" if ($#ARGV < 0);
   9
  10 open (FILE, "<$ARGV[0]");
  11
  12 loop: while  (<FILE>)
  13 {
  14     # Check for dependency information
  15
  16     if (/^DEP/ || /^NODEP/) {
  17         $in_dependency = 1;
  18     }
  19
  20     if ($in_dependency) {
  21         $in_dependency = 0 if (!/\\$/);
  22         goto loop;
  23     }
  24
  25     # Check for empty !IF blocks
  26
  27     if (/^\!IF/) {
  28         ++$if_depth;
  29     }
  30
  31     push @saved_lines, $_
  32         if ($if_depth > 0);
  33
  34     if (/^\!ENDIF/) {
  35         --$if_depth;
  36         print @saved_lines
  37             if ($if_depth == 0 && $dirty == 1);
  38         @saved_lines = ();
  39         $dirty = 0;
  40     }
  41     elsif ($if_depth == 0) {
  42         print;
  43     }
  44
  45     $dirty = 1
  46         if ($if_depth > 0 && !/^\!/ && !/^\s+$/);
  47
  48
  49 }
  50
  51 close (FILE);