summaryrefslogtreecommitdiff
path: root/macros/mtex/documentation/mdocams.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/mtex/documentation/mdocams.tex')
-rw-r--r--macros/mtex/documentation/mdocams.tex261
1 files changed, 261 insertions, 0 deletions
diff --git a/macros/mtex/documentation/mdocams.tex b/macros/mtex/documentation/mdocams.tex
new file mode 100644
index 0000000000..572937adb4
--- /dev/null
+++ b/macros/mtex/documentation/mdocams.tex
@@ -0,0 +1,261 @@
+%------------------------------------------------------------------
+% parts from AMSTeX Version 0.999999 (C) AMS 1983
+%
+\catcode`\@=11
+
+\def\@{\char'100 }
+\catcode`\~=13
+\def\{{\relax@AmS\ifmmode\delimiter\dq4266308
+ \else$\delimiter\dq4266308$\fi}
+\def\}{\relax@AmS\ifmmode\delimiter\dq5267309
+ \else$\delimiter\dq5267309 $\fi}
+
+\def\tex{\TeX}
+
+%
+
+% STYLE, SPACING AND ALTERNATE NAMES
+
+\let\dsize=\displaystyle
+\let\tsize=\textstyle
+\let\ssize=\scriptstyle
+\let\sssize=\scriptscriptstyle
+
+\def\quad{\relax@AmS\ifmmode
+ \hbox{\hskip1em}\else\hskip1em\relax@AmS\fi} % NOTE 20
+\def\qquad{\quad\quad}
+\def\,{\relax@AmS\ifmmode\mskip\thinmuskip\else$\mskip\thinmuskip$\fi}
+\def\;{\relax@AmS
+ \ifmmode\mskip\thickmuskip\else$\mskip\thickmuskip$\fi}
+\def\parsep{\par\penalty -50\vskip 3pt plus 3pt minus 3pt}
+\def\Parsep{\par\penalty -100\vskip 6pt plus 3pt minus 4pt}
+\def\frac#1#2{{#1\over#2}}
+\def\Frac#1#2{{\displaystyle{#1\over#2}}}
+\def\text#1{\hbox{\rm#1}}
+%
+% SOME BASIC CONTROL SEQUENCES USED IN OTHER DEFINITIONS
+%
+\def\eat@AmS#1{}
+\long\def\comp@AmS#1#2{\def\@AmS{#1}\def\@@AmS{#2}\ifx
+ \@AmS\@@AmS\def\cresult@AmS{T}\else\def\cresult@AmS{F}\fi}
+\def\in@AmS#1#2{\def\intest@AmS##1#1##2{\comp@AmS##2\end@AmS\if T\cresult@AmS
+ \def\cresult@AmS{F}\def\in@@AmS{}\else
+ \def\cresult@AmS{T}\def\in@@AmS####1\end@AmS{}\fi\in@@AmS}%
+ \def\cresult@AmS{F}\intest@AmS#2#1\end@AmS}
+%
+% ALIGNED UNITS
+%
+\let\relax@AmS=\relax
+\def\Let@AmS{\relax@AmS\iffalse{\fi\let\\=\cr\iffalse}\fi}
+\def\align{\def\vspace##1{\noalign{\vskip ##1}}
+ \,\vcenter\bgroup\Let@AmS\tabskip=0pt\openup3pt\mathsurround=0pt
+ \halign\bgroup\strut
+ \hfil$\displaystyle{##}$&$\displaystyle{{}##}$\hfil\cr}
+\def\endalign{\strut\crcr\egroup\egroup}
+%
+\def\bunch{\def\vspace##1{\noalign{\vskip ##1}}
+ \,\vcenter\bgroup\Let@AmS\tabskip=0pt\openup3pt\mathsurround=0pt
+ \halign\bgroup\strut\hfil$\displaystyle{##}$\hfil\cr}
+\def\endbunch{\strut\crcr\egroup\egroup}
+%
+\def\cases{\left\{ \,\vcenter\bgroup\Let@AmS\normalbaselines\tabskip=0pt
+ \halign\bgroup$##\hfil$&\qquad$##\hfil$\cr}
+\def\endcases{\crcr\egroup\egroup\right.}
+%
+\def\matrix{\catcode`\^^I=4 \futurelet\tok@AmS\matrix@AmS}
+\def\matrix@AmS{\relax@AmS\iffalse{\fi \ifnum`}=0\fi\ifx\tok@AmS\format
+ \def\next@AmS{\expandafter\matrix@@AmS\eat@AmS}\else
+ \def\next@AmS{\matrix@@@AmS}\fi\next@AmS}
+\def\matrix@@@AmS{
+ \ifnum`{=0\fi\iffalse}\fi\,\vcenter\bgroup\Let@AmS\tabskip=0pt
+ \normalbaselines\halign\bgroup $\strut\hfil##\hfil$&&\quad$\strut
+ \hfil##\hfil$\cr\strut\cr\noalign{\kern-\baselineskip}}
+\def\matrix@@AmS#1\\{
+ \def\premable@AmS{#1}\toks@{##}
+ \def\c{$\copy\strutbox\hfil\the\toks@\hfil$}\def\r
+ {$\copy\strutbox\hfil\the\toks@$}%
+ \def\l{$\copy\strutbox\the\toks@\hfil$}%
+ \setbox0=
+ \hbox{\xdef\Preamble@AmS{\premable@AmS}}
+ \def\vspace##1{\noalign{\vskip ##1}}\ifnum`{=0\fi\iffalse}\fi
+ \,\vcenter\bgroup\Let@AmS
+ \tabskip=0pt\normalbaselines\halign\bgroup\span\Preamble@AmS\cr
+ \mathstrut\cr\noalign{\kern-\baselineskip}}
+\def\endmatrix{\crcr\mathstrut\cr\noalign{\kern-\baselineskip
+ }\egroup\egroup\,\catcode`\^^I=10 }
+
+
+
+% STUFF FOR BIBLIOGRAPHY
+
+\def\refto#1{\in@AmS,{#1}\if T\cresult@AmS\refto@AmS#1\end@AmS\else
+ [{\bf#1}]\fi}
+\def\refto@AmS#1,#2\end@AmS{[{\bf#1},#2]}
+
+\def\Refs{\bigbreak\hbox to \hsize{\hfil\tenpoint
+ \smc \Referenceword@AmS\hfil}\penalty 10000
+ \bigskip\eightpoint\sfcode`.=1000 }
+
+\newbox\nobox@AmS \newbox\keybox@AmS \newbox\bybox@AmS
+\newbox\bysamebox@AmS \newbox\paperbox@AmS \newbox\paperinfobox@AmS
+\newbox\jourbox@AmS \newbox\volbox@AmS \newbox\issuebox@AmS
+\newbox\yrbox@AmS \newbox\pagesbox@AmS \newbox\bookbox@AmS
+\newbox\bookinfobox@AmS \newbox\publbox@AmS \newbox\publaddrbox@AmS
+\newbox\finalinfobox@AmS
+
+
+
+\def\refset@AmS#1{\expandafter\gdef\csname is\expandafter\eat@AmS
+ \string#1@AmS\endcsname{F}\expandafter
+ \setbox\csname \expandafter\eat@AmS\string#1box@AmS\endcsname=\null}
+
+\def\ref@AmS{\refset@AmS\no \refset@AmS\key \refset@AmS\by
+\gdef\isbysame@AmS{F}%
+ \refset@AmS\paper
+ \refset@AmS\paperinfo \refset@AmS\jour \refset@AmS\vol
+ \refset@AmS\issue \refset@AmS\yr
+ \gdef\istoappear@AmS{F}%
+ \refset@AmS\pages
+ \gdef\ispage@AmS{F}%
+ \refset@AmS\book
+ \gdef\isinbook@AmS{F}%
+ \refset@AmS\bookinfo \refset@AmS\publ
+ \refset@AmS\publaddr \refset@AmS\finalinfo \bgroup
+ \ignorespaces}
+
+\def\ref{\noindent\hangindent 20pt \hangafter 1 \def\refi@AmS{T}%
+ \def\refl@AmS{F}\def\\{\egroup\endref@AmS\gdef\refi@AmS{F}\ref@AmS}\ref@AmS}
+
+\def\refdef@AmS#1#2{\def#1{\egroup\expandafter
+ \gdef\csname is\expandafter\eat@AmS
+ \string#1@AmS\endcsname{T}\expandafter\setbox
+ \csname \expandafter\eat@AmS\string#1box@AmS\endcsname=\hbox\bgroup#2}}
+
+\refdef@AmS\no{} \refdef@AmS\key{} \refdef@AmS\by{}
+\def\bysame{\egroup\gdef\isbysame@AmS{T}\bgroup}
+\refdef@AmS\paper\it
+\refdef@AmS\paperinfo{} \refdef@AmS\jour{} \refdef@AmS\vol\bf
+\refdef@AmS\issue{} \refdef@AmS\yr{}
+\def\toappear{\egroup\gdef\istoappear@AmS{T}\bgroup}
+\refdef@AmS\pages{}
+\def\page{\egroup\gdef\ispage@AmS{T}\setbox
+ \pagesbox@AmS=\hbox\bgroup}
+\refdef@AmS\book{}
+\def\inbook{\egroup\gdef\isinbook@AmS{T}\setbox
+ \bookbox@AmS=\hbox\bgroup}
+\refdef@AmS\bookinfo{} \refdef@AmS\publ{}
+\refdef@AmS\publaddr{}
+\refdef@AmS\finalinfo{}
+
+
+\def\setpunct@AmS{\def\prepunct@AmS{, }}
+\def\ppunbox@AmS#1{\prepunct@AmS\unhbox#1\unskip}
+
+\def\endref@AmS{\def\prepunct@AmS{}%
+\if T\refi@AmS
+ \if F\isno@AmS\hbox to 10pt{}\else
+ \hbox to 20pt{\hss\unhbox\nobox@AmS\unskip. }\fi
+ \if T\iskey@AmS \unhbox\keybox@AmS\unskip\ \fi
+ \if T\isby@AmS \hbox{\unhcopy\bybox@AmS\unskip}\setpunct@AmS
+ \setbox\bysamebox@AmS=\hbox{\unhcopy\bybox@AmS\unskip}\fi
+ \if T\isbysame@AmS
+ \hbox to \wd\bysamebox@AmS{\leaders\hrule\hfill}\setpunct@AmS\fi
+ \fi
+ \if T\ispaper@AmS\ppunbox@AmS\paperbox@AmS\setpunct@AmS\fi
+ \if T\ispaperinfo@AmS\ppunbox@AmS\paperinfobox@AmS\setpunct@AmS\fi
+ \if T\isjour@AmS\ppunbox@AmS\jourbox@AmS\setpunct@AmS
+ \if T\isvol@AmS \ \unhbox\volbox@AmS\unskip\setpunct@AmS\fi
+ \if T\isissue@AmS \ \unhbox\issuebox@AmS\unskip\setpunct@AmS\fi
+ \if T\isyr@AmS \ (\unhbox\yrbox@AmS\unskip)\setpunct@AmS\fi
+ \if T\istoappear@AmS \ (to appear)\setpunct@AmS\fi
+ \if T\ispages@AmS \ppunbox@AmS\pagesbox@AmS\setpunct@AmS\fi
+ \if T\ispage@AmS
+ \prepunct@AmS p.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi
+ \fi
+ \if T\isbook@AmS \prepunct@AmS
+ ``\unhbox\bookbox@AmS\unskip''\setpunct@AmS\fi
+ \if T\isinbook@AmS \prepunct@AmS
+ \unskip\ in ``\unhbox\bookbox@AmS\unskip''\setpunct@AmS
+ \gdef\isbook@AmS{T}\fi
+ \if T\isbookinfo@AmS \ppunbox@AmS\bookinfobox@AmS\setpunct@AmS\fi
+ \if T\ispubl@AmS \ppunbox@AmS\publbox@AmS\setpunct@AmS\fi
+ \if T\ispubladdr@AmS \ppunbox@AmS\publaddrbox@AmS\setpunct@AmS\fi
+ \if T\isbook@AmS
+ \if T\isyr@AmS \prepunct@AmS \unhbox\yrbox@AmS\unskip
+ \setpunct@AmS\fi
+ \if T\istoappear@AmS \ (to appear)\setpunct@AmS\fi
+ \if T\ispages@AmS
+ \prepunct@AmS pp.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi
+ \if T\ispage@AmS
+ \prepunct@AmS p.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi
+ \fi
+ \if T\isfinalinfo@AmS \period\unhbox\finalinfobox@AmS\else
+ \if T\refl@AmS .\else ; \fi\fi}
+
+\def\endref{\egroup\gdef\refl@AmS{T}\endref@AmS\par}
+
+
+
+
+% EXTRA FONTS NEEDED
+
+
+\font\eightrm=cmr8
+\font\sixrm=cmr7 %cmr6 % fonts not on Atari
+\font\eighti=cmmi10 %cmmi8 \skewchar\eighti='177
+\font\sixi=cmmi7 %cmmi6 \skewchar\sixi='177
+\font\eightsy=cmsy10 %cmsy8 \skewchar\eightsy='60
+\font\sixsy=cmsy7 %cmsy6 \skewchar\sixsy='60
+\font\eightbf=cmbx10 %cmbx8
+\font\sixbf=cmbx7 %cmbx6
+\font\eightsl=cmsl10 %cmsl8
+\font\eightit=cmsl10 %cmti8
+\font\tensmc=cmcsc10
+
+
+% TWO DIFFERENT POINT SIZES
+
+\def\tenpoint{\def\pointsize@AmS{t}\normalbaselineskip=12pt % NOTE 1
+ \abovedisplayskip 12pt plus 3pt minus 9pt
+ \belowdisplayskip 12pt plus 3pt minus 9pt
+ \abovedisplayshortskip 0pt plus 3pt
+ \belowdisplayshortskip 7pt plus 3pt minus 4pt
+ \def\rm{\fam0\tenrm}%
+ \def\it{\fam\itfam\tenit}%
+ \def\sl{\fam\slfam\tensl}%
+ \def\bf{\fam\bffam\tenbf}%
+ \def\smc{\tensmc}%
+ \def\mit{\fam 1}%
+ \def\cal{\fam 2}%
+ \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
+ \textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei
+ \textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
+ \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+ \textfont\itfam=\tenit
+ \textfont\slfam=\tensl
+ \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
+ \scriptscriptfont\bffam=\fivebf
+\normalbaselines\rm}
+
+\def\eightpoint{\def\pointsize@AmS{8}\normalbaselineskip=10pt
+ \abovedisplayskip 10pt plus 2.4pt minus 7.2pt
+ \belowdisplayskip 10pt plus 2.4pt minus 7.2pt
+ \abovedisplayshortskip 0pt plus 2.4pt
+ \belowdisplayshortskip 5.6pt plus 2.4pt minus 3.2pt
+ \def\rm{\fam0\eightrm}%
+ \def\it{\fam\itfam\eightit}%
+ \def\sl{\fam\slfam\eightsl}%
+ \def\bf{\fam\bffam\eightbf}%
+ \def\mit{\fam 1}%
+ \def\cal{\fam 2}%
+ \textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
+ \textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei
+ \textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
+ \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+ \textfont\itfam=\eightit
+ \textfont\slfam=\eightsl
+ \textfont\bffam=\eightbf \scriptfont\bffam=\sixbf
+ \scriptscriptfont\bffam=\fivebf
+\normalbaselines\rm}
+
+\catcode`\@=12