diff options
author | Karl Berry <karl@freefriends.org> | 2014-04-29 22:48:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-04-29 22:48:53 +0000 |
commit | 0f5d618956b51e00ae2e87d20aec39f7bbd6dd42 (patch) | |
tree | d370e6238a20c8f93f908a1c2987704f4563fec0 /Master/texmf-dist/tex/latex/tudscr/mathswap.sty | |
parent | 6fd46163a1d6ba51c6998a45f736049e468e0805 (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.sty | 108 |
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'. |