summary refs log tree commit diff
path: root/rfc/rfctags.pl
diff options
context:
space:
mode:
authorJune McEnroe <june@causal.agency>2020-12-21 16:38:01 -0500
committerJune McEnroe <june@causal.agency>2020-12-21 16:38:01 -0500
commitae323e70ab3f7da2f19673988baa1fee3f4a67d5 (patch)
treef6bb5ca1df666742686fe0e1b4f2f5e3ff7445e7 /rfc/rfctags.pl
parentMove wcfix to port/wcwidth (diff)
downloadsrc-ae323e70ab3f7da2f19673988baa1fee3f4a67d5.tar.gz
src-ae323e70ab3f7da2f19673988baa1fee3f4a67d5.zip
Move rfc to doc/rfc
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;
-}