From: helly <helly@642ea486-5414-0410-9d7f-a0204ed87703>
Date: Sun, 9 Apr 2006 15:31:10 +0000 (+0000)
Subject: - No longer needed
X-Git-Tag: 0.13.6~407
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=0367f9db233dbbd5a2b1f24e0dd3e676762f31ee;p=re2c

- No longer needed
---

diff --git a/cleanup.pl b/cleanup.pl
deleted file mode 100644
index 928783a5..00000000
--- a/cleanup.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#! /usr/bin/env perl
-my @sourcelines = <>;
-my %usedlabel;
-my %usedvar;
-my $lastusedvarline = 0;
-my $level = 0;
-my $line = 1;
-for (@sourcelines) {
-    $usedlabel{"$1:"} = "$1:" if m/goto\s+(yy[0-9]*)\s*;/;
-    $level = $level + 1 if m/\{/;
-    $level = $level - 1 if m/\}/;
-    if ($level < $usedvar{$lastusedvarline}) {
-	$lastusedvarline = 0;
-    }
-    if (m/int\s+yyaccept/) {
-	$usedvar{$line} = $level;
-	$lastusedvarline = $line;
-    } elsif (m/yyaccept/) {
-	$usedvar{$lastusedvarline} = 1000;
-    }
-    $line = $line + 1;
-}
-$line = 1;
-for (@sourcelines) {
-    s/^(yy[0-9]*:)/$usedlabel{$1}/;
-    if ($usedvar{$line} != 0 && $usedvar{$line} != 1000) {
-	print "\n";
-    } else {
-    	print;
-    }
-    $line = $line + 1;
-}