diff options
author | Karl Berry <karl@freefriends.org> | 2015-07-02 22:12:17 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-07-02 22:12:17 +0000 |
commit | 586aedcf63ecf6ea7da1c1529e5ea5ba8f5cb426 (patch) | |
tree | b679941add6df7f6b1ee8c135b24181f992dcb65 /Master/texmf-dist/source/latex/tudscr/tudscr-mathswap.dtx | |
parent | fecdcd43eaa7f73e830159293fe22a202803086b (diff) |
tudscr (2jul15)
git-svn-id: svn://tug.org/texlive/trunk@37736 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/tudscr/tudscr-mathswap.dtx')
-rw-r--r-- | Master/texmf-dist/source/latex/tudscr/tudscr-mathswap.dtx | 78 |
1 files changed, 39 insertions, 39 deletions
diff --git a/Master/texmf-dist/source/latex/tudscr/tudscr-mathswap.dtx b/Master/texmf-dist/source/latex/tudscr/tudscr-mathswap.dtx index 7dbe67b0b7e..49acdd42a61 100644 --- a/Master/texmf-dist/source/latex/tudscr/tudscr-mathswap.dtx +++ b/Master/texmf-dist/source/latex/tudscr/tudscr-mathswap.dtx @@ -51,9 +51,9 @@ %<*driver> \ifx\ProvidesFile\undefined\def\ProvidesFile#1[#2]{}\fi \ProvidesFile{tudscr-mathswap.dtx}[% - 2015/01/24 v2.03 TUD-KOMA-Script\space% + 2015/06/02 v2.04 TUD-KOMA-Script\space% %</driver> -%<package>\NeedsTeXFormat{LaTeX2e}[2011/06/27] +%<package>\NeedsTeXFormat{LaTeX2e} %<package>\ProvidesPackage{mathswap}[% %<*driver|package> %!TUDVersion @@ -82,7 +82,7 @@ % \selectlanguage{ngerman} % % \changes{v2.02}{2014/08/18}{\pkg{mathswap} Schalter zum Aktivieren und -% Deaktivieren der Funktionalität}%^^A +% Deaktivieren der Funktionalität}^^A % % \section{Aktive Trennzeichen im mathematischen Satz} % @@ -178,16 +178,18 @@ % \end{macro}^^A \ms@commachar % \end{macro}^^A \ms@comma % \begin{macro}{\mathswapon} -% \changes{v2.02}{2014/08/18}{neu}%^^A +% \changes{v2.02}{2014/08/18}{neu}^^A % \begin{macro}{\mathswapoff} -% \changes{v2.02}{2014/08/18}{neu}%^^A +% \changes{v2.02}{2014/08/18}{neu}^^A % \begin{macro}{\ms@commaswap} -% \changes{v2.02}{2014/08/18}{neu}%^^A +% \changes{v2.02}{2014/08/18}{neu}^^A % \begin{macro}{\ms@dotswap} -% \changes{v2.02}{2014/08/18}{neu}%^^A +% \changes{v2.02}{2014/08/18}{neu}^^A % Mit den Befehlen \cs{mathswapon} und \cs{mathswapoff} kann die Funktionalität % des Paketes innerhalb des Dokumentes aktiviert und deaktiviert werden. % \begin{macrocode} +\newcommand*\ms@commaswap{} +\newcommand*\ms@dotswap{} \newcommand*\mathswapon{% \def\ms@commaswap{\@commaswap}% \def\ms@dotswap{\@dotswap}% @@ -196,45 +198,18 @@ \def\ms@commaswap{\ms@commachar}% \def\ms@dotswap{\ms@dotchar}% } -\newcommand*\ms@commaswap{} -\newcommand*\ms@dotswap{} % \end{macrocode} % \end{macro}^^A \ms@dotswap % \end{macro}^^A \ms@commaswap % \end{macro}^^A \mathswapoff % \end{macro}^^A \mathswapon -% \begin{macro}{\ms@token} -% \begin{macro}{\ms@smartcomma} -% \begin{macro}{\ms@smartdot} -% Mit \cs{futurelet} wird dem Makro \cs{ms@token} das nachfolgende Zeichen von -% Komma bzw. Punkt zugewiesen. Anschließend wird mittels \cs{ms@smartcomma} bzw. -% \cs{ms@smartdot} geprüft, ob es sich beim Inhalt von \cs{ms@token} um eine -% Ziffer handelt. Dazu wird der Befehl \cs{ms@ifnum} verwendet. Sollte dies der -% Fall sein, so wird ein Komma innerhalb einer Zahl durch \cs{@commaswap} und -% ein Punkt entsprechend mit \cs{@dotswap} ersetzt. Sollte direkt nach dem -% Trennzeichen keine Ziffer folgen, wird für Punkt und Komma die originale -% Definition aus \cs{ms@commachar} bzw. \cs{ms@dotchar} verwendet. -% \begin{macrocode} -\newcommand*\ms@token{} -\begingroup% - \catcode`,=\active% - \gdef,{\futurelet\ms@token\ms@smartcomma}% - \catcode`.=\active% - \gdef.{\futurelet\ms@token\ms@smartdot}% -\endgroup% -\def\ms@smartcomma{\ms@ifnum{\ms@commaswap}{\ms@commachar}} -\def\ms@smartdot{\ms@ifnum{\ms@dotswap}{\ms@dotchar}} -% \end{macrocode} -% \end{macro}^^A \ms@smartdot -% \end{macro}^^A \ms@smartcomma -% \end{macro}^^A \ms@token % \begin{macro}{\ms@ifnum} % \begin{macro}{\ms@@ifnum} % Der Befehl \cs{ms@ifnum} reicht das erste Argument an \cs{ms@@ifnum} weiter, % falls der Inhalt von \cs{ms@token} zu einer Ziffer expandiert. Andernfalls % wird das zweite Argument ausgeführt. % \begin{macrocode} -\def\ms@ifnum#1#2{% +\newcommand*\ms@ifnum[2]{% \ifx\ms@token0\ms@@ifnum{#1}\else% \ifx\ms@token1\ms@@ifnum{#1}\else% \ifx\ms@token2\ms@@ifnum{#1}\else% @@ -253,16 +228,41 @@ % Komma auf die eines normalen Textzeichens gesetzt und anschließend die mit % \cs{commaswap} bzw. \cs{dotswap} angegebene Ersetzung ausgegeben. % \begin{macrocode} -\def\ms@@ifnum#1{% +\newcommand*\ms@@ifnum[1]{% \begingroup% - \mathcode\expandafter`,=\the\ms@comma% - \mathcode\expandafter`.=\the\ms@dot% - #1% + \mathcode\expandafter`,=\the\ms@comma% + \mathcode\expandafter`.=\the\ms@dot% + #1% \endgroup% } % \end{macrocode} % \end{macro}^^A \ms@@ifnum % \end{macro}^^A \ms@ifnum +% \begin{macro}{\ms@token} +% \begin{macro}{\ms@smartcomma} +% \begin{macro}{\ms@smartdot} +% Mit \cs{futurelet} wird dem Makro \cs{ms@token} das nachfolgende Zeichen von +% Komma bzw. Punkt zugewiesen. Anschließend wird mittels \cs{ms@smartcomma} bzw. +% \cs{ms@smartdot} geprüft, ob es sich beim Inhalt von \cs{ms@token} um eine +% Ziffer handelt. Dazu wird der Befehl \cs{ms@ifnum} verwendet. Sollte dies der +% Fall sein, so wird ein Komma innerhalb einer Zahl durch \cs{@commaswap} und +% ein Punkt entsprechend mit \cs{@dotswap} ersetzt. Sollte direkt nach dem +% Trennzeichen keine Ziffer folgen, wird für Punkt und Komma die originale +% Definition aus \cs{ms@commachar} bzw. \cs{ms@dotchar} verwendet. +% \begin{macrocode} +\newcommand*\ms@token{} +\begingroup% + \catcode`,=\active% + \gdef,{\futurelet\ms@token\ms@smartcomma}% + \catcode`.=\active% + \gdef.{\futurelet\ms@token\ms@smartdot}% +\endgroup% +\newcommand*\ms@smartcomma{\ms@ifnum{\ms@commaswap}{\ms@commachar}} +\newcommand*\ms@smartdot{\ms@ifnum{\ms@dotswap}{\ms@dotchar}} +% \end{macrocode} +% \end{macro}^^A \ms@smartdot +% \end{macro}^^A \ms@smartcomma +% \end{macro}^^A \ms@token % % \iffalse %</package> |