summaryrefslogtreecommitdiff
path: root/bin/clean_dsp.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/clean_dsp.pl')
-rwxr-xr-xbin/clean_dsp.pl52
1 files changed, 0 insertions, 52 deletions
diff --git a/bin/clean_dsp.pl b/bin/clean_dsp.pl
deleted file mode 100755
index a3ff9be8205..00000000000
--- a/bin/clean_dsp.pl
+++ /dev/null
@@ -1,52 +0,0 @@
-# $Id$
-# DSP cleaner
-
-$if_depth = 0;
-@saved_lines = ();
-$dirty = 0;
-$in_dependency = 0;
-
-die "Not enough args" if ($#ARGV < 0);
-
-open (FILE, "<$ARGV[0]");
-
-loop: while (<FILE>)
-{
- # Check for dependency information
-
- if (/^DEP/ || /^NODEP/) {
- $in_dependency = 1;
- }
-
- if ($in_dependency) {
- $in_dependency = 0 if (!/\\$/);
- goto loop;
- }
-
- # Check for empty !IF blocks
-
- if (/^\!IF/) {
- ++$if_depth;
- }
-
- push @saved_lines, $_
- if ($if_depth > 0);
-
- if (/^\!ENDIF/) {
- --$if_depth;
- print @saved_lines
- if ($if_depth == 0 && $dirty == 1);
- @saved_lines = ();
- $dirty = 0;
- }
- elsif ($if_depth == 0) {
- print;
- }
-
- $dirty = 1
- if ($if_depth > 0 && !/^\!/ && !/^\s+$/);
-
-
-}
-
-close (FILE);