summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tudscr/mathswap.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-29 22:48:53 +0000
committerKarl Berry <karl@freefriends.org>2014-04-29 22:48:53 +0000
commit0f5d618956b51e00ae2e87d20aec39f7bbd6dd42 (patch)
treed370e6238a20c8f93f908a1c2987704f4563fec0 /Master/texmf-dist/tex/latex/tudscr/mathswap.sty
parent6fd46163a1d6ba51c6998a45f736049e468e0805 (diff)
tudscr (29apr14)
git-svn-id: svn://tug.org/texlive/trunk@33755 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/tudscr/mathswap.sty')
-rw-r--r--Master/texmf-dist/tex/latex/tudscr/mathswap.sty108
1 files changed, 108 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/tudscr/mathswap.sty b/Master/texmf-dist/tex/latex/tudscr/mathswap.sty
new file mode 100644
index 00000000000..9f49b9fbf37
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tudscr/mathswap.sty
@@ -0,0 +1,108 @@
+%%
+%% This is file `mathswap.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% tudscr-version.dtx (with options: `package')
+%% tudscr-mathswap.dtx (with options: `package,header')
+%% tudscr-mathswap.dtx (with options: `package,body')
+%%
+%% ======================================================================
+%%
+%% Das Corporate Design der TU Dresden auf Basis der KOMA-Script-Klassen
+%%
+%% ======================================================================
+%% This work may be distributed and/or modified under the conditions of
+%% the LaTeX Project Public License, version 1.3c of the license.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3c or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later and of this work.
+%% This work has the LPPL maintenance status "author-maintained".
+%% The current maintainer and author of this work is Falk Hanisch.
+%% ----------------------------------------------------------------------
+%% Dieses Werk darf nach den Bedingungen der LaTeX Project Public Lizenz,
+%% Version 1.3c, verteilt und/oder veraendert werden.
+%% Die neuste Version dieser Lizenz ist
+%% http://www.latex-project.org/lppl.txt
+%% und Version 1.3c ist Teil aller Verteilungen von LaTeX
+%% Version 2005/12/01 oder spaeter und dieses Werks.
+%% Dieses Werk hat den LPPL-Verwaltungs-Status "author-maintained"
+%% (allein durch den Autor verwaltet).
+%% Der aktuelle Verwalter und Autor dieses Werkes ist Falk Hanisch.
+%% ======================================================================
+%%
+%%% From File: tudscr-version.dtx
+\begingroup%
+ \makeatletter%
+ \ifx\TUDVersion\undefined%
+ \newcommand*\@TUDVersion[1]{\gdef\TUDVersion{#1}}%
+ \else%
+ \newcommand*\@TUDVersion[1]{%
+ \def\@tempa{#1}%
+ \ifx\TUDVersion\@tempa\else%
+ \@latex@warning@no@line{%
+ \noexpand\TUDVersion\space is `\TUDVersion',\MessageBreak%
+ but `#1' was expected!\MessageBreak%
+ You should not use classes, packages or files from\MessageBreak%
+ different TUD-KOMA-Script-Bundle versions%
+ }%
+ \fi%
+ }%
+ \fi%
+ \@TUDVersion{2014/04/24 v2.01 TUD-KOMA-Script}%
+\endgroup%
+%%% From File: tudscr-mathswap.dtx
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{mathswap}[%
+ \TUDVersion\space package (swap mathematical separators)%
+]
+%%% From File: tudscr-mathswap.dtx
+\newcommand*\@commaswap{,}
+\newcommand*\commaswap[1]{\gdef\@commaswap{#1}}
+\newcommand*\@dotswap{\,}
+\newcommand*\dotswap[1]{\gdef\@dotswap{#1}}
+\newcommand*\ms@commachar{}
+\newcommand*\ms@dotchar{}
+\AtBeginDocument{%
+ \DeclareMathSymbol{\ms@comma}{\mathord}{letters}{"3B}%
+ \mathchardef\ms@commachar\mathcode\expandafter`,%
+ \mathcode\expandafter`,="8000%
+ \DeclareMathSymbol{\ms@dot}{\mathord}{letters}{"3A}%
+ \mathchardef\ms@dotchar\mathcode\expandafter`.%
+ \mathcode\expandafter`.="8000%
+}
+\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{\@commaswap}{\ms@commachar}}
+\def\ms@smartdot{\ms@ifnum{\@dotswap}{\ms@dotchar}}
+\def\ms@ifnum#1#2{%
+ \ifx\ms@token0\ms@@ifnum{#1}\else%
+ \ifx\ms@token1\ms@@ifnum{#1}\else%
+ \ifx\ms@token2\ms@@ifnum{#1}\else%
+ \ifx\ms@token3\ms@@ifnum{#1}\else%
+ \ifx\ms@token4\ms@@ifnum{#1}\else%
+ \ifx\ms@token5\ms@@ifnum{#1}\else%
+ \ifx\ms@token6\ms@@ifnum{#1}\else%
+ \ifx\ms@token7\ms@@ifnum{#1}\else%
+ \ifx\ms@token8\ms@@ifnum{#1}\else%
+ \ifx\ms@token9\ms@@ifnum{#1}\else%
+ #2%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+}
+\def\ms@@ifnum#1{%
+ \begingroup%
+ \mathcode\expandafter`,=\the\ms@comma%
+ \mathcode\expandafter`.=\the\ms@dot%
+ #1%
+ \endgroup%
+}
+\endinput
+%%
+%% End of file `mathswap.sty'.