summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-01-06 23:22:46 +0000
committerKarl Berry <karl@freefriends.org>2015-01-06 23:22:46 +0000
commitd9c7d6c59e9daf56e5fda7f969e0d6e90146d8d3 (patch)
tree1c7385a2d5d9a7361f28143ed167416874d0f043 /Master/texmf-dist/tex
parentdef4d95ae5f2fcdf35c809ed0abe570d03e3c639 (diff)
calculation (6jan15)
git-svn-id: svn://tug.org/texlive/trunk@35973 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/latex/calculation/calculation.sty321
1 files changed, 321 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/calculation/calculation.sty b/Master/texmf-dist/tex/latex/calculation/calculation.sty
new file mode 100644
index 00000000000..8653e0b3433
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/calculation/calculation.sty
@@ -0,0 +1,321 @@
+%%
+%% This is file `calculation.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% calculation.dtx (with options: `exit')
+%% Calculations, in the style of Feijen-Dijkstra
+%% Copyright 2014, Maarten Fokkinga (m.m.fokkinga@gmail.com)
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%%
+%% This work has the LPPL maintenance status `maintained'.
+%%
+%% The Current Maintainer of this work is Maarten Fokkinga.
+%%
+%% This work consists of the files calculation.dtx and calculation.ins
+%% and the derived file calculation.sty.
+
+%% ==================== Usage ====================================
+%%
+%% \begin{calculation}[SYMBOL]
+%% EXPRESSION <-- may contain \doNumber and \comment{TEXT}
+%% \step*[SYMBOL]{HINT}
+%% EXPRESSION <-- may contain \doNumber and \comment{TEXT}
+%% \step*[SYMBOL]{HINT}
+%% EXPRESSION <-- may contain \doNumber and \comment{TEXT}
+%% ...
+%% \end{calculation}
+%% Each asterisk "*" and each part "[...]" is optional.
+%%
+%% -------------- DOCUMENT STYLE PARAMETERS ------------------------
+%% options:
+%% fleqn, leqno, block
+%% commands:
+%% \newcommand{\stepsymbol}{=}
+%% \newcommand{\Hblockopen}{|}
+%% \newcommand{\Hblockclose}{.}
+%% \newcommand{\Hlineopen}{\lbrace}
+%% \newcommand{\Hlineclose}{\rbrace}
+%% \newcommand{\Hindent}{1em}
+%% \newcommand{\Hsep}{1ex}
+%% \newcommand{\calculcolsep}{\arraycolsep}
+%% \newcommand{\Hposv}{t}
+%% % vertical position of the step symbol in front of a block hint
+%% These default values may be redefined by "\renewcommand".
+%%
+\iffalse ============================== code =======================\fi
+
+\def\fileversion{1.00}
+\def\filedate{5 Jan 2015}
+\def\docdate{5 Jan 2015}
+
+\ProvidesPackage{calculation}[2014/12/05 Format reasoned calculations]
+
+
+
+\DeclareOption{fleqn}{\calc@fleqn}
+\DeclareOption{leqno}{\calc@leqno}
+\DeclareOption{block}{\calc@blocktrue}
+
+
+\newcommand{\calc@fill}{\relax}
+\newcommand{\calc@eqnoLfil}{\relax}
+\newcommand{\calc@eqnoRfil}{\relax}
+
+
+\newcommand{\calc@leqno}
+ {\def\calc@eqnoLfil{}\def\calc@eqnoRfil{\hfil}}
+
+
+\newcommand{\calc@reqno}
+ {\def\calc@eqnoRfil{}\def\calc@eqnoLfil{\hfil}}
+
+
+\newcommand{\calc@ceqn}{\def\calc@fill{fil}}
+
+
+\newcommand{\calc@fleqn}
+ {\@ifundefined{mathindent}
+ {\calc@indent\leftmargini}{\calc@indent\mathindent}
+ \def\calc@fill{fill}}
+
+
+\calc@ceqn
+\calc@reqno
+\newif\ifcalc@block \calc@blockfalse
+\newdimen\calc@indent\calc@indent\z@skip
+
+
+\ProcessOptions
+
+
+\RequirePackage{delarray}
+
+
+\newcommand\@ifmtarg[3]
+ {{\def\myempty{}\def\myarg{#1}\ifx\myempty\myarg{#2}\else{#3}\fi}}
+ %% usage: \@ifmtarg {arg} {then} {else}
+
+
+\newcommand{\stepsymbol}{=}
+\newcommand{\Hblockopen}{|}
+\newcommand{\Hblockclose}{.}
+\newcommand{\Hlineopen}{\lbrace}
+\newcommand{\Hlineclose}{\rbrace}
+\newcommand{\Hindent}{1em}
+\newcommand{\Hsep}{1ex}
+\newcommand{\Hposv}{t}
+\newcommand{\calculcolsep}{\arraycolsep}
+
+
+\newcommand{\Hsepskip}{\hbox to \Hsep {}}
+\newcommand{\HlineOPEN}
+ {\ifcalc@block\else\makebox[0pt][r]{\m@th$\Hlineopen$\Hsepskip}\fi
+ \ignorespaces}
+\newcommand{\HlineCLOSE}
+ {\ifcalc@block\else\makebox[0pt][l]{\m@th\Hsepskip$\Hlineclose$}\fi}
+
+
+\newcommand{\HblockOPEN}{\ifcalc@block\Hblockopen\else.\fi}
+\newcommand{\HblockCLOSE}{\ifcalc@block\Hblockclose\else.\fi}
+
+\newcommand{\calc@origmath}{\relax}
+\newcommand{\calc@stepsymbol}{\relax}
+\newlength\calc@math % to store the value of \mathsurround
+\newif\ifcalc@emptyH % for temporary local use only
+\newif\ifcalc@numberedstep % true if currently in \step*
+\newif\ifcalc@eqnoswitch % true if an eqno will be produced
+\newcommand{\calc@emptyHskip}{-0.5\baselineskip}% for empty hints
+\calc@eqnoswitchfalse
+\newcommand{\calc@doNumber}
+ {\ifcalc@eqnoswitch \else
+ \global\calc@eqnoswitchtrue
+ \stepcounter{equation}
+ \gdef\@currentlabel{\p@equation\theequation}
+ \fi}
+
+\iffalse ================= calculation environment ===================\fi
+
+\newenvironment{calculation}[1][\stepsymbol]
+ {\setlength\calc@math\mathsurround
+ \def\calc@origmath{\mathsurround\calc@math}%
+ \abovedisplayskip\topsep
+ \ifvmode\advance\abovedisplayskip\partopsep\fi
+ \belowdisplayskip\abovedisplayskip
+ \belowdisplayshortskip\abovedisplayskip
+ \abovedisplayshortskip\abovedisplayskip
+ \def\calc@stepsymbol{#1}%
+ \tabskip\calc@indent plus 1fil
+ \let\\=\calc@cr
+ \def\step{\calc@step}% Make \step available inside calculations
+ \def\subcalculation{\calc@subcalculation}% similarly subcalculation
+ \def\endsubcalculation{\endcalc@subcalculation}%
+ $$
+ \halign to \displaywidth
+ \bgroup
+ \tabskip\z@ \hfil\m@th$ ## $\hskip\calculcolsep
+ & \m@th$ ## $\hfil\tabskip 0pt plus 1\calc@fill
+ & \hfil\llap{##}\tabskip\z@
+ \cr
+ \calc@beginEXPR
+ }
+ {\calc@endEXPR
+ \egroup $$ \global\@ignoretrue\ignorespaces}
+
+
+\newcommand\calc@cr{
+ \calc@endEXPR
+ \noalign{\nopagebreak\vskip\jot}
+ \calc@beginEXPR}
+
+\iffalse ================= step command ===================\fi
+
+\newcommand{\calc@step}
+ {\@ifstar{\global\calc@numberedsteptrue\calc@@step}
+ {\global\calc@numberedstepfalse\calc@@step}}
+
+\newcommand{\calc@@step}[1][\calc@stepsymbol]{\calc@@@step{#1}}
+
+
+\newcommand{\calc@@@step}[2]
+ { \@ifmtarg{#2}{\global\calc@emptyHtrue}{\global\calc@emptyHfalse}
+ \calc@endEXPR
+ \ifcalc@emptyH \noalign{\vskip \calc@emptyHskip}
+ \else \noalign{\nopagebreak\vskip\jot}
+ \fi
+ \ifcalc@numberedstep
+ \refstepcounter{equation}
+ \gdef\@currentlabel{\p@equation\theequation}
+ \gdef\calc@stepno{\theequation}
+ \fi
+ #1 &
+ \ifcalc@emptyH
+ \else
+ \hskip\Hindent
+ \begin{tabular}[\Hposv]
+ \HblockOPEN{>{\calc@origmath\Hsepskip}l<{\Hsepskip}}\HblockCLOSE
+ \HlineOPEN #2\HlineCLOSE
+ \end{tabular}
+ \fi
+ &
+ \ifcalc@numberedstep \calc@print@theequation \fi
+ \cr
+ \ifcalc@emptyH \noalign{\vskip \calc@emptyHskip} \fi
+ \noalign{\vskip\jot}
+ \calc@beginEXPR
+ }
+
+\iffalse ====================== Auxiliary commands ===================\fi
+
+\newcommand{\calc@beginEXPR}
+ {&
+ \def\doNumber{\calc@doNumber}
+ \def\comment{\gdef\calc@comment}
+ \gdef\calc@comment{}
+ }
+
+
+\newcommand{\calc@endEXPR}
+ { & \calc@@eqno\calc@@comment \cr }
+
+
+\newcommand{\calc@@comment}
+ {\llap{\hbox to\linewidth
+ {\calc@eqnoRfil \normalfont\normalcolor\calc@comment
+ \calc@eqnoLfil}}}
+\newcommand{\calc@@eqno}
+ {\ifcalc@eqnoswitch
+ \calc@print@theequation
+ \global\calc@eqnoswitchfalse
+ \fi}
+\newcommand{\calc@print@theequation}
+ {\llap{\hbox to\displaywidth
+ {\calc@eqnoLfil \m@th\normalfont\normalcolor (\theequation)%
+ \calc@eqnoRfil}}}
+
+\iffalse ===================== subcalculation ===================== \fi
+
+\newif\ifsubcalc@emptyH
+\newcommand{\subcalc@stepsymbol}{\relax}
+
+
+\newenvironment{calc@subcalculation}[1][\stepsymbol]{%
+ \begin{minipage}[c]{0pt}
+ \abovedisplayskip 0pt
+ \belowdisplayskip \abovedisplayskip
+ \belowdisplayshortskip\belowdisplayskip
+ \abovedisplayshortskip\abovedisplayskip
+ \def\subcalc@stepsymbol{#1}%
+ \@ifundefined{mathindent}{\calc@indent\leftmargini}{}%
+ \divide\calc@indent by 2
+ \tabskip\calc@indent plus 1fil
+ \let\\=\subcalc@cr
+ \def\step{\subcalc@step}% Make \step available
+ \def\comment
+ {\@latex@error{No \string\comment\space in subcalculations}}%
+ $$
+ \m@th
+ \halign
+ \bgroup
+ \tabskip\z@ \hfil$ ## $\hskip\calculcolsep
+ &
+ $ ## $\hfil\tabskip 0pt plus 1\calc@fill
+ \cr
+ &
+ \global\@ignoretrue
+ }
+ { \raisebox{0pt}[0pt][1.5ex]{}
+ \cr \egroup $$\par\end{minipage}
+ \ignorespaces}
+
+\newcommand\subcalc@cr
+ {\cr
+ \noalign{\nopagebreak\vskip\jot}
+ &
+ \global\@ignoretrue\ignorespaces
+ }
+
+
+\newcommand{\subcalc@step}
+ {\@ifstar{\subcalc@@stepSTAR}{\subcalc@@step}}
+
+\newcommand{\subcalc@@stepSTAR}[1]
+ {\@latex@error
+ {No \string\step* in subcalculations; use \string\step.}}
+
+\newcommand{\subcalc@@step}[1][\subcalc@stepsymbol]
+ {\subcalc@@@step{#1}}
+
+\newcommand{\subcalc@@@step}[2]
+ {\@ifmtarg{#2}
+ {\global\subcalc@emptyHtrue}{\global\subcalc@emptyHfalse}
+ \cr
+ \ifsubcalc@emptyH
+ \noalign{\vskip \calc@emptyHskip}
+ \else
+ \noalign{\nopagebreak\vskip\jot}
+ \fi
+ #1 &
+ \ifsubcalc@emptyH \else
+ \hskip\Hindent
+ \hbox to 0pt {%
+ \begin{tabular}[\Hposv]
+ \HblockOPEN{>{\calc@origmath\Hsepskip}l<{\Hsepskip}}\HblockCLOSE
+ \HlineOPEN #2\HlineCLOSE
+ \end{tabular}}
+ \fi
+ \cr
+ \ifsubcalc@emptyH \noalign{\vskip \calc@emptyHskip} \fi
+ & \global\@ignoretrue
+ }
+\endinput
+%%
+%% End of file `calculation.sty'.