summary refs log tree commit diff
path: root/rfc/rfctags.pl
diff options
context:
space:
mode:
Diffstat (limited to 'rfc/rfctags.pl')
-rw-r--r--rfc/rfctags.pl28
1 files changed, 0 insertions, 28 deletions
diff --git a/rfc/rfctags.pl b/rfc/rfctags.pl
deleted file mode 100644
index 01324a0d..00000000
--- a/rfc/rfctags.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-use strict;
-use warnings;
-use open ':encoding(ISO-8859-1)';
-
-use IO::Uncompress::Gunzip qw($GunzipError);
-
-($,, $\) = ("\t", "\n");
-print '!_TAG_FILE_SORTED', 2, $0; # Promise to pipe this through sort -f
-for my $rfc (<*.txt.gz>) {
-	my $handle = new IO::Uncompress::Gunzip $rfc
-		or die "${rfc}: ${GunzipError}";
-	while (<$handle>) {
-		chomp;
-		# Section headings
-		if (/^([\d.]+|[A-Z][.])\s+([^\t]+)?/) {
-			print $1, $rfc, $.;
-			print $2, $rfc, $. if $2;
-			print $1, $rfc, $. if $1 =~ /^([\d.]+)[.]$/;
-		}
-		# References
-		if (/^\s*(\[[\w-]+\])\s{2,}/) {
-			print $1, $rfc, $.;
-			print "\\$1", $rfc, $.; # vim ^] prepends \ to [
-		}
-	}
-	die "${rfc}: $!" if $!;
-	close $handle;
-}