dotseqn

git-svn-id: svn://tug.org/texlive/trunk@833 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 77 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/dotseqn/dotseqn.sty b/Master/texmf-dist/tex/latex/dotseqn/dotseqn.sty
new file mode 100644
index 00000000000..60303a42c42
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/dotseqn/dotseqn.sty
@@ -0,0 +1,77 @@
+%% 
+%% This is file `dotseqn.sty',
+%% generated with the docstrip utility.
+%% 
+%% The original source files were:
+%% 
+%% dotseqn.dtx  (with options: `package')
+%% 
+%% D O T S E Q N . S T Y is Copyright (c) 1995 by Donald Arseneau 
+%% 
+%% This file may be freely transmitted and reproduced, but it may not be 
+%% changed unless the name is changed also. This notice must remain intact. 
+%% 
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{dotseqn}
+  [1995/03/22  v1.1 \space Dots leading to equation numbers]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcommand\EqnDots{\leaders\hbox{\kern4\p@ .\kern4\p@}\hfill}
+\@ifundefined{mathindent}{\newdimen\mathindent \mathindent\leftmargini}{}
+\renewcommand{\[}{\relax \ifmmode\@badmath \else
+ \begin{trivlist}%
+  \@beginparpenalty\predisplaypenalty \@endparpenalty\postdisplaypenalty
+  \item[]\leavevmode \hbox to\linewidth\bgroup $\m@th\displaystyle %$
+  \hskip\mathindent\bgroup
+ \fi}
+\renewcommand{\]}{\relax\ifmmode \egroup $\hfil% $
+    \egroup \end{trivlist}%
+  \else \@badmath \fi}
+\renewenvironment{equation}%
+ {\@beginparpenalty\predisplaypenalty \@endparpenalty\postdisplaypenalty
+     \refstepcounter{equation}\trivlist \item[]\leavevmode
+       \hbox to\linewidth\bgroup $\m@th% $
+         \displaystyle \hskip\mathindent}%
+ {$\EqnDots % $   Replace `\hfil' with dotted leaders `\EqnDots'.
+     \displaywidth\linewidth\hbox{\@eqnnum}\egroup \endtrivlist}
+\renewenvironment{eqnarray}{%
+   \stepcounter{equation}%
+   \def\@currentlabel{\p@equation\theequation}%
+   \global\@eqnswtrue \m@th \global\@eqcnt\z@  \tabskip\mathindent
+   \let\\\@eqncr \setlength\abovedisplayskip\topsep
+   \ifvmode \addtolength\abovedisplayskip\partopsep \fi
+   \addtolength\abovedisplayskip\parskip
+   \setlength\belowdisplayskip\abovedisplayskip
+   \setlength\belowdisplayshortskip\abovedisplayskip
+   \setlength\abovedisplayshortskip\abovedisplayskip
+   $$\everycr{}\halign to\linewidth% $$
+   \bgroup
+     \hskip\@centering
+     $\displaystyle\tabskip\z@skip{##}$\@eqnsel&%
+     \global\@eqcnt\@ne \hfil${\DEQ@acs##\DEQ@acs}$\hfil&%
+     \global\@eqcnt\tw@ $\displaystyle{##}$\hskip\@centering\cr%
+ }% end of "\begin" part
+ {\@@eqncr
+   \noalign{% vertical skip up to overlay phantom line
+      \penalty\@M \vskip-\prevdepth
+      \edef\@tempa{\omit\span\omit\span\omit   % span three columns
+        \vrule\@depth\the\prevdepth \@width\z@ % strut of proper depth
+        \kern-\mathindent \kern\linewidth}%    % full line width
+      \nointerlineskip \expandafter % use saved |\@tempa| outside group
+   }\@tempa\cr
+   \egroup
+   \global\advance\c@equation\m@ne$$% $$
+   \global\@ignoretrue
+ }
+\def\@@eqncr{\let\reserved@a\@empty
+   \ifcase\@eqcnt \def\reserved@a{& &}\or \def\reserved@a{&}\fi
+   \reserved@a
+   \if@eqnsw \egroup $\EqnDots \@eqnnum $\bgroup \stepcounter{equation}%
+   \fi \global\@eqnswtrue\global\@eqcnt\z@\cr}
+\def\DEQ@acs{\hskip\tw@\arraycolsep}
+\DeclareOption{leftjust}{\let\@eqnsel\hfil}
+\DeclareOption{nocolsep}{\let\DEQ@acs\null}
+\ProcessOptions
+\endinput
+%% 
+%% End of file `dotseqn.sty'.