diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/oberdiek/mleftright.sty')
-rw-r--r-- | Master/texmf-dist/tex/generic/oberdiek/mleftright.sty | 274 |
1 files changed, 274 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/oberdiek/mleftright.sty b/Master/texmf-dist/tex/generic/oberdiek/mleftright.sty new file mode 100644 index 00000000000..12c538ad9d9 --- /dev/null +++ b/Master/texmf-dist/tex/generic/oberdiek/mleftright.sty @@ -0,0 +1,274 @@ +%% +%% This is file `mleftright.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% mleftright.dtx (with options: `package') +%% +%% This is a generated file. +%% +%% Copyright (C) 2010 by +%% Heiko Oberdiek <heiko.oberdiek at googlemail.com> +%% +%% This work may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either +%% version 1.3c of this license or (at your option) any later +%% version. This version of this license is in +%% http://www.latex-project.org/lppl/lppl-1-3c.txt +%% and 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". +%% +%% This Current Maintainer of this work is Heiko Oberdiek. +%% +%% The Base Interpreter refers to any `TeX-Format', +%% because some files are installed in TDS:tex/generic//. +%% +%% This work consists of the main source file mleftright.dtx +%% and the derived files +%% mleftright.sty, mleftright.pdf, mleftright.ins, mleftright.drv, +%% mleftright-test1.tex. +%% +\begingroup\catcode61\catcode48\catcode32=10\relax% + \catcode13=5 % ^^M + \endlinechar=13 % + \catcode35=6 % # + \catcode39=12 % ' + \catcode44=12 % , + \catcode45=12 % - + \catcode46=12 % . + \catcode58=12 % : + \catcode64=11 % @ + \catcode123=1 % { + \catcode125=2 % } + \expandafter\let\expandafter\x\csname ver@mleftright.sty\endcsname + \ifx\x\relax % plain-TeX, first loading + \else + \def\empty{}% + \ifx\x\empty % LaTeX, first loading, + % variable is initialized, but \ProvidesPackage not yet seen + \else + \expandafter\ifx\csname PackageInfo\endcsname\relax + \def\x#1#2{% + \immediate\write-1{Package #1 Info: #2.}% + }% + \else + \def\x#1#2{\PackageInfo{#1}{#2, stopped}}% + \fi + \x{mleftright}{The package is already loaded}% + \aftergroup\endinput + \fi + \fi +\endgroup% +\begingroup\catcode61\catcode48\catcode32=10\relax% + \catcode13=5 % ^^M + \endlinechar=13 % + \catcode35=6 % # + \catcode39=12 % ' + \catcode40=12 % ( + \catcode41=12 % ) + \catcode44=12 % , + \catcode45=12 % - + \catcode46=12 % . + \catcode47=12 % / + \catcode58=12 % : + \catcode64=11 % @ + \catcode91=12 % [ + \catcode93=12 % ] + \catcode123=1 % { + \catcode125=2 % } + \expandafter\ifx\csname ProvidesPackage\endcsname\relax + \def\x#1#2#3[#4]{\endgroup + \immediate\write-1{Package: #3 #4}% + \xdef#1{#4}% + }% + \else + \def\x#1#2[#3]{\endgroup + #2[{#3}]% + \ifx#1\@undefined + \xdef#1{#3}% + \fi + \ifx#1\relax + \xdef#1{#3}% + \fi + }% + \fi +\expandafter\x\csname ver@mleftright.sty\endcsname +\ProvidesPackage{mleftright}% + [2010/09/25 v1.0 Usual delimiter spacing with left and right (HO)]% +\begingroup\catcode61\catcode48\catcode32=10\relax% + \catcode13=5 % ^^M + \endlinechar=13 % + \catcode123=1 % { + \catcode125=2 % } + \catcode64=11 % @ + \def\x{\endgroup + \expandafter\edef\csname mleftright@AtEnd\endcsname{% + \endlinechar=\the\endlinechar\relax + \catcode13=\the\catcode13\relax + \catcode32=\the\catcode32\relax + \catcode35=\the\catcode35\relax + \catcode61=\the\catcode61\relax + \catcode64=\the\catcode64\relax + \catcode123=\the\catcode123\relax + \catcode125=\the\catcode125\relax + }% + }% +\x\catcode61\catcode48\catcode32=10\relax% +\catcode13=5 % ^^M +\endlinechar=13 % +\catcode35=6 % # +\catcode64=11 % @ +\catcode123=1 % { +\catcode125=2 % } +\def\TMP@EnsureCode#1#2{% + \edef\mleftright@AtEnd{% + \mleftright@AtEnd + \catcode#1=\the\catcode#1\relax + }% + \catcode#1=#2\relax +} +\TMP@EnsureCode{38}{4}% & +\TMP@EnsureCode{39}{12}% ' +\TMP@EnsureCode{40}{12}% ( +\TMP@EnsureCode{41}{12}% ) +\TMP@EnsureCode{42}{12}% * +\TMP@EnsureCode{43}{12}% + +\TMP@EnsureCode{44}{12}% , +\TMP@EnsureCode{45}{12}% - +\TMP@EnsureCode{46}{12}% . +\TMP@EnsureCode{47}{12}% / +\TMP@EnsureCode{60}{12}% < +\TMP@EnsureCode{91}{12}% [ +\TMP@EnsureCode{93}{12}% ] +\edef\mleftright@AtEnd{% + \mleftright@AtEnd + \escapechar\the\escapechar\relax + \noexpand\endinput +} +\escapechar=92 % +\begingroup\expandafter\expandafter\expandafter\endgroup +\expandafter\ifx\csname RequirePackage\endcsname\relax + \input infwarerr.sty\relax + \input ltxcmds.sty\relax +\else + \RequirePackage{infwarerr}[2010/04/08]% + \RequirePackage{ltxcmds}[2010/04/26]% +\fi +\let\mleftright@OrgLeft\left +\let\mleftright@OrgRight\right +\ltx@IfUndefined{protected}{% + \ltx@IfUndefined{DeclareRobustCommand}{% + \def\mleftright@Def{\def}% + }{% + \def\mleftright@Def{\DeclareRobustCommand*}% + }% +}{% + \def\mleftright@Def{\protected\def}% +} +\edef\mleftright@Def#1{% + \noexpand\ltx@IfUndefined{% + \noexpand\expandafter\noexpand\ltx@gobble\noexpand\string#1% + }{% + \expandafter\noexpand\mleftright@Def#1% + }{% + \noexpand\@PackageError{mleftright}{% + Command \noexpand\string#1 already defined% + }\noexpand\@ehd + \noexpand\ltx@gobble + }% +} +\ltx@IfUndefined{currentgrouplevel}{% + \catcode38=14 % & = comment +}{% + \catcode38=9 % & = ignore_ +} +& \def\mleftright@GroupLevel{-1}% +& \def\mleftright@WrongGroup#1(#2){% +& \ifnum\mleftright@GroupLevel<\ltx@zero +& \@PackageError{mleftright}{% +& Missing previous \string\mleft +& }\@ehc +& \else +& \@PackageError{mleftright}{% +& Unexpected group status for \string\mright% +& \ifnum\mleftright@GroupLevel=#1 % +& \else +& .\MessageBreak +& Group level is #1, % +& expected is \mleftright@GroupLevel +& \fi +& \ifnum16=#2 % +& \else +& .\MessageBreak +& Group type is #2 (% +& \ifcase#2 % +& bottom level% +& \expandafter\expandafter\expandafter\ltx@gobblefour +& \expandafter\ltx@gobbletwo +& \or simple% +& \or hbox% +& \or adjusted hbox% +& \or vbox% +& \or vtop% +& \or align% +& \or no align% +& \or output% +& \or math% +& \or disc% +& \or insert% +& \or vcenter% +& \or math choice% +& \or semi simple% +& \or math shift% +& \or math left% +& \else +& unknown% +& \fi +& \space group),\MessageBreak +& expected is 16 (math left group)% +& \fi +& }\@ehd +& \fi +& }% +\mleftright@Def\mleft{% + \mathopen{}\mathclose\bgroup +& \edef\mleftright@GroupLevel{\the\numexpr\the\currentgrouplevel+1}% + \mleftright@OrgLeft +} +\mleftright@Def\mright{% +& \ifnum\mleftright@GroupLevel=\currentgrouplevel +& \ifnum16=\currentgrouptype + \aftergroup\egroup +& \else +& \expandafter\mleftright@WrongGroup +& \the\expandafter\currentgrouplevel +& \expandafter(\the\currentgrouptype)% +& \fi +& \else +& \expandafter\mleftright@WrongGroup +& \the\expandafter\currentgrouplevel +& \expandafter(\the\currentgrouptype)% +& \fi + \mleftright@OrgRight +} +\mleftright@Def\mleftright{% + \let\left\mleft + \let\right\mright +} +\mleftright@Def\mleftrightrestore{% + \ifx\left\mleft + \let\left\mleftright@OrgLeft + \fi + \ifx\right\mright + \let\right\mleftright@OrgRight + \fi +} +\mleftright@AtEnd% +\endinput +%% +%% End of file `mleftright.sty'. |