--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/papers/mh6.5/sfwmac.sty	Mon Apr 18 23:46:02 2005 +0900
@@ -0,0 +1,66 @@
+% LaTeX support for writing UNIX-style documentation
+
+
+% UNIX-style references
+
+\def\sfwFILfont{\sl}
+
+\def\@egaux#1#2#3{%
+    \def#1##1{%
+	#2\begingroup \tt \let\do=\@makeother \dospecials
+	\def\@tempa####1##1{####1\endgroup#3}\@tempa
+    }%
+}
+
+\def\pgm#1{\mbox{\it#1}\index{#1}}	% programs
+\def\xpgm#1#2{\mbox{\it#1}\index{\noexpand\noexpand\noexpand#2{}}}
+\def\man#1(#2){\xpgm{#1\/}{#1}(#2)}	% manual entries
+\@egaux\arg{`{}}{'{}}			% arguments to programs
+\@egaux\switch{`{}-}{'{}}		% switches to programs
+\def\file#1{\mbox{\sfwFILfont#1}}	% filename
+
+
+% Commonly used software systems
+
+\def\sfwPGMfont{\sf}
+
+\def\@sfwdef#1#2{\@sfwaux{#1/}{#2}}
+\def\@sfwaux#1#2{\def#1{\mbox{#2}\index{\noexpand\noexpand\noexpand#1{}}}}
+
+\@sfwdef\EMACS{\sfwPGMfont EMACS}
+\@sfwdef\INFO{\sfwPGMfont INFO}
+\@sfwdef\MLisp{\sfwPGMfont MLisp}
+
+\@sfwdef\MH{\sfwPGMfont MH}
+\def\mh#1{\mbox{\sfwPGMfont mh.#1}\index{mh.#1}}
+\@sfwdef\Mail{\file{Mail/}}
+\@sfwdef\context{\file{context}}
+\@sfwdef\profile{\file{.mh\_profile}}
+\@sfwdef\sequences{\file{.mh\_sequences}}
+\def\whatnow/{\verb*"What now?"\index{whatnow}}
+
+\@sfwdef\MMDF{\sfwPGMfont MMDF}
+\@sfwdef\MMDFI{\sfwPGMfont MMDF-I}
+\@sfwdef\MMDFII{\sfwPGMfont MMDF-II}
+
+\@sfwdef\SendMail{\sfwPGMfont SendMail}
+\@sfwdef\UUCP{\sfwPGMfont UUCP}
+
+\def\AmS{$\cal A$\kern-.1667em\lower.5ex\hbox{$\cal M$}\kern-.125em$\cal S$}
+\@sfwaux\AmSTeX{\rm \AmS-\TeX}
+
+\@sfwaux\PhDTeX{\rm P\kern-.05em{\sc h\kern-.025em D}\kern-0.08em\TeX}
+
+\@sfwaux\LaTeX{\rm L\kern-.36em\raise.3ex\hbox{\sc a}\kern-.15em\TeX}
+\@sfwaux\BibTeX{\rm B\kern-.05em{\sc i\kern-.025em b}\kern-.08em\TeX}
+\@sfwaux\SLiTeX{\rm S\kern-.06em{\sc l\kern-.035emi}\kern-.06em\TeX}
+
+\@sfwaux\NRTeX{\rm NR-\TeX}
+
+\@sfwdef\ROFF{\sfwPGMfont ROFF}
+
+\@sfwdef\SUMEX{\sfwPGMfont SUMEX}
+
+\@sfwdef\WEB{\sfwPGMfont WEB}
+
+\@sfwdef\TTYD{\sfwPGMfont TTYD}