summary refs log tree commit diff
diff options
context:
space:
mode:
authorJune McEnroe <june@causal.agency>2020-12-19 15:49:08 -0500
committerJune McEnroe <june@causal.agency>2020-12-19 15:49:08 -0500
commit5107c9d50e11d37042e8ce33ba15511d88b5572b (patch)
tree392241c99ae3c73080ac0e798bcb0f87b845177e
parentOpen rfc-index.txt for :RFC without argument (diff)
downloadsrc-5107c9d50e11d37042e8ce33ba15511d88b5572b.tar.gz
src-5107c9d50e11d37042e8ce33ba15511d88b5572b.zip
Sort RFC tags file
This supposedly lets vim do binary search on the file, not that it
seemed slow before. Also handle section headings with no names.
Diffstat (limited to '')
-rw-r--r--rfc/Makefile2
-rw-r--r--rfc/rfctags.pl5
2 files changed, 4 insertions, 3 deletions
diff --git a/rfc/Makefile b/rfc/Makefile
index c83f9879..630b09f9 100644
--- a/rfc/Makefile
+++ b/rfc/Makefile
@@ -1,7 +1,7 @@
 MODULE = ftp.rfc-editor.org::rfcs-text-only
 
 tags: rfctags.pl
-	perl rfctags.pl > $@
+	perl rfctags.pl | sort -f > $@
 
 sync:
 	rsync -z ${MODULE}/rfc-index.txt ${MODULE}/'rfc[0-9]*.txt' .
diff --git a/rfc/rfctags.pl b/rfc/rfctags.pl
index cd3ba288..5833e17a 100644
--- a/rfc/rfctags.pl
+++ b/rfc/rfctags.pl
@@ -5,15 +5,16 @@ 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]+)/) {
+		if (/^([\d.]+|[A-Z][.])\s+([^\t]+)?/) {
 			print $1, $rfc, $.;
-			print $2, $rfc, $.;
+			print $2, $rfc, $. if $2;
 		}
 		# References
 		if (/^\s*(\[[\w-]+\])\s{2,}/) {