diff options
Diffstat (limited to 'rfc')
| -rw-r--r-- | rfc/.gitignore | 3 | ||||
| -rw-r--r-- | rfc/Makefile | 11 | ||||
| -rw-r--r-- | rfc/rfctags.pl | 28 |
3 files changed, 0 insertions, 42 deletions
diff --git a/rfc/.gitignore b/rfc/.gitignore deleted file mode 100644 index 808cd63e..00000000 --- a/rfc/.gitignore +++ /dev/null @@ -1,3 +0,0 @@ -*.txt -*.txt.gz -tags diff --git a/rfc/Makefile b/rfc/Makefile deleted file mode 100644 index a629782d..00000000 --- a/rfc/Makefile +++ /dev/null @@ -1,11 +0,0 @@ -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/rfc/rfctags.pl b/rfc/rfctags.pl deleted file mode 100644 index 01324a0d..00000000 --- a/rfc/rfctags.pl +++ /dev/null @@ -1,28 +0,0 @@ -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; -} |