--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/papers/doclib/sfwmac.tex	Mon Apr 18 23:46:02 2005 +0900
@@ -0,0 +1,120 @@
+% Support for writing UNIX-style documentation (based on webmac.tex)
+
+
+\catcode`\@=11				% for a little while
+
+
+% More fonts
+
+\font\sixteentex=cmtex10 scaled\magstep2
+\font\twelvetex=cmtex10 scaled\magstep1
+\font\tentex=cmtex10
+\font\eighttex=cmtex10
+
+\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\UUCP/{{\sf UUCP}}
+\def\SendMail/{{\sf SendMail}}
+\def\Mail/{{\sf Mail}}
+\def\sequences/{{sequences}}
+\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