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


\makeatletter				% for a little while

\typeout{Document Style 'sfwmac'.  Version 1.00 - released 17 June 1985}


% Examples

\def\eg#1{\hbox{``\verb*"#1"''}}	% in-line

\def\example#1\endexample{%		% multi-line
    $$%
	\displayindent=\leftskip
	\ifdim\parindent>\z@
	    \advance\displayindent by1.5\parindent
	\else
	    \advance\displayindent by.15\hsize
	\fi
	\let\\=\cr
	\tabskip=\z@
	\halign{\ignorespaces\verb*"##"\unskip\hfil\cr#1\cr}%
    $$%
}


% Miscellany

\def\pgm#1{{\it#1}}			% UNIX programs
\def\man#1(#2){\pgm{#1\/}(#2)}		% manual entries
\def\arg#1{\hbox{`{}\verb*"#1"'{}}}	% arguments to programs
\def\switch#1{\hbox{`{}-\verb*"#1"'{}}}	% switches to programs
\def\file#1{\hbox{\sl#1}}		% filename


% 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\Mail/{\file{Mail/}}
\def\context/{\file{context}}
\def\profile/{\file{.mh\_profile}}
\def\sequences/{\file{.mh\_sequences}}
\def\whatnow/{\verb*"What now?"}

\def\MMDF/{{\sf MMDF}}
\def\MMDFI/{\hbox{\sf MMDF-I}}
\def\MMDFII/{\hbox{\sf MMDF-II}}

\def\SendMail/{{\sf SendMail}}
\def\UUCP/{{\sf UUCP}}

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

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

\def\LaTeX{\hbox{\rm L\kern-.2em\raise.3ex\hbox{\sc a}\kern-.09em\TeX}}
\def\BibTeX{\hbox{\rm B\kern-.05em{\sc i\kern-.025em b}\kern-.08em\TeX}}
\def\SLiTeX{\hbox{\rm S\kern-.065em L\kern-.18em\raise.32ex\hbox{\sc i}%
	\kern-.03em\TeX}}

\def\NRTeX{\hbox{\rm NR-\TeX}}

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

\def\SUMEX/{{\sf SUMEX}}

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


% Fractions (from TUGboat v6 n1, 1985)

\def\frac#1/#2{%
    \leavevmode\kern.1em
    \raise.5ex\hbox{\the\scriptfont\z@ #1}\kern-.1em
    /\kern-.15em\lower.25ex\hbox{\the\scriptfont\z@ #2}%
}


\makeatother				% back to normal
