summary refs log tree commit diff
diff options
context:
space:
mode:
authorJune McEnroe <june@causal.agency>2021-04-11 22:26:16 -0400
committerJune McEnroe <june@causal.agency>2021-04-11 22:55:03 -0400
commit620b00948a23a2ea04f4e452a1681508a6f1c783 (patch)
treeb9aa025d684e1a44c320ed19021d99617a69e0c2
parentAdd The Relentless Moon (diff)
downloadsrc-620b00948a23a2ea04f4e452a1681508a6f1c783.tar.gz
src-620b00948a23a2ea04f4e452a1681508a6f1c783.zip
Simplify rfctags
I wasn't thinking perl enough.
-rw-r--r--doc/rfc/rfctags.pl30
1 files changed, 13 insertions, 17 deletions
diff --git a/doc/rfc/rfctags.pl b/doc/rfc/rfctags.pl
index 45e74f9a..05173d00 100644
--- a/doc/rfc/rfctags.pl
+++ b/doc/rfc/rfctags.pl
@@ -4,22 +4,18 @@ use warnings;
 use open ':encoding(ISO-8859-1)';
 
 ($,, $\) = ("\t", "\n");
-for my $rfc (@ARGV) {
-	open my $handle, '<', $rfc or die "${rfc}: $!";
-	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 [
-		}
+while (<>) {
+	chomp;
+	# Section headings
+	if (/^([\d.]+|[A-Z][.])\s+([^\t]+)?/) {
+		print $1, $ARGV, $.;
+		print $2, $ARGV, $. if $2;
+		print $1, $ARGV, $. if $1 =~ /^([\d.]+)[.]$/;
 	}
-	die "${rfc}: $!" if $!;
-	close $handle;
+	# References
+	if (/^\s*(\[[\w-]+\])\s{2,}/) {
+		print $1, $ARGV, $.;
+		print "\\$1", $ARGV, $.; # vim ^] prepends \ to [
+	}
+	close ARGV if eof;
 }