: "
:	ASIS - a pre-inverse of nroff
:
:	usage: asis [file]
:
:	Corey Satten, corey @ cac.washington.edu July 1, 1985
:	http://staff.washington.edu/corey
:
:	    Asis is an almost-pre-inverse of nroff.  That is,
:		cat file | asis | nroff
:	    is almost identical to file with the exceptions being:
:	    left margin, pagination, and control characters.
:
:	This function requires some way to replace tabs with blanks.
:	The system 5 and 4.2BSD functions are tried in that order.
:	If neither is found, a diagnostic is produced.
: "

( (newform -i $*) 2>/dev/null || expand $*) | sed '
1i\
.\\" ### initiate asis block ###\
.nr UU \\n(.u   \\"asis block ###\
.nf            \\"asis block ###
s/\\/\\e/g
s/^/\\\&/
$a\
.if \\n(UU .fi  \\"asis block ###\
.\\" ### complete asis block ###
'