% Support for writing UNIX-style documentation (based on webmac.tex)


\catcode`\@=11				% for a little while


% More fonts

\font\sixteentex=amtex10 scaled\magstep2
\font\twelvetex=amtex10 scaled\magstep1
\font\tentex=amtex10
\font\eighttex=amtex10

\def\curfont{%
    \ifcase\font@no
	\rm\or
	\it\or
	\sl\or
	\bf\or
	\tt\or
	\sc\or
	\sf\or
	\tx
    \else \errmessage{font madness}\fi
}

\chardef\AM=`\&					% ampersand
\chardef\BS=`\\					% backslash
\chardef\LB=`\{					% left brace
\chardef\RB=`\}					% right brace
\def\LQ{{\tt\char'22}}				% left quote
\def\RQ{{\tt\char'23}}				% right quote
\def\SP{{\tt\char`\ }}				% space
\chardef\TL=`\~					% tilde
\chardef\UL=`\_					% underline

\def\everypointsize#1#2{%
    \def\tx{%
	\font@no=8
	\csname#1tex\endcsname
	\let\&=\AM	\let\\=\BS	\let\{=\LB	\let\`=\LQ
	\let\}=\RB	\let\'=\RQ	\let\ =\SP	\let\~=\TL
	\let\_=\UL
    }%
}

\curtype


% Standard Characters

\def\#{\hbox{\tt\char`\#}}			% parameter sign
\def\${\hbox{\tt\char`\$}}			% dollar sign
\def\%{\hbox{\tt\char`\%}}			% percent sign
\def\^{\ifmmode\mathchar"222 \else\char`^ \fi}	% pointer or hat


% Examples

\def\eg#1{\hbox{\tx``#1''}}			% in-line

\def\example#1\endexample{%			% multi-line
    $$%
	\displayindent=\leftskip
	\advance\displayindent by1.5\parindent
	\let\\=\cr
	\tabskip=0pt
	\halign{%
	    \leftline{\tx\ignorespaces##\unskip}\cr
	    #1\cr
    }$$%
}


% Miscellany

\def\pgm#1{{\it#1}}			% UNIX programs
\def\man#1(#2){\pgm{#1\/}(#2)}		% manual entries
\def\arg#1{\hbox{\tx`{}#1'{}}}		% arguments to programs
\def\switch#1{\hbox{\tx`{}-#1'{}}}	% switches to programs
\def\file#1{\hbox{\sl#1}}		% filename
\def\bq#1{`{}#1`{}}			% back-quoted command


% Commonly used software systems

\def\EMACS/{{\sf EMACS}}
\def\INFO/{{\sf INFO}}
\def\MLisp/{{\sf MLisp}}

\def\MH/{{\sf MH}}
\def\mh#1{{\sf mh.#1}}
\def\context/{\file{context}}
\def\profile/{\file{.mh\_profile}}
\def\whatnow/{{\tx What now?\/}}

\def\MMDF/{{\sf MMDF}}
\def\MMDFII/{{\sf MMDF-II}}

\def\AMSPPT.STY/{{\tt amsppt.sty}}
\ifundefined{AmsTeX}
    \def\AmSTeX{%
	$\cal A$\kern-.1667em\lower.5ex\hbox{$\cal M$}\kern-.125em
	$\cal S$-\TeX
    }%
\fi

\def\DISS.STY/{{\tt diss.sty}}
\def\PhDTeX{PhD-\TeX}

\def\ROFF/{{\sf ROFF}}

\def\TTYD/{{\sf TTYD}}


\catcode`\@=12				% back to normal