diff options
Diffstat (limited to '')
| -rw-r--r-- | doc/rfc/rfctags.pl | 30 |
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; } |