summaryrefslogtreecommitdiff
path: root/macros/generic/occam/Occam94-old/sample.dir/Kohler-ori.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/generic/occam/Occam94-old/sample.dir/Kohler-ori.sty')
-rw-r--r--macros/generic/occam/Occam94-old/sample.dir/Kohler-ori.sty247
1 files changed, 247 insertions, 0 deletions
diff --git a/macros/generic/occam/Occam94-old/sample.dir/Kohler-ori.sty b/macros/generic/occam/Occam94-old/sample.dir/Kohler-ori.sty
new file mode 100644
index 0000000000..a3009632ad
--- /dev/null
+++ b/macros/generic/occam/Occam94-old/sample.dir/Kohler-ori.sty
@@ -0,0 +1,247 @@
+ % RESOURCEamspptSimple ;
+ % Assumes AmSTeX(version2) loaded, but NOT AmSppt.sty
+ % These macros are intentionally simple minded and have
+ % simple syntax; this permits easy alteration (TeX macros are usually
+ % very devious). Don't hesitate to make alterations,
+ % but in that case rename this file!
+
+ %%% avoid double input
+
+ %avoid double input
+ \bgroup
+ \catcode`\!=12
+ \ifx\RESOURCEams\relax
+ \immediate\write16{}%
+ \message{ !!! RESOURCEams macros already defined !!!}
+ \gdef\RESOURCEams{\endinput}%
+ \else \global\let\RESOURCEams\relax
+ \fi
+ \egroup
+ \RESOURCEams
+
+ \catcode`\@=11
+
+ %%% The following macros will make you call upon auxiliary files
+ %% when needed.
+ \bgroup
+ \catcode`\!=12
+ \gdef\Acc{%\show\Acc%
+ \errmessage{ !!! You need to input RESOURCEamsAcc.tex !!!}\end
+ }
+ \gdef\amsCD{%
+ \errmessage{ !!! You need to input RESOURCEamsCD.tex !!!}\end
+ }
+ \gdef\gLinefigure{%
+ \errmessage{ !!! You need to input RESOURCEfig.tex !!!}\end
+ }
+ \egroup
+
+ %%% Font macros
+ %%
+
+ \def\Bf#1{{\bf#1}}
+
+ \def \Bi #1{{\bi{#1}\unskip\/}}
+
+ \def \Admin #1{\begingroup\mathsurround=0 pt
+ \leavevmode%p222-3: \hskip -\lastskip for \unskip
+ \ifmmode\hbox{$\roman{{#1}}$}\else$\roman{{#1}}$\fi
+ \endgroup }%{{}} prevents misinterpretation of naked numbers
+
+ %%% Logical formatting
+ %%
+
+ \font \titlefont=cmbx10 scaled 1200
+ \long\def\Title#1\endTitle{\heading\titlefont#1\endheading}
+
+\long\def\Author#1\endAuthor{\heading\smc #1\endheading}
+
+\def\Subheading{\medskip\goodbreak\subheading}
+\let\SubheadingA\Subheading
+\let\SubheadingB\Subheading
+\let\SubheadingC\Subheading
+
+ \let \Theorem\proclaim
+ \let \endTheorem\endproclaim
+
+ %\let\Proof\demo %% make substitution by hand
+ %\let\endProof\enddemo
+
+ \def\Proof{\medskip\goodbreak\noindent
+ \hbox{\it Proof.\kern 1em}\ignorespaces}
+
+ %% A Box for the Quod est demonstrandum:
+ \def\qedbox{\hbox{\vbox{
+ \hrule width0.2cm height0.2pt
+ \hbox to 0.2cm{\vrule height 0.2cm width 0.2pt
+ \hfil\vrule height0.2cm width 0.2pt}
+ \hrule width0.2cm height 0.2pt}\kern1pt}}
+
+ %% Typing in \qed makes the qedbox right justified:
+ \def\qed{\ifmmode\qedbox
+ \else\unskip\ \hglue0mm\hfill\qedbox\medskip
+ \goodbreak\fi}
+
+ \def \Remark#1{\medskip \goodbreak\par\noindent{\smc #1.}}
+ \def \endRemark{\medskip \goodbreak}
+
+ \def \Example#1{\Remark {#1}}
+ \def \endExample{\medskip \goodbreak}
+
+ \def \Definition#1{\Remark {#1}}
+ \def \endDefinition{\medskip \goodbreak}
+
+ \def\ItemStyle{\bold}%
+ \def \Item #1{\smallskip
+ \ifhmode\else\nointerlineskip\fi
+ {\parskip=4pt\noindent
+ \hbox{$\def\let\relax\let\bf\relax\ItemStyle{{#1}}$}\enskip}}
+
+ \def \Itemitem #1{\itemitem{\hbox{$\def\let\relax\let\bf\relax%
+ \ItemStyle{#1}$}}}
+
+ \def \Benchmark { }
+ \def \References#1{\begingroup \leftskip=25 pt \parskip=4 pt plus 2 pt
+ \goodbreak \hbox to 1 pt{} \vskip 15 pt plus 10 pt minus 5 pt
+ \centerline{\bf #1}
+ \frenchspacing \def \Benchmark{\Refmark }
+ \def \Refmark##1\cite ##2{%
+ \par\noindent \llap{\null\cite{##2}\quad}\kern 0pt}
+ \nobreak\vskip 8pt \nobreak}
+
+ \def \endReferences {~\unskip\par\endgroup \medskip\goodbreak }
+
+ \def \Footnote #1#2{\plainfootnote{#1}{#2}}
+
+ %Symbols macros
+
+ \def \preXbox{\hbox{$
+ \vcenter{\hbox{
+ \vrule\vbox to 6.7 pt{
+ \hrule \vfil \hbox to 12 pt{
+ \hfil}%
+ \vfil\hrule}%
+ \vrule}}\hskip 4pt%
+ $}}
+
+ \def \Xbox{\raise -.25pt\hbox{\preXbox}}
+
+ \def \Nonsense {{~\unskip \kern-3.5 pt %
+ \hbox{\mathsurround=0 pt\Xbox \kern -16.5 pt $>\kern-3pt<$}}}
+
+ \def \Blackbox
+ {\leavevmode\hskip .3pt \vbox{\hrule height 6.9pt
+ \hbox{\hskip 4.5pt}}\hskip .5pt}%
+
+ \def \<{{$\mathsurround= 0 pt\raise 1.4
+ pt\hbox{$\scriptscriptstyle
+ \langle \kern -1 pt \langle\hskip 2 pt $}$}}
+
+ \def \>{{\mathsurround= 0 pt$\hskip 2 pt \raise 1.4
+ pt\hbox{$\scriptscriptstyle
+ \rangle \kern -1 pt \rangle$}$}}
+
+ \def \Matrix #1{\matrix#1\endmatrix}
+
+ \def \amsMatrix #1\endamsMatrix{\matrix#1\endmatrix}
+
+ \def\amsCases #1\endamsCases{\cases#1\endcases}
+
+ \def\tagform@#1{\hbox{\rm\Pretag\ignorespaces#1\unskip\Posttag}}
+ \def\Pretag{(}
+ \def\Posttag{)}
+
+ \def\Eqno #1$${\def\Pretag{}\def\Posttag{}
+ \tag"\Admin{#1}"$$}
+
+ \def \Multline#1\endMultline#2$${\def\Pretag{}\def\Posttag{}
+ \def\Eqno{}\multline#1\endmultline\tag"\Admin{#2\hbox to 1sp{}}"$$}
+
+ \def \bigMidvert{\kern4pt \big \vert \kern4pt}
+
+ \def \Midvert{\kern3pt \vert \kern3pt}
+
+ \def \Sharp {\mathord{\#}}
+
+ \def \bigConnectedsum {\mathop{\#}\limits}
+
+ \def \Coprod {\mathop{\raise 1.2pt \hbox{$\coprod$}}\limits}
+
+ \def \Lim {\lim\limits}
+
+ \def \Lbrack {{$[\![$}}
+
+ \def \Rbrack {{$]\!]$}}
+
+ %%% Binomial coef trick macros mentioned in Sweet-teX manual (rare)
+ %%
+ \def \Rparen {\right ) }
+ \def \Lparen {\futurelet\next \Lptaupe}
+ \def\Lptaupe{\ifx \next ^ \let\this\LLparen
+ \else \let\this\LLLparen \fi\this}
+ \def\LLparen {\left ( \Atop }
+ \def \Atop ^#1_#2{{#1\atop#2}}
+ \def\LLLparen {\left (}
+
+ %%%%%%%%%%%%%%%% Accents were here
+
+ \def \circleover #1{\overset\circ\to {#1}}
+
+ \def \Cdot{\mathbin{\raise .4 ex \hbox to 3pt {\hss\bf .\hss}}}
+
+ \def \llonguparrow{\bigg\uparrow }
+
+ \def \llongdownarrow{\bigg\downarrow}
+
+ \def \llongrightarrow{\kern 1pt\mathop
+ {\kern0pt\longrightarrow\kern1pt}\limits}
+
+ \def \llongleftarrow{\kern-2pt\mathop
+ {\kern3pt\longleftarrow\kern3pt}\limits}
+
+ \def \llongtwoheadrarrow {\kern-2pt
+ \mathop{\kern3pt\longrightarrow \kern-14pt
+ \longrightarrow\kern3pt}\limits}
+
+ \def \llongleftrightarrow {\kern-2pt
+ \mathop{\kern3pt\longleftrightarrow\kern3pt}\limits}
+
+ \def \llongmapsto {\kern-2pt
+ \mathop{\kern3pt\longmapsto\kern3pt}\limits}
+
+
+ %%%%%%%%%%%%%%%%% CD macros were here
+
+ \def\Trademark{\hbox{\Admin{{}^{\scriptscriptstyle TM}}}}
+
+ \def \AmS{{\textfontii A}\kern -.1667em\lower .5ex\hbox {\textfontii
+ M}\kern -.125em{\textfontii S}}
+
+ \def\LaTeX{{\rm L\kern-.36em\raise.3ex\hbox{\smc a}\kern-.15em
+ \TeX}}
+
+ \def\Undef{\Nonsense }
+
+ %The following correspond to rare Sweet-teX symbols,
+ %and will produce a X'ed box on your TeX printout
+ %until something better is devised
+ \def\Bigasterisk{\Undef}
+ \def\Control{\Undef}
+ \def\llongrightarrowtail{\Undef}
+ \def\llongswarrow{\Undef }
+ \def\llongsearrow{\Undef }
+ \def\llongnwarrow{\Undef }
+ \def\llongnearrow{\Undef }
+ \def\llongtwoheadrightarrow{\mathbin
+ {{\longrightarrow} \kern -1850\mu {\rightarrow}}}
+
+ \def \Longeq {\mathop{=\kern-5pt=}\limits }
+
+%%%% 4 lines in case cmex pointsizes missing
+ \font\eightex=cmex10 at 8pt \skewchar\eightex='60
+ \font\sevenex=cmex10 at 7pt \skewchar\sevenex='60
+ \font\sixex=cmex10 at 6pt \skewchar\sixex='60
+ \tenpoint
+
+ \catcode`\@=13 %active
+