diff options
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/rfc/.gitignore | 3 | ||||
| -rw-r--r-- | doc/rfc/Makefile | 11 | ||||
| -rw-r--r-- | doc/rfc/rfctags.pl | 28 |
3 files changed, 42 insertions, 0 deletions
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; +} |