From 24645112fad7809b93791757deff2fc0dca7f880 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:54:20 +0000 Subject: dotseqn git-svn-id: svn://tug.org/texlive/trunk@833 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/dotseqn/dotseqn.sty | 77 +++++++++++++++++++++++++ 1 file changed, 77 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/dotseqn/dotseqn.sty (limited to 'Master/texmf-dist/tex/latex/dotseqn') 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'. -- cgit v1.2.3