From ae323e70ab3f7da2f19673988baa1fee3f4a67d5 Mon Sep 17 00:00:00 2001
From: June McEnroe <june@causal.agency>
Date: Mon, 21 Dec 2020 16:38:01 -0500
Subject: Move rfc to doc/rfc

---
 doc/rfc/.gitignore |  3 +++
 doc/rfc/Makefile   | 11 +++++++++++
 doc/rfc/rfctags.pl | 28 ++++++++++++++++++++++++++++
 3 files changed, 42 insertions(+)
 create mode 100644 doc/rfc/.gitignore
 create mode 100644 doc/rfc/Makefile
 create mode 100644 doc/rfc/rfctags.pl

(limited to 'doc')

diff --git a/doc/rfc/.gitignore b/doc/rfc/.gitignore
new file mode 100644
index 00000000..808cd63e
--- /dev/null
+++ b/doc/rfc/.gitignore
@@ -0,0 +1,3 @@
+*.txt
+*.txt.gz
+tags
diff --git a/doc/rfc/Makefile b/doc/rfc/Makefile
new file mode 100644
index 00000000..a629782d
--- /dev/null
+++ b/doc/rfc/Makefile
@@ -0,0 +1,11 @@
+MODULE = ftp.rfc-editor.org::rfcs-text-only
+
+tags: rfctags.pl rfc-index.txt.gz
+	perl rfctags.pl | sort -f > $@
+
+rfc-index.txt.gz:
+	rsync -ptz ${MODULE}/rfc-index.txt ${MODULE}/'rfc[1-9]*.txt' .
+	gzip -9f *.txt
+
+clean:
+	rm -f tags *.txt *.txt.gz
diff --git a/doc/rfc/rfctags.pl b/doc/rfc/rfctags.pl
new file mode 100644
index 00000000..01324a0d
--- /dev/null
+++ b/doc/rfc/rfctags.pl
@@ -0,0 +1,28 @@
+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;
+}
-- 
cgit 1.4.1