#!/bin/rc
#
# Add this to $home/lib/plumbing before the 'include basic'
# statement to make RFC and Internet Draft references plumbable:
#
# type is text
# data matches '[Rr][Ff][Cc][ ]*([0-9]+)(\.[Tt][Xx][Tt])?'
# plumb start rfc $1
#
# type is text
# data matches '(draft-[a-z0-9\-]+-[0-9]+)(\.txt)?'
# plumb start rfc $1

rfork e

cmd = B

for (f) { 
	switch ($f) {
	case -D
		cmd = echo
	case -p
		cmd = cat
	case [0-9]*
		rfc = `{echo $1 | awk '{printf("%0.4d", $1)}'}
		$cmd /lib/doc/ietf/rfc/$rfc
	case -i
		$cmd /lib/doc/ietf/rfc/_index
	case -I
		$cmd /lib/doc/ietf/rfc/_latest
	case -d
		$cmd /lib/doc/ietf/drafts/_index
	case -s
		$cmd /lib/doc/ietf/rfc/_std
	case draft-*
		draft = $1
		if (! ~ $draft *.txt)
			draft = $draft^'.txt'
		$cmd /lib/doc/ietf/drafts/$draft
	}
}