%% %% This is file `mathswap.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% tudscr-mathswap.dtx (with options: `package') %% %% TUD-Script -- Corporate Design of Technische Universitaet Dresden %% %% 2021/07/15 v2.06n TUD-Script %% %% Copyright (C) Falk Hanisch , 2012-2021 %% %% This file was generated from file(s) of the TUD-Script bundle. %% ---------------------------------------------------------------------------- %% %% 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 %% any later version. 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 2008-05-04 or later. %% %% This work has the LPPL maintenance status "maintained". %% %% The current maintainer and author of this work is Falk Hanisch. %% %%% From File: tudscr-mathswap.dtx \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{mathswap}[% 2021/07/15 v2.06n TUD-Script package (swap mathematical separators)% ] \newcommand*\@commaswap{,} \newcommand*\commaswap[1]{\gdef\@commaswap{#1}\ignorespaces} \newcommand*\@dotswap{\,} \newcommand*\dotswap[1]{\gdef\@dotswap{#1}\ignorespaces} \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% \mathswapon% } \newcommand*\ms@commaswap{} \newcommand*\ms@dotswap{} \newcommand*\mathswapon{% \def\ms@commaswap{\@commaswap}% \def\ms@dotswap{\@dotswap}% } \newcommand*\mathswapoff{% \def\ms@commaswap{\ms@commachar}% \def\ms@dotswap{\ms@dotchar}% } \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% \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% } \newcommand*\ms@@ifnum[1]{% \begingroup% \mathcode\expandafter`,=\the\ms@comma% \mathcode\expandafter`.=\the\ms@dot% #1% \endgroup% } \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}} \endinput %% %% End of file `mathswap.sty'.