--- /dev/null
+%
+%
+\ifcat a\noexpand @\let\next\relax\else \def\next{%
+\documentclass{kluwer}\usepackage{doc}\MakePercentIgnore}\fi\next
+\NeedsTeXFormat{LaTeX2e}
+\def\filedate{1998/02/11}
+\def\filename{klumac.sty}
+%\DoNotIndex{\@M,\def,\c@secnumdepth,\baselineskip,\@pnumwidth,\else,\fi}
+%\DoNotIndex{\newcommand,\z@,\relax,\renewcommand,\ifnum,\csname,\endcsname}
+%\DoNotIndex{\baselineskip,\vskip,\hskip,\relax,\secdef,\gdef,\@cla,\@clb}
+%\DoNotIndex{\normalsize,\protect,\global,\setbox,\hbox,\vbox,\endinput}
+%\DoNotIndex{\egroup,\endgroup,\bgroup,\begingroup,\let}
+%\CodelineIndex
+%\newcommand{\Bs}{$\backslash$}%
+%\parindent=0pt
+%\parskip=3pt
+%\hfuzz=10pt
+%\MakeShortVerb{\|}
+%\addtolength{\textwidth}{4pc}
+%\begin{document}
+%\begin{opening}
+%\title{\filename}
+%\date{\filedate}
+%\author{Kluwer Academic Publishers\surname{}}
+%\institute{~}
+%\begin{abstract}
+% This internal stylefile defines some handy macros and exports the special
+% \AmSTeX\ fonts if available.
+%\end{abstract}
+%\end{opening}
+%\tableofcontents
+%\newpage\section{Usage}
+%Here are tests for the macro commands used and defined in this file:
+%{\def\mentry#1{$#1$ & \$\string #1\$ &}
+%\def\tentry#1{#1 & \string #1 &}
+%
+%\begin{tabular}{lllllllll}\hline
+%$\I $&\verb!$\I$! &$\iduaal$ &\verb!$\iduaal$! \\
+%$\restrict $&\verb!$\restrict$! &$\diamond$ &\verb!$\diamond$! \\
+%$\depth $&\verb!$\depth$! &$\dom$ &\verb!$\dom$! \\
+%$\mapdown{a}$&\verb!$\mapdown{a}$!&$\dC$ &\verb!$\dC$! \\
+%$\dF $&\verb!$\dF$! &$\dP$ &\verb!$\dP$! \\
+%$\dZ $&\verb!$\dZ$! &$\dQ$ &\verb!$\dQ$! \\
+%$\gsim $&\verb!$\gsim$! &$\logr$ &\verb!$\logr$! \\
+%$\dres $&\verb!$\dres$! &\today &\verb!\today! \\
+%$\forces $&\verb!$\forces$! &\.{a} & \verb!\.{a}! \\
+%$\concat $&\verb!$\concat$! &$\lh$ &\verb!$\lh$! \\
+%$\range $&\verb!$\range$! &$\mapright{a}$&\verb!$\mapright{a}$!\\
+%$\dL $&\verb!$\dL$! &$\dE$ &\verb!$\dE$!\\
+%$\dN $&\verb!$\dN$! &$\dR$ &\verb!$\dR$!\\
+%$\nequiv $&\verb!$\nequiv$! &$\lsim$ &\verb!$\lsim$!\\
+%$\grlo $&\verb!$\grlo$! &$\oast$ &\verb!$\oast$! \\
+%$\res$ &\verb!$\res$! &$\dres$ &\verb!$\dres$! \\
+%$\bigo{a}$ &\verb!$\bigo{a}$! &$\Res{a}$ &\verb!$\Res{a}$!\\
+%$\down{a}$ &\verb!$\down{a}$! &\timenow &\verb!\timenow!& \\
+%\TODAY &\verb!\TODAY! &\nbox{6}{500}{}{.}{4}{1}&
+%\verb!\nbox{6}{500}{0}{.}{4}{1}! \\
+%\cb[6pc]{Quite a bit to long a text to fit in one column}&
+%\verb!\cb[6pc]{Qu.... mn}!& \nbox{6}{600}{}{.}{4}{74} &
+%\verb!\nbox{6}{600}{0}{.}{4}{74}!\\
+%\hline
+%\end{tabular}
+%
+% \begin{itemize}
+% \spitem spitem. (\verb!\spitem spitem. !)
+% \spitem item) (\verb!\spitem spitem) !)
+% \spitem em] (\verb!\spitem spitem] !)
+% \spitem - (\verb!\spitem spitem- !)
+% \spitem * (\verb!\spitem spitem* !)
+% \end{itemize}
+%\newpage\section{Implementation}
+% Input special fonts. The commands for kluwer's internal font are
+% always valid, but this option defines the font. This is needed
+% because we do not intend to supply the font to everyone.
+%
+% Policy is that we want the ams fonts defined. However, not everybody
+% has these fonts installed, so it's better to be careful.
+% \begin{macrocode}
+\ProvidesPackage{klumac}[\filedate ]
+\font\@klusymfont=cmr10
+\DeclareOption{klusym}{\font\@klusymfont=klusym10 }
+\ExecuteOptions{}
+\ProcessOptions
+\IfFileExists{amssymb.sty}{\RequirePackage{amssymb}%
+ \global\font\smallmsa=msam7
+ \gdef\Register{$^{\mbox{\smallmsa\char114}}$~}}{}
+\IfFileExists{wasysym.sty}{\RequirePackage{wasysym}}{%
+ \IfFileExists{wasysym.tex}{\input{wasysym}}{}}
+% \end{macrocode}
+%
+% \subsection{Math macro's}
+% \begin{macrocode}
+\newcommand\I{{\bf I}}
+\newcommand\iduaal{\overline{\I}}
+\let\forces\Vdash
+\newcommand\rrestrict{\hbox{$\mid$ \kern-5pt \raise3.6pt\hbox{$
+ \scriptscriptstyle \backslash$}}}
+\newcommand\restrict{\mathrel{\mathpalette\rrestrict{}}}
+\let\diamond\lozenge
+\newcommand\concat{\mathrel{\raise1pt\hbox{$\!\!^\frown\!\!$}}}
+\newcommand\lh{\mathop\mathrm{lh}}
+\newcommand\depth{\mathop\mathrm{depth}}
+\newcommand\dom{\mathop\mathrm{dom}}
+\newcommand\range{\mathop\mathrm{range}}
+\newcommand\mapright[1]{\smash{\mathop{\longrightarrow}\limits^{#1}}}
+\newcommand\mapdown[1]{\big\downarrow
+ \rlap{$\vcenter{\hbox{$\scriptstyle#1$}}$}}
+\newcommand{\dC}{C \! \! \! \! {\scriptscriptstyle {}^{{}_|}}\ }
+\newcommand{\dL}{I \! \! L}
+\newcommand{\dE}{I \! \! E}
+\newcommand{\dF}{I \! \! F}
+\newcommand{\dP}{I \! \! P}
+\newcommand{\dN}{I \! \! N}
+\newcommand{\dR}{I \! \! R}
+\newcommand{\dZ}{Z \! \! \! Z}
+\newcommand{\dQ}{Q \! \! \! \! {\scriptscriptstyle {}^|}\ }
+\newcommand{\nequiv}{\setbox0\hbox{$\equiv$}%
+ \rlap{\hbox{$\equiv$}}%
+ \hbox to \wd0{\hfil $/$\hfil}}
+\newcommand{\lsim}{\rlap{\raise -.3ex\hbox{${\scriptstyle\sim}$}}%
+ \raise .6ex\hbox{${\scriptstyle <}$}}%
+\newcommand{\gsim}{\rlap{\raise -.3ex\hbox{${\scriptstyle\sim}$}}%
+ \raise .6ex\hbox{${\scriptstyle >}$}}%
+\newcommand{\logr}{\rlap{\raise -.3ex\hbox{${\scriptstyle <}$}}%
+ \raise .6ex\hbox{${\scriptstyle >}$}}%
+\newcommand{\grlo}{\rlap{\raise -.3ex\hbox{${\scriptstyle >}$}}%
+ \raise .6ex\hbox{${\scriptstyle <}$}}%
+\newcommand{\oast}{\setbox0\hbox{$\odot$}%
+ \rlap{\hbox to \wd0{\hfil$\ast$\hfil}}\box0}
+\newcommand{\res}{\oalign{\hbox{$\grave{}$\kern-3pt$\mid$}}}
+\newcommand{\dres}{\mid \! \res}
+\newcommand{\bigo}[1]{\setbox0\hbox{$\bigcirc$}%
+ \rlap{\raise .2ex\hbox to \wd0{\hfil ${\scriptscriptstyle
+ #1}$\hfil}}\box0}
+\newcommand{\Res}[1]{\mathop{\hbox{Res}}\limits_{\scriptscriptstyle #1}}
+\newcommand{\down}[1]{\raise -1ex\hbox{{$\scriptstyle #1$}}}
+% \end{macrocode}
+% \subsection{General}
+%
+% \begin{macrocode}
+\newcount\@cla
+\newcount\@clb
+\hyphenation{equiv-a-lent equiv-a-lent-ly sat-is-fy sat-is-fies
+ sat-is-fied}
+\newcommand\fn{\hspace*{14pt} \= \kill}
+\newcommand\mc{\multicolumn}
+\newcommand{\dummy}[1]{}
+\def\today{\ifcase\month\or January\or February\or March\or April\or
+ May\or June\or July\or August\or September\or October\or November\or
+ December\fi \space\number\day, \number\year}
+\def\TODAY{\number\day/\ifcase\month\or 01\or 02\or 03\or 04\or 05\or
+ 06\or 07\or 08\or 09\or 10\or 11\or 12\fi/\number\year}
+\def\timenow{%
+ \@tempcnta=\time \divide\@tempcnta by 60 \number\@tempcnta:\multiply
+ \@tempcnta by 60 \@tempcntb=\time \advance\@tempcntb by -\@tempcnta
+ \ifnum\@tempcntb <10 0\number\@tempcntb\else\number\@tempcntb\fi}
+\def\numtoword#1{\ifcase#1\or one\or two\or three\or four\or
+ five\or six\or seven\or eight\or nine\or ten\or eleven\or twelve\or
+ thirteen\or fourteen\or fifteen\or sixteen\or seventeen\or
+ eighteen\or nineteen\or twenty\fi}
+\def\NUMTOWORD#1{\ifcase#1\or ONE\or TWO\or THREE\or FOUR\or
+ FIVE\or SIX\or SEVEN\or EIGHT\or NINE\or TEN\or ELEVEN\or TWELVE\or
+ THIRTEEN\or FOURTEEN\or FIFTEEN\or SIXTEEN\or SEVENTEEN\or
+ EIGHTEEN\or NINETEEN\or TWENTY\fi}
+
+% \end{macrocode}
+% |\genaccent| is defined below. |\ifempty| is a shortcut used inside
+% |\genaccent|.
+% \begin{macrocode}
+\def\ifempty#1#2#3{\def\inner{#1}\ifx\inner\empty
+ #2\else #3\fi }
+\def\ifdef#1{\edef\tempa{\expandafter\@gobble\string #1}%
+ \expandafter\expandafter\expandafter\ifx\expandafter\csname
+ \tempa \endcsname\relax
+ \let\next\nosw \else \let\next=\yessw \fi \next}
+\def\nosw{\iffalse}
+\def\yessw{\iftrue}
+% \end{macrocode}
+% \subsubsection{Spitem}
+% This can be done better.
+% \begin{macrocode}
+\newif\ifklaar
+\newbox\bdj
+\def\onestep#1{\ifklaar\else
+ \if#1){)}\klaartrue\else
+ \if#1.{.}\klaartrue\else
+ \if#1]{]}\klaartrue\else
+ \if#1-{--}\klaartrue\else
+ \if#1*{*}\klaartrue\else
+ #1%
+ \fi\fi\fi\fi\fi
+ \fi}
+\def\subspitem#1{\scan#1\end}
+\def\spitem#1 {%
+ \def\scan##1##2\end{\def\aux{##1}%
+ \ifklaar\global\setbox\bdj=\hbox{##1##2\space}\else
+ \ifx\aux\empty \else \def\aux{##2}\onestep{##1}%
+ \ifx\aux\empty \else \scan##2\end \fi \fi \fi}%
+ \global\setbox\bdj\hbox{}%
+ \klaarfalse\expandafter\item[\subspitem{#1}]%
+ \unhbox\bdj}
+% \end{macrocode}
+% \subsubsection{Genaccent}
+% \begin{macrocode}
+\font\genacc=cmr10
+\def\genaccent#1#2#3#4#5{\protect\@genaccent{#1}{#2}{#3}{#4}{#5}}
+\def\@genaccent#1#2#3#4#5{%
+ \leavevmode\setbox0=\hbox{#3}%
+ \vbox{\offinterlineskip
+ \ifempty{#1}{}{%\else
+ \hbox to\wd0{\hss\genacc \char#1\hss}}%
+ \ifempty{#4}{\kern -.8ex}{\kern #4}%
+ \vbox to\ht0{\copy0\vss}%
+ \vtop{\null\vbox to\dp0{\vss}%
+ \ifempty{#2}{}{%\else
+ \ifempty{#5}{\kern .2ex}{\kern#5}%
+ \hbox to \wd0{\hss \genacc\char #2\hss}}%
+ }}}
+\renewcommand\.[1]{\genaccent{95}{}{#1}{}{}}
+% \end{macrocode}
+% \subsubsection{Table labels}
+% Note that these are font-dependant, the option |klusym| is needed to
+% initialize the correct font, otherwise the symbols will be in |cmr|.
+% \begin{macrocode}
+\newcommand\BlackBox{\hbox{\@klusymfont B}~}
+\newcommand\EmptyBox{\hbox{\@klusymfont E}~}
+\newcommand\HstripeBox{\hbox{\@klusymfont H}~}
+\newcommand\VstripeBox{\hbox{\@klusymfont V}~}
+\newcommand\LstripeBox{\hbox{\@klusymfont L}~}
+\newcommand\RstripeBox{\hbox{\@klusymfont R}~}
+\newcommand\UpCrossBox{\hbox{\@klusymfont U}~}
+\newcommand\DiagCrossBox{\hbox{\@klusymfont D}~}
+% \end{macrocode}
+% \subsection{Table macro's}
+% |\cb| it a typing shortcut for |\parbox|, without forcing this
+% width.
+% \begin{macrocode}
+\def\cb{\@ifnextchar[{\@cbone}{\@cbone[8pc]}}
+\def\@cbone[#1]#2{{\setbox0\hbox{#2}%
+ \ifdim\wd0 >#1 \parbox[t]{#1}{#2}\else #2\fi}}
+% \end{macrocode}
+% |\nbox| allows typesetting of aligned numbers. Arguments \#1, \#3
+% and \#5 specify widths in number of digits for the arguments \#2,
+% \#4 and \#6. Typeset as |lcr|. Empty arguments for widths means
+% natural width. This macro is a lot easier to use inside of another
+% macro.
+% \begin{macrocode}
+\def\nbox#1#2#3#4#5#6{\begingroup\setbox0\hbox{0}%
+ \ifempty{#1}{\hfil #2}{\hbox to #1\wd0{\hfil #2}}%
+ \ifempty{#3}{\hbox{#4}}{\hbox to #3\wd0{\hfil #4\hfil }}%
+ \ifempty{#5}{#6 \hfil}{\hbox to #5\wd0{#6\hfil }}%
+ \endgroup}
+% \end{macrocode}
+%
+%
+% \subsection{Charkern macro's}
+%
+% These are not very readable, but they work quite well.
+%
+% Use dollars for inlinemath, not |\(....\)|.
+%
+% Special handling added for the (quite often appearing) case of
+% |\charkern{\notesname}|, and a security check for the often
+% appearing case of no argument at all.
+% \begin{macrocode}
+\newif\ifkern@mathmode \kern@mathmodefalse
+\def\charkerncharspace{\kern 0.5ex}
+\def\charkernwordspace{\kern 0.5em\penalty 10}
+\let\charkerncommand\uppercase
+\def\@kap@tfor#1:=#2\do#3{\ifempty{#1}{}{%
+ \@tforloop#2\@nil\@nil\@@#1{#3}}}
+\def\charkern#1{%
+ \ifempty{#1}{}{%else
+ \begingroup
+ \def\test##1##2!!!!{\def\@tempa{##2}}\test#1!!!!%
+ \ifx\@tempa\empty \edef\@@kc{#1}\else \def\@@kc{#1}\fi
+ \def\c@@k{@s@e@v@y}%
+ \def\ck@@##1 @s@e@v@y\@@ck{\def\@@kc{##1}}%
+ \def\ck@##1 ##2\@@ck{\def\@kc{##1}\def\@@kc{##2}}%
+% \end{macrocode}
+% |\@kc| == first word of remaining sentence
+% \begin{macrocode}
+ \def\iterate{\expandafter\expandafter\expandafter\ck@
+% \end{macrocode}
+% The |\space| forces the line to end on with a space.
+%
+% In |\@kernword| most of the real work is done
+%
+%
+% \begin{macrocode}
+ \expandafter\@@kc\space @s@e@v@y\@@ck
+ \expandafter\@kernword\expandafter{\@kc}%
+ \ifx\@@kc\c@@k
+ \let\next\relax
+ \else
+ \expandafter\ck@@\@@kc\@@ck
+ \let\next\iterate\charkernwordspace
+ \fi\next}\iterate
+ \endgroup
+ }}
+
+\def\@kernword#1{\def\d@ll@rm@th{$}\@kap@tfor\@nextchar:=#1\do{%
+ \ifx\@nextchar\d@ll@rm@th
+ \ifkern@mathmode
+ \kern@mathmodefalse
+% \end{macrocode}
+%
+% Here all collected math is typeset
+%
+% \begin{macrocode}
+ $\kern@math$%
+ \else
+ \kern@mathmodetrue
+ \xdef\kern@math{}%
+ \fi
+ \else
+ \ifkern@mathmode
+ \begingroup
+ \def\protect{\noexpand}%
+% \end{macrocode}
+%
+% eat up math char by char
+%
+% |ab -> A\kern .5ex B\kern .5ex|
+%
+% \begin{macrocode}
+ \xdef\kern@math{\kern@math\@nextchar}%
+ \endgroup
+ \else
+ \charkerncommand\expandafter{\@nextchar}\charkerncharspace
+ \fi
+ \fi
+}}
+
+\newcount\tracingkluwer
+\def\kludebug#1{\relax\ifcase\tracingkluwer \or
+ \wlog{kap: #1}\or \typeout{kap: #1}\else
+ \immediate\wlog{kap*: #1}\typeout{kap: #1}\fi}
+\global\tracingkluwer=3
+\def\kluverbatim{\par\begingroup\vbox \bgroup\trivlist
+ \item\relax \vskip\parskip
+ \rightskip\z@skip \parindent\z@
+ \parfillskip\@flushglue \parskip0pt \@@par \@tempswafalse
+ \def\par{\if@tempswa \leavevmode\null\@@par\penalty\interlinepenalty
+ \else \@tempswatrue \ifhmode\@@par\penalty\interlinepenalty\fi \fi}
+ \let\do\@makeother \catcode`\|=0
+ \obeylines \verbatim@font \@noligs \dospecials \catcode`\%=14
+ \frenchspacing\@vobeyspaces
+ \everypar \expandafter{\the\everypar \unpenalty }}
+\def\endkluverbatim{\endtrivlist\egroup\endgroup}
+\endinput
+% \end{macrocode}
+%\PrintIndex
+%\end{document}
+%% end of klumac.sty
+
+
+
+
projects / helm.git / blobdiff