Add scripts to download, compress and tag IETF RFCs

1 files changed, 26 insertions, 0 deletions

diff --git a/rfc/rfctags.pl b/rfc/rfctags.pl
new file mode 100644
index 00000000..cd3ba288
--- /dev/null
+++ b/rfc/rfctags.pl
@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+use open ':encoding(ISO-8859-1)';
+
+use IO::Uncompress::Gunzip qw($GunzipError);
+
+($,, $\) = ("\t", "\n");
+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, $.;
+		}
+		# References
+		if (/^\s*(\[[\w-]+\])\s{2,}/) {
+			print $1, $rfc, $.;
+			print "\\$1", $rfc, $.; # vim ^] prepends \ to [
+		}
+	}
+	die "${rfc}: $!" if $!;
+	close $handle;
+}