summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/ionumbers/ionumbers.dtx
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/ionumbers/ionumbers.dtx
Initial commit
Diffstat (limited to 'macros/latex/contrib/ionumbers/ionumbers.dtx')
-rw-r--r--macros/latex/contrib/ionumbers/ionumbers.dtx1609
1 files changed, 1609 insertions, 0 deletions
diff --git a/macros/latex/contrib/ionumbers/ionumbers.dtx b/macros/latex/contrib/ionumbers/ionumbers.dtx
new file mode 100644
index 0000000000..485d5b4fa9
--- /dev/null
+++ b/macros/latex/contrib/ionumbers/ionumbers.dtx
@@ -0,0 +1,1609 @@
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \iffalse meta-comment
+%
+% DocStrip file for ionumbers package
+%
+% Copyright 2007-2009,2011,2012,2014
+% Christian Schneider <software(at)chschneider(dot)eu>
+%
+% idea and parts of this package based on: ziffer.sty v2.1
+% Copyright Martin Vaeth <vaeth@mathematik.uni-wuerzburg.de>
+%
+% ion@addto@macro: identical to l@addto@macro from koma-script
+% bundle v2.9t
+% Copyright 1994-2004 Markus Kohm and Frank Neukam
+%
+% Thanks to Martin Vaeth and Markus Kohm for permitting to use their
+% code in this package. Please do not bother Martin, Markus, or Frank
+% with questions or bugs concering this package!
+%
+% This file is part of ionumbers.
+%
+% ionumbers is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License version 3 as
+% published by the Free Software Foundation, not any later version.
+%
+% ionumbers is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with ionumbers. If not, see <http://www.gnu.org/licenses/>.
+%
+% WARNING: THIS IS ALPHA SOFTWARE AND MAY CONTAIN SERIOUS BUGS!
+%
+% \fi
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \iffalse
+%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+%<package>\ProvidesPackage{ionumbers}
+%<package> [2014/04/06 v0.3.3 restyle numbers in math mode]
+%<*driver>
+\documentclass[a4paper]{ltxdoc}
+\usepackage{ionumbers}
+\usepackage{hyperref}
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+%
+% modified description environment
+\newcommand{\listmark}{$\bullet$}
+\newcommand{\listlengths}{%
+ \setlength{\parsep}{0pt}%
+ \setlength{\itemsep}{0pt}%
+ \setlength{\leftmargin}{10.5em}%
+ \setlength{\rightmargin}{0pt}%
+ \setlength{\labelsep}{1em}%
+ \setlength{\labelwidth}{9.5em}}
+\newenvironment{mydescription}{%
+ \begin{list}{\listmark}{\listlengths}%
+}{%
+ \end{list}%
+}
+%
+\begin{document}
+ \DocInput{ionumbers.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \changes{v0.2.0-alpha}{2008/10/27}{initial .dtx version}
+% \changes{v0.2.1-alpha}{2008/11/02}{replaced website by e-mail address in all
+% fields containing contact information}
+% \changes{v0.2.2-alpha}{2008/12/21}{fixed problem with single digit numbers
+% without \{\}-grouping; conflict with \textsf{amsmath}/\textsf{amsopn}
+% documented and handled with warning messages; thanks to Robert N\"{u}rnberg
+% for reporting these two problems}
+% \changes{v0.2.3-alpha}{2008/12/21}{saved one \texttt{\textbackslash if} and
+% made sign/digit macros a bit clearer}
+% \changes{v0.2.4-alpha}{2009/07/18}{fixed bug with curly braces in
+% \texttt{\textbackslash ion@problem@package} macro; thanks to Lars for
+% reporting this problem}
+% \changes{v0.3.0-alpha}{2011/06/09}{added options for variable grouping
+% lengths; extended \LaTeX{} test file}
+% \changes{v0.3.1-alpha}{2011/06/15}{fix in Makefile of package}
+% \changes{v0.3.2-alpha}{2012/08/20}{added examples of usage}
+% \changes{v0.3.3}{2014/04/06}{fixed problem when changing the font,
+% e.\,g., when loading the \textsf{MnSymbol} package; the original character
+% definitions are not hard-coded anymore, but copied
+% from the definitions at the beginning of the document; thanks to Michael
+% Sebastian Hitziger for his bug report}
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \CheckSum{0}
+%
+% \CharacterTable
+% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+% Digits \0\1\2\3\4\5\6\7\8\9
+% Exclamation \! Double quote \" Hash (number) \#
+% Dollar \$ Percent \% Ampersand \&
+% Acute accent \' Left paren \( Right paren \)
+% Asterisk \* Plus \+ Comma \,
+% Minus \- Point \. Solidus \/
+% Colon \: Semicolon \; Less than \<
+% Equals \= Greater than \> Question mark \?
+% Commercial at \@ Left bracket \[ Backslash \\
+% Right bracket \] Circumflex \^ Underscore \_
+% Grave accent \` Left brace \{ Vertical bar \|
+% Right brace \} Tilde \~}
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \GetFileInfo{ionumbers.sty}
+%
+% \DoNotIndex{\#,\$,\%,\&,\@,\\,\{,\},\^,\_,\~,\ }
+% \DoNotIndex{\@ne}
+% \DoNotIndex{\advance,\begingroup,\catcode,\closein}
+% \DoNotIndex{\closeout,\day,\def,\edef,\else,\empty,\endgroup}
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \title{The \textsf{ionumbers} package\thanks{This document corresponds
+% to \textsf{ionumbers}~\fileversion, dated~\filedate. Copyright
+% 2007--2009,2011,2012,2014 Christian Schneider
+% \texttt{<software(at)chschneider(dot)eu>}, \url{http://chschneider.eu}.}}
+% \author{Christian Schneider\\ \texttt{<software(at)chschneider(dot)eu>}}
+%
+% \maketitle
+%
+% \begin{center}
+% \large\textbf{\textsf{Warning: Use with caution and on your own risk!
+% Check output!}}
+% \end{center}
+%
+% \tableofcontents
+% \clearpage
+%
+% \begin{abstract}
+% \textsf{ionumbers} stands for `input/output numbers'.
+%
+% This package restyles numbers in math mode. If a number in the input file
+% is written, e.g., as |$3,231.44$| as commonly used in English texts, this
+% package is able to restyle it to be output as `$3\,231{,}44$' as commonly
+% used in German texts (and vice versa). This may be very useful, if you have
+% a large table and want to include it in texts with different output
+% conventions without the need of changing the table.
+%
+% Furthermore this package can automatically group digits left to the decimal
+% separator (\emph{thousands}) and right to the decimal separator
+% (\emph{thousandths}) without the need of specifing commas (English) or
+% points (German) as separators. E.g., the input |$1234.567890$| can be
+% output as `$1\,234.\,567\,890$'. By default, thousands/thousandths are
+% grouped in triplets, but the grouping length is configurable, which is
+% useful for numerical data.
+%
+% Finally, an |e| starts the exponent of the number. For example, |$21e6$|
+% may be output as `$26\times10\,^{6}$'.
+% \end{abstract}
+%
+% \section{Details of number handling}
+%
+% \subsection{General rules}
+%
+% Every input \emph{in math mode} consisting of the following characters is
+% treated by this package: |.,+-0123456789|. These characters get macro
+% definitions. A number is any combination of these characters without
+% anything---not even white spaces---in between them. There are two
+% exceptions/special cases:
+%
+% \begin{enumerate}
+% \item The separator characters |.| and |,| are not treated as part of the
+% number at its end. This avoids problems with comma-separated lists
+% (see below).
+% \item The sign characters |+| and |-| will only be considered as part of
+% the number, if they appear at the begining of a number.
+% \end{enumerate}
+%
+% The lower case letter |e| plays a special role. An |e| immediatly following a
+% number (as defined above) can be configured as begining of the exponential
+% part. The letter |e| will be eaten from the input in this case and
+% substituted by some configurable output. The next number following this |e|
+% in the same group (even with other characters inbetween the |e| and the
+% number) will be treated as exponential part and grouped with curly braces
+% |{}|.
+%
+% It is a good practice to always add a space before/after each number such that
+% \textsf{ionumbers} knows the beginning/end of a number and does not
+% misinterpret other input as part of it.
+% Below, you will find a couple of examples that might lead to surprising
+% output, if this rule is not followed.
+%
+% \subsection{Caveats}
+%
+% \emph{Comma-separated lists} of numbers must be input with a space after
+% each comma to prevent |,| to be treated as part of the number. An example is
+% the list |1, 2, 3, \ldots|, where the commas are not part of in the numbers.
+% Note, however, that the commas are treated as part of the numbers in the first
+% two appearances in |1,2,3,\ldots|, as the commas are immediately followed
+% by a digit. Depending on the configuration, this may lead to strange spaces
+% between the numbers, disappearing commas etc.
+%
+% If you use \emph{indexes consisting of four or more digits} together
+% with automatic grouping of thousands, the grouping will also apply to the
+% indexes. So |a_{1234}| might be output as $a_{1,234}$. The simplest way to
+% prevent undesired automatic grouping is to insert a space after each digit,
+% e.\,g., as in |a_{1 2 3 4}|.
+%
+% Please be aware that the first decimal separator of a number marks the
+% begining of the thousandths part of a number; every part of a number
+% appearing left to the first decimal separator is the thousands part. That is
+% why, the input |$1.234.567$| with (only) the package option
+% |autothousandths=true| (|.| is the decimal separator; options will be
+% explained later) will lead to `$1.234.\,567$' in the output. Note the small
+% space after the second point as a result of |234.567| being treated as
+% thousandths part. The thousandths separator---by default a small space---will
+% be output between the third and fourth digit of the thousandths part; the
+% additional point from the input will not be omitted. The input is
+% \emph{syntactically incorrect} (there must not be two decimal separators in
+% one number!) and the output is \emph{not} a bug.
+%
+% The number following an |e| which has started the exponential part is treated
+% as exponential part, \emph{even if there is arbitrary input inbetween}.
+% Hence, the input |$1e \Pi 2| with package option |exponent=timestento| (will
+% be explained later) leads to a superscript |2| in the output. In some cases,
+% e.\,g., |$1e \sqrt 2$| or |$1e^2$| with
+% |e| configured as begining of the exponential part, even an error occurs.
+% Again, the input is \emph{syntactically incorrect} and you might want to
+% prevent |e| from being treated as start of the exponential part by adding
+% a space: |$1 e \sqrt 2$| or |$1 e^2$|.
+%
+% In some rare cases, e.\,g., |$\sqrt ,$| or |$a^.$|, the usage of point and
+% comma without curly braces |{}| around them will lead to an error. In these
+% cases please add curly braces |{}| around the point or comma. (The
+% \textsf{ziffer} package has the same problem, by the way.)
+%
+% \section{Conflicts with other packages}
+%
+% This package potentially conflicts with any other package that defines a
+% macro for any of the following characters: |.,+-0123456789|
+%
+% There are tests for these cases and warning or error messages may be output.
+% Please load \textsf{ionumbers} as \emph{last package} to be able to detect as
+% many conflicts as possible. As there is no way to detect conflicts in any
+% case, please report any package known to conflict with \textsf{ionumbers} to
+% the author.
+%
+% Packages known to conflict with \textsf{ionumbers} are:
+% \begin{mydescription}
+% \item[\textsf{ziffer}] this package can be replaced by \textsf{ionumbers}
+% except for \textsf{ziffer}'s special handling of |--| enabled by
+% |\ZifferStrichAn|
+% \item[\textsf{dcolumn}] workaround: disable \textsf{ionumbers} for tabulars
+% (e.\,g., put them inside |\ionumbersoff|\marg{\ldots})
+% \item[\textsf{amsmath}/\textsf{amsopn}] load \textsf{ionumbers} as last
+% package and disable \textsf{ionumbers} for |\operatorname|\marg{\ldots}
+% (e.\,g., put it inside\\
+% |\ionumbersoff|\marg{\ldots})
+% \end{mydescription}
+%
+% \section{Usage}
+%
+% Package options are used to globally configure a default behaviour of
+% \textsf{ionumbers} for the whole document. These options usually consist
+% of a \meta{key}|=|\meta{value} pair. Local changes from this global
+% configuration for arbitrary parts of the document can be applied with special
+% commands.
+%
+% \subsection{Package options concerning the separators in the input}
+% \label{sec:in}
+%
+% The following options configure the meaning of separators in the \LaTeX{}
+% input file:
+% \begin{mydescription}
+% \item[\texttt{comma}=\meta{value}] comma `|,|' will be treated as
+% \meta{value}
+% \item[\texttt{point}=\meta{value}] point `|.|' will be treated as
+% \meta{value}
+% \end{mydescription}
+%
+% The following \meta{value}s can be chosen for both of them:
+% \begin{mydescription}
+% \item[\texttt{ignore}] the separator will be ignored (no output)
+% \item[\texttt{decimal}] decimal separator (separating the thousands from
+% the thousandths part of a number)
+% \item[\texttt{thousands}] thousands separator (used for grouping of
+% thousands part)
+% \item[\texttt{default}] default behaviour of \textsf{ionumbers}
+% (|decimal| for |point|; |thousands| for |comma|)
+% \end{mydescription}
+%
+% The separator for exponents is always the lowercase letter |e|. A
+% thousandths separator does not exist in input files; such a separator will
+% only be output, if automatic grouping of the thousandths part is enabled (see
+% below).
+%
+% \subsection{Package options concerning the separators in the output}
+% \label{sec:out}
+%
+% The previously described options assign a \emph{meaning} to separators in
+% the input file. The \emph{output} of the \emph{meanings} is configured via
+% the following options:
+% \begin{mydescription}
+% \item[\texttt{thousands}=\meta{value}] thousands separator will be output as
+% \meta{value}
+% \item[\texttt{decimal}=\meta{value}] decimal separator will be output as
+% \meta{value}
+% \item[\texttt{thousandths}=\meta{value}] thousandths separator will be
+% \meta{value}
+% \item[\texttt{exponent}=\meta{value}] exponent separator will be output as
+% \meta{value}
+% \end{mydescription}
+%
+% The list of valid \meta{value}s for |thousands|, |decimal|, and |thousandths|
+% is:
+% \begin{mydescription}
+% \item[\texttt{none}] will be ignored (no output)
+% \item[\texttt{point}] normal point; this is the default point without
+% \textsf{ionumbers}
+% \item[\texttt{comma}] normal comma
+% \item[\texttt{punctpoint}] punctuation point (point followed by small space)
+% \item[\texttt{punctcomma}] punctuation comma (point followed by small
+% space); this is the default comma without \textsf{ionumbers}
+% \item[\texttt{apostrophe}] apostrophe (actually |$^\prime$|; \emph{not} for
+% |decimal|)
+% \item[\texttt{phantom}] space with width of a point (|$\phantom{.}$|;
+% \emph{not} for |decimal|)
+% \item[\texttt{space}] small space (|$\,$|; \emph{not} for |decimal|)
+% \item[\texttt{default}] default behaviour of \textsf{ionumbers}
+% (|punctcomma| for |thousands|; |point| for |decimal|; |space| for
+% |thousandths|)
+% \end{mydescription}
+%
+% If a number is handled as exponent, it will be put into curly braces |{}|
+% for correct output of, e.\,g., signs without spacing around them (mathord).
+% In the following list of valid \meta{value}s for |exponent| a number
+% immediatly following an |e| will be handled as exponent, unless specified
+% otherwise:
+% \begin{mydescription}
+% \item[\texttt{none}] will be ignored (not output; following number
+% \emph{not} handled as exponent)
+% \item[\texttt{original}] a simple character `e' (following number
+% \emph{not} handled as exponent)
+% \item[\texttt{ite/itE}] italic lower/upper case letter `e'
+% \item[\texttt{rme/rmE}] roman lower/upper case letter `e'
+% \item[\texttt{timestento}] |$\times10\,$| with following number output as
+% superscript
+% \item[\texttt{cdottento}] |$\cdot10\,$| with following number output as
+% superscript
+% \item[\texttt{wedge}] |$^\wedge$|
+% \item[\texttt{default}] default behaviour of \textsf{ionumbers} (|original|)
+% \end{mydescription}
+%
+% \subsection{Package options concerning automatic grouping}
+% \label{sec:auto}
+%
+% Automatic grouping is a feature that automatically adds the thousands and
+% thousandths separator, respectively. The separator will by default be added
+% after each triplet of digits, but this may be changed (see below). Automatic
+% grouping can be enable or disabled with the
+% following options:
+% \begin{mydescription}
+% \item[\texttt{autothousands}=\meta{value}] automatic grouping of thousands
+% (digits left to decimal separator)
+% \item[\texttt{autothousandths}=\meta{value}] automatic grouping of
+% thousandths (digits right to decimal separator)
+% \end{mydescription}
+%
+% The grouping length for the thousands and thousandths, respectively, can be
+% changed be the following options:
+% \begin{mydescription}
+% \item[\texttt{grplenthousands}=\meta{number}] group lengths for thousands
+% (\meta{number} must be smaller than |10|; defaults to |3|)
+% \item[\texttt{grplenthousandths}=\meta{number}] group lengths for thousandths
+% (\meta{number} must be smaller than |10|; defaults to |3|)
+% \end{mydescription}
+%
+% The available \meta{value}s are |true| and |false| (default).
+%
+% Notes on automatic grouping:
+% \begin{enumerate}
+% \item Grouping of thousandths requires |autothousandths=true| in any case,
+% as there is no thousandths separator for explicitly specifing separations
+% in the input.
+% \item Automatic grouping of thousands will be skipped in a number, if it
+% contains a thousands separator in the input.
+% \end{enumerate}
+%
+% \subsection{Local style changes}
+%
+% \DescribeMacro{\ionumbersstyle}
+% The command |\ionumbersstyle|\marg{option list} changes the global style
+% definitions as specified as package options for the rest of the group.
+% The \meta{option list} may contain any of the package options described in
+% sections~\ref{sec:in}--\ref{sec:auto}. An additional \meta{value} for all
+% \meta{key}s is available inside |\ionumbersstyle| to switch back to the
+% configuration specified as package options: |reset|.
+%
+% \DescribeMacro{\ionumbersresetstyle}
+% The command |\ionumbersresetstyle| resets all \meta{value}s to the
+% configuration specified as package options. Actually, it is only a shorthand
+% for\\
+% |\ionumbersstyle{comma=reset,point=reset,decimal=reset,...}|.
+%
+% \subsection{User-defined values for output separators}
+% \label{sec:defs}
+%
+% A user may specify further output separators. Any user-defined \meta{value}s
+% for |thousands|, |decimal|, |thousandths|, and |exponent| can be used like
+% the built-in options in section~\ref{sec:out}.
+%
+% \DescribeMacro{\newionumbersthousands}
+% \DescribeMacro{\newionumbersdecimal}
+% \DescribeMacro{\newionumbersthousandths}
+% \DescribeMacro{\newionumbersexponent}
+% The command |\newionumbersthousands|\marg{value}\marg{definition} has two
+% mandatory arguments. The first one is the name of the newly defined
+% \meta{value} for the |thousands| \meta{key} and the second one its
+% definition. The commands |\newionumbersdecimal|, |\newionumbersthousandths|,
+% and |\newionumbersexponent| work the same way for the |decimal|,
+% |thousandths|, and |exponent| \meta{key}, respectively. There is a starred
+% version of |\newionumbersexponent| (called |\newionumbersexponent*|) that
+% typesets the following number as superscript.
+%
+% \DescribeMacro{\renewionumbersthousands}
+% \DescribeMacro{\renewionumbersdecimal}
+% \DescribeMacro{\renewionumbersthousandths}
+% \DescribeMacro{\renewionumbersexponent}
+% To redefine an existing \meta{key} definition there are |\renew...| versions
+% of the previously described commands.
+%
+% Notes on definitions:
+% \begin{enumerate}
+% \item All \meta{definition}s are set inside |\ionumbersoff| (see
+% section~\ref{sec:feat}). This means that numbers appearing in the
+% \meta{definition}s are not treated by this package.
+% \item The value |curr| has an internal meaning and should \emph{not} be
+% defined/redefined by the user.
+% \end{enumerate}
+%
+% \subsection{Enabling and disabling features}
+% \label{sec:feat}
+%
+% \DescribeMacro{\ionumbers}
+% The command |\ionumbers| makes comma, point, signs, and digits active in math
+% mode. This is equivalent to enabling the features of this package. This
+% command applies to the end of the current group.
+%
+% \DescribeMacro{\endionumbers}
+% To disable the features by making comma, point, signs, and digits inactive
+% again the command |\endionumbers| can be used. This command applies to the
+% end of the current group.
+%
+% \DescribeMacro{\ionumbersoff}
+% The command |\ionumbersoff|\marg{stuff} disables the features only for
+% \meta{stuff}.
+%
+% \section{License}
+%
+% \textsf{ionumbers} is free software: you can redistribute it and/or
+% modify it under the terms of the GNU General Public License version~3 as
+% published by the Free Software Foundation, not any later version.
+%
+% \textsf{ionumbers} is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
+% Public License for more details.
+%
+% You should have received a copy of the GNU General Public License along with
+% ionumbers. If not, see \texttt{<http://www.gnu.org/licenses/>}.
+%
+% \section{Acknowledgements}
+%
+% The idea and parts of this package are based on \textsf{ziffer.sty}~v2.1 by
+% Martin V\"ath \texttt{<vaeth@mathematik.uni-wuerzburg.de>}.
+%
+% Furthermore the |\l@addto@macro| (with changed name) from
+% \textsf{koma-script bundle}~v2.9t by Markus Kohm and Frank Neukam is
+% used in this package.
+%
+% Thanks to Martin V\"ath and Markus Kohm for permitting to use their code in
+% this package.
+%
+% \section{Bugs, problems, and suggestions}
+%
+% Please report bugs and problems or send suggestions for this package to
+% Christian Schneider. Check for updates before reporting bugs at the website
+% mentioned above. Do \emph{not} bother Martin V\"ath, Markus Kohm, or Frank
+% Neukam with bugs, problems or suggestions concerning this package!
+%
+% \StopEventually{\PrintChanges\PrintIndex}
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \section{Implementation}
+%
+% The implementation is briefly described in this section. First of all, we
+% need the \textsf{keyval} package for \meta{key}|=|\meta{value} options:
+% \begin{macrocode}
+\RequirePackage{keyval}
+% \end{macrocode}
+%
+% ---------------------------------------------------------------------
+%
+% \subsection{Default/global configuration}
+%
+% In principle the definitions of all available \meta{key'}|=|\meta{value'}
+% pairs is contained in the internal macros |\ion@|\meta{key'}|@|\meta{value'}.
+% Setting a package option \meta{key}|=|\meta{value} defines
+% |\ion@|\meta{key}|@reset| to be |\ion@|\meta{key}|@|\meta{value}.
+%
+% The following |if|s will be required to remember, if automatic grouping is
+% enabled. The counts will be required for the grouping lengths.
+% \begin{macrocode}
+\newif\ifion@autothousands
+\newif\ifion@autothousandths
+\newcount\ion@grplenthousands
+\newcount\ion@grplenthousandths
+% \end{macrocode}
+%
+% The next macro will be used for syntax checks of numerical arguments.
+% \begin{macrocode}
+\newcommand*{\ion@grplencheck}[1]{%
+ \ifnum#1>9%
+ \PackageError{ionumbers}%
+ {Group length argument too large (#1).\MessageBreak%
+ Grouping lengths must be smaller than 10.}{}%
+ \fi%
+}
+% \end{macrocode}
+%
+% These shorthands are used to define the \meta{key}s for package options
+% and set their \meta{value}s using \textsf{keyval}, respectively.
+% \begin{macrocode}
+\newcommand*\ion@defpackopts{\define@key{ion@packopts}}
+\newcommand*\ion@setpackopts{\setkeys{ion@packopts}}
+% \end{macrocode}
+%
+% Next the \meta{key}s are defined.
+% \begin{macrocode}
+\ion@defpackopts{comma}{%
+ \def\ion@comma@reset{\csname ion@comma@#1\endcsname}%
+ \def\ion@aftercomma@reset{\csname ion@aftercomma@#1\endcsname}}
+\ion@defpackopts{point}{%
+ \def\ion@point@reset{\csname ion@point@#1\endcsname}%
+ \def\ion@afterpoint@reset{\csname ion@afterpoint@#1\endcsname}}
+\ion@defpackopts{decimal}{\def\ion@decimal@reset{%
+ \csname ion@decimal@#1\endcsname}}
+\ion@defpackopts{thousands}{\def\ion@thousands@reset{%
+ \csname ion@thousands@#1\endcsname}}
+\ion@defpackopts{thousandths}{\def\ion@thousandths@reset{%
+ \csname ion@thousandths@#1\endcsname}}
+\ion@defpackopts{exponent}{\def\ion@exponent@reset{%
+ \csname ion@exponent@#1\endcsname}}
+\ion@defpackopts{autothousands}[true]{\def\ion@autothousandsreset{%
+ \csname ion@autothousands#1\endcsname}\ion@autothousandsreset}
+\ion@defpackopts{autothousandths}[true]{\def\ion@autothousandthsreset{%
+ \csname ion@autothousandths#1\endcsname}\ion@autothousandthsreset}
+\ion@defpackopts{grplenthousands}{\ion@grplencheck{#1}%
+ \def\ion@grplenthousandsreset{\ion@grplenthousands=#1}%
+ \ion@grplenthousandsreset}
+\ion@defpackopts{grplenthousandths}{\ion@grplencheck{#1}%
+ \def\ion@grplenthousandthsreset{\ion@grplenthousandths=#1}%
+ \ion@grplenthousandthsreset}
+% \end{macrocode}
+%
+% Finally, the default \meta{value}s are set and---if specified by the user as
+% package option---overwritten with the user's configuration.
+% \begin{macrocode}
+\ion@setpackopts{comma=default,point=default,thousands=default,%
+ decimal=default,thousandths=default,exponent=default,autothousands=false,%
+ autothousandths=false,grplenthousands=3,grplenthousandths=3}
+\DeclareOption*{\expandafter\ion@setpackopts\expandafter{\CurrentOption}}
+\ProcessOptions\relax
+% \end{macrocode}
+%
+% ---------------------------------------------------------------------
+%
+% \subsection{Local style changes}
+%
+% The currently active configuration of a \meta{key} is stored in the macro
+% |\ion@|\meta{key}|@curr|. The |\ion@|\meta{key}|@curr| macros for all
+% \meta{key}s are defined using the mechanism for local configuration changes.
+%
+% The local options are defined and set---analogous to the package option
+% case---with two shorthands using \textsf{keyval}. The latter is
+% publically available to the user.
+% \begin{macrocode}
+\newcommand*\ion@deflocopts{\define@key{ion@locopts}}
+% \end{macrocode}
+% \begin{macro}{\ionumberstyle}
+% \begin{macrocode}
+\newcommand*\ionumbersstyle[1]{\setkeys{ion@locopts}{#1}}
+% \end{macrocode}
+% \end{macro}
+%
+% Now the \meta{key}s for the local options are defined (just as in the case of
+% the package options):
+% \begin{macrocode}
+\ion@deflocopts{comma}{%
+ \def\ion@comma@curr{\csname ion@comma@#1\endcsname}%
+ \def\ion@aftercomma@curr{\csname ion@aftercomma@#1\endcsname}}
+\ion@deflocopts{point}{%
+ \def\ion@point@curr{\csname ion@point@#1\endcsname}%
+ \def\ion@afterpoint@curr{\csname ion@afterpoint@#1\endcsname}}
+\ion@deflocopts{decimal}{\def\ion@decimal@curr{%
+ \csname ion@decimal@#1\endcsname}}
+\ion@deflocopts{thousands}{\def\ion@thousands@curr{%
+ \csname ion@thousands@#1\endcsname}}
+\ion@deflocopts{thousandths}{\def\ion@thousandths@curr{%
+ \csname ion@thousandths@#1\endcsname}}
+\ion@deflocopts{exponent}{\def\ion@exponent@curr{%
+ \csname ion@exponent@#1\endcsname}}
+\ion@deflocopts{autothousands}[true]{\csname ion@autothousands#1\endcsname}
+\ion@deflocopts{autothousandths}[true]{\csname ion@autothousandths#1\endcsname}
+\ion@deflocopts{grplenthousands}{%
+ \def\@tempa{#1}%
+ \def\@tempb{reset}%
+ \ifx\@tempa\@tempb%
+ \ion@grplenthousandsreset%
+ \else%
+ \ion@grplencheck{#1}%
+ \ion@grplenthousands=#1%
+ \fi%
+}
+\ion@deflocopts{grplenthousandths}{%
+ \def\@tempa{#1}%
+ \def\@tempb{reset}%
+ \ifx\@tempa\@tempb%
+ \ion@grplenthousandthsreset%
+ \else%
+ \ion@grplencheck{#1}%
+ \ion@grplenthousandths=#1%
+ \fi%
+}
+% \end{macrocode}
+%
+% Finally, the command for resetting all \meta{key}s is defined.
+% \begin{macro}{\ionumbersresetstyle}
+% \begin{macrocode}
+\newcommand*\ionumbersresetstyle{%
+ \ionumbersstyle{comma=reset,point=reset,thousands=reset,%
+ decimal=reset,thousandths=reset,exponent=reset,autothousands=reset,%
+ autothousandths=reset,grplenthousands=reset,grplenthousandths=reset}}
+% \end{macrocode}
+% \end{macro}
+% This command is issued at the end of the package to make the configuration
+% of the package options active (and have no undefined |\ion@|\meta{key}|@curr|
+% macros).
+% \begin{macrocode}
+\AtEndOfPackage{\ionumbersresetstyle}
+% \end{macrocode}
+%
+% ---------------------------------------------------------------------
+%
+% \subsection{User-defined values for output separators}
+%
+% The commands for user-defined \meta{value}s for output separators just
+% (re)define the internal macro |\ion@|\meta{key}|@|\meta{value} storing
+% the definition for the \meta{key}|=|\meta{value} pair.
+%
+% \begin{macro}{\newionumbersthousands}
+% \begin{macrocode}
+\newcommand*\newionumbersthousands[2]{\expandafter\newcommand%
+ \expandafter*\csname ion@thousands@#1\endcsname{\ionumbersoff{#2}}}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\newionumbersdecimal}
+% \begin{macrocode}
+\newcommand*\newionumbersdecimal[2]{\expandafter\newcommand%
+ \expandafter*\csname ion@decimal@#1\endcsname{\ionumbersoff{#2}}}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\newionumbersthousandths}
+% \begin{macrocode}
+\newcommand*\newionumbersthousandths[2]{\expandafter\newcommand%
+ \expandafter*\csname ion@thousandths@#1\endcsname{\ionumbersoff{#2}}}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\newionumbersexponent}
+% \begin{macrocode}
+\newcommand*\newionumbersexponent{%
+ \@ifstar{\newionumbersexponent@@}{\newionumbersexponent@}}
+\newcommand*\newionumbersexponent@[2]{\expandafter\newcommand%
+ \expandafter*\csname ion@exponent@#1\endcsname{\ionumbersoff{#2}}}
+\newcommand*\newionumbersexponent@@[2]{\expandafter\newcommand%
+ \expandafter*\csname ion@exponent@#1\endcsname{\ionumbersoff{#2}%
+ \ion@exponent@superscripttrue}}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\renewionumbersthousands}
+% \begin{macrocode}
+\newcommand*\renewionumbersthousands[2]{\expandafter\renewcommand%
+ \expandafter*\csname ion@thousands@#1\endcsname{\ionumbersoff{#2}}}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\renewionumbersdecimal}
+% \begin{macrocode}
+\newcommand*\renewionumbersdecimal[2]{\expandafter\renewcommand%
+ \expandafter*\csname ion@decimal@#1\endcsname{\ionumbersoff{#2}}}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\renewionumbersthousandths}
+% \begin{macrocode}
+\newcommand*\renewionumbersthousandths[2]{\expandafter\renewcommand%
+ \expandafter*\csname ion@thousandths@#1\endcsname{\ionumbersoff{#2}}}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\renewionumbersexponent}
+% \begin{macrocode}
+\newcommand*\renewionumbersexponent{%
+ \@ifstar{\renewionumbersexponent@@}{\renewionumbersexponent@}}
+\newcommand*\renewionumbersexponent@[2]{\expandafter\renewcommand%
+ \expandafter*\csname ion@exponent@#1\endcsname{\ionumbersoff{#2}%
+ \ion@currnum@exponent}}
+\newcommand*\renewionumbersexponent@@[2]{\expandafter\renewcommand%
+ \expandafter*\csname ion@exponent@#1\endcsname{\ionumbersoff{#2}%
+ \ion@currnum@exponent\ion@exponent@superscripttrue}}
+% \end{macrocode}
+% \end{macro}
+%
+% ---------------------------------------------------------------------
+%
+% \subsection{Internal macros holding definitions for \meta{key}=\meta{value}
+% pairs}
+%
+% First of all, macros with the original character definitions are defined.
+% \begin{macrocode}
+\AtBeginDocument{
+ \mathchardef\ion@point@original=\the\mathcode`.
+ \mathchardef\ion@comma@original=\the\mathcode`,
+ \mathchardef\ion@plus@original=\the\mathcode`+
+ \mathchardef\ion@minus@original=\the\mathcode`-
+ \mathchardef\ion@zero@original=\the\mathcode`0
+ \mathchardef\ion@one@original=\the\mathcode`1
+ \mathchardef\ion@two@original=\the\mathcode`2
+ \mathchardef\ion@three@original=\the\mathcode`3
+ \mathchardef\ion@four@original=\the\mathcode`4
+ \mathchardef\ion@five@original=\the\mathcode`5
+ \mathchardef\ion@six@original=\the\mathcode`6
+ \mathchardef\ion@seven@original=\the\mathcode`7
+ \mathchardef\ion@eight@original=\the\mathcode`8
+ \mathchardef\ion@nine@original=\the\mathcode`9
+ \mathchardef\ion@e@original=\the\mathcode`e
+ \mathchardef\ion@E@original=\the\mathcode`E
+}
+% \end{macrocode}
+%
+% Here the |\ion@|\meta{key}|@|\meta{value} macros are defined, begining with
+% the definitions for the comma as input separator.
+% \begin{macrocode}
+\def\ion@comma@ignore{}
+\def\ion@comma@decimal{\ion@decimal@curr}
+\def\ion@comma@thousands{\ion@thousands@curr}
+\def\ion@comma@default{\ion@comma@thousands}
+% \end{macrocode}
+% The macros |\ion@comma@|\meta{value} contain the output for a comma appearing
+% in the input. Actually, a second set of |\ion@|aftercomma|@|\meta{value}
+% macros is required containing commands to be issued whenever a comma appears.
+% If comma is the decimal separator, the appearance of comma in the input will
+% mean that input of the thousands part is complete and the thousandths
+% thousandths part starts (|\ion@beforedecimalfalse| must be issued). If comma
+% is the thousands separator, the automatic grouping of thousands will be
+% switched of for that number (|\ion@noexplicitthousandsfalse| must be issued).
+% \begin{macrocode}
+\def\ion@aftercomma@ignore{}
+\def\ion@aftercomma@decimal{\ion@beforedecimalfalse}
+\def\ion@aftercomma@thousands{\ion@noexplicitthousandsfalse}
+\def\ion@aftercomma@default{\ion@aftercomma@thousands}
+% \end{macrocode}
+%
+% An analogous set of macros is defined for the point as input separator.
+% \begin{macrocode}
+\def\ion@point@ignore{}
+\def\ion@point@decimal{\ion@decimal@curr}
+\def\ion@point@thousands{\ion@thousands@curr}
+\def\ion@point@default{\ion@point@decimal}
+% \end{macrocode}
+% For the same reasons as mentioned before a set of
+% |\ion@|afterpoint|@|\meta{value} macros is required.
+% \begin{macrocode}
+\def\ion@afterpoint@ignore{}
+\def\ion@afterpoint@decimal{\ion@beforedecimalfalse}
+\def\ion@afterpoint@thousands{\ion@noexplicitthousandsfalse}
+\def\ion@afterpoint@default{\ion@afterpoint@decimal}
+% \end{macrocode}
+%
+% Next the definitions for the decimal output separator, \ldots
+% \begin{macrocode}
+\def\ion@decimal@point{\mathord{\ion@point@original}}
+\def\ion@decimal@comma{\mathord{\ion@comma@original}}
+\def\ion@decimal@punctpoint{\mathpunct{\ion@decimal@point}}
+\def\ion@decimal@punctcomma{\mathpunct{\ion@decimal@comma}}
+\def\ion@decimal@default{\ion@decimal@point}
+% \end{macrocode}
+%
+% \ldots{} the thousands output separator, \ldots
+% \begin{macrocode}
+\def\ion@thousands@none{}
+\def\ion@thousands@point{\mathord{\ion@point@original}}
+\def\ion@thousands@comma{\mathord{\ion@comma@original}}
+\def\ion@thousands@punctpoint{\mathpunct{\ion@decimal@point}}
+\def\ion@thousands@punctcomma{\mathpunct{\ion@decimal@comma}}
+\def\ion@thousands@apostrophe{^\prime}
+\def\ion@thousands@phantom{\phantom{\ion@point@original}}
+\def\ion@thousands@space{\,}
+\def\ion@thousands@default{\ion@thousands@punctcomma}
+% \end{macrocode}
+%
+% \ldots{} the thousandths output separator, \ldots
+% \begin{macrocode}
+\def\ion@thousandths@none{}
+\def\ion@thousandths@point{\mathord{\ion@point@original}}
+\def\ion@thousandths@comma{\mathord{\ion@comma@original}}
+\def\ion@thousandths@punctpoint{\mathpunct{\ion@decimal@point}}
+\def\ion@thousandths@punctcomma{\mathpunct{\ion@decimal@comma}}
+\def\ion@thousandths@apostrophe{^\prime}
+\def\ion@thousandths@phantom{\phantom{\ion@point@original}}
+\def\ion@thousandths@space{\,}
+\def\ion@thousandths@default{\ion@thousandths@space}
+% \end{macrocode}
+%
+% \ldots{} and the exponent output separator are given.
+% \begin{macrocode}
+\def\ion@exponent@none{}
+\def\ion@exponent@original{\ion@e@original}
+\def\ion@exponent@ite{\mathit{\ion@e@original}\ion@currnum@exponenttrue}
+\def\ion@exponent@itE{\mathit{\ion@E@original}\ion@currnum@exponenttrue}
+\def\ion@exponent@rme{\mathrm{\ion@e@original}\ion@currnum@exponenttrue}
+\def\ion@exponent@rmE{\mathrm{\ion@E@original}\ion@currnum@exponenttrue}
+\def\ion@exponent@timestento{\times10\,\ion@currnum@exponenttrue%
+ \ion@exponent@superscripttrue}
+\def\ion@exponent@cdottento{\cdot10\,\ion@currnum@exponenttrue%
+ \ion@exponent@superscripttrue}
+\def\ion@exponent@wedge{^\wedge\ion@currnum@exponenttrue}
+\def\ion@exponent@default{\ion@exponent@original}
+% \end{macrocode}
+%
+% ---------------------------------------------------------------------
+%
+% \subsection{Enabling and disabling features}
+%
+% The following helper macros make different subsets of |.,+-0123456789|
+% active.
+% \begin{macrocode}
+\def\ion@separators@active{\catcode`\,=\active\catcode`\.=\active\relax}
+\def\ion@signs@active{\catcode`\+=\active\catcode`\-=\active\relax}
+\def\ion@digits@active{\catcode`\,=\active\catcode`\.=\active%
+ \catcode`\0=\active\catcode`\1=\active\catcode`\2=\active%
+ \catcode`\3=\active\catcode`\4=\active\catcode`\5=\active%
+ \catcode`\6=\active\catcode`\7=\active\catcode`\8=\active%
+ \catcode`\9=\active\relax}
+% \end{macrocode}
+%
+% An analogous set of macros makes subsets of these characters active/inactive
+% in math mode.
+% \begin{macrocode}
+\def\ion@separators@math@active{\mathcode`,="8000\mathcode`.="8000\relax}
+\def\ion@signs@math@active{\mathcode`+="8000\mathcode`-="8000\relax}
+\def\ion@digits@math@active{\mathcode`0="8000\mathcode`1="8000\mathcode`2="8000%
+ \mathcode`3="8000\mathcode`4="8000\mathcode`5="8000\mathcode`6="8000%
+ \mathcode`7="8000\mathcode`8="8000\mathcode`9="8000\relax}
+\def\ion@separators@math@inactive{%
+ \mathcode`,=\the\ion@comma@original%
+ \mathcode`.=\the\ion@point@original%
+ \relax}
+\def\ion@signs@math@inactive{%
+ \mathcode`+=\the\ion@plus@original%
+ \mathcode`-=\the\ion@minus@original%
+ \relax}
+\def\ion@digits@math@inactive{%
+ \mathcode`0=\the\ion@zero@original%
+ \mathcode`1=\the\ion@one@original%
+ \mathcode`2=\the\ion@two@original%
+ \mathcode`3=\the\ion@three@original%
+ \mathcode`4=\the\ion@four@original%
+ \mathcode`5=\the\ion@five@original%
+ \mathcode`6=\the\ion@six@original%
+ \mathcode`7=\the\ion@seven@original%
+ \mathcode`8=\the\ion@eight@original%
+ \mathcode`9=\the\ion@nine@original%
+ \relax}
+% \end{macrocode}
+%
+% Next the user interface for making |.,+-0123456789| active/inactive follows.
+% \begin{macro}{\ionumbers}
+% \begin{macrocode}
+\def\ionumbers{\ion@separators@math@active\ion@signs@math@active%
+ \ion@digits@math@active}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\endionumbers}
+% \begin{macrocode}
+\def\endionumbers{\ion@separators@math@inactive\ion@signs@math@inactive%
+ \ion@digits@math@inactive}
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\ionumbersoff}
+% \begin{macrocode}
+\newcommand\ionumbersoff[1]{\begingroup\endionumbers#1\ionumbers\endgroup}
+% \end{macrocode}
+% \end{macro}
+%
+% Of course, at the begining of the document the charactars shall be active
+% by default.
+% \begin{macrocode}
+\AtBeginDocument{\ionumbers}
+% \end{macrocode}
+%
+% ---------------------------------------------------------------------
+%
+% \subsection{Definitions of active characters}
+%
+% The macro definitions for the characters |.,+-0123456789| are hold in the
+% following macros. Number processing works by looking at the next character
+% and performing one or more from the following actions:
+% \begin{itemize}
+% \item the currently configured output for the character will be added to
+% the end of |\ion@currnum| by |\ion@currnum@append|;
+% |\ion@currnum| stores the currently processed number
+% \item only for comma/point: the corresponding |after...| macro will be
+% issued
+% \item the currently processed number will be output via
+% |\ion@currnum@output|
+% \item the |e| will be eaten and replaced by its configured output
+% \end{itemize}
+% The conditions in the macro definitions should be self-explanatory for each
+% character. The extra |\ion@startnumber| is required to avoid problems with
+% input like |$a_0$| or |$\sqrt 2$|, where curly braces around |0| and |2| have
+% been omitted.
+% \begin{macrocode}
+\def\ion@comma{%
+ \ion@ifnextdigit{%
+ \ion@currnum@append*{\ion@comma@curr}\ion@aftercomma@curr%
+ }{%
+ \ion@ifnextseparator{%
+ \ion@currnum@append*{\ion@comma@curr}\ion@aftercomma@curr%
+ \@warning{Too many separators}%
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@append*{\ion@comma@curr}\ion@aftercomma@curr%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output\ion@comma@original%
+ }%
+ }%
+ }%
+}
+\def\ion@point{%
+ \ion@ifnextdigit{%
+ \ion@currnum@append*{\ion@point@curr}\ion@afterpoint@curr%
+ }{%
+ \ion@ifnextseparator{%
+ \ion@currnum@append*{\ion@point@curr}\ion@afterpoint@curr%
+ \@warning{Too many separators}%
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@append*{\ion@point@curr}\ion@afterpoint@curr%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output\ion@point@original%
+ }%
+ }%
+ }%
+}
+\def\ion@plus{%
+ \ion@iffirstchar{%
+ \ion@plus@original%
+ }{%
+ \ion@currnum@append*{\ion@plus@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextsign{%
+ \@warning{Too many signs}%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@minus{%
+ \ion@iffirstchar{%
+ \ion@minus@original%
+ }{%
+ \ion@currnum@append*{\ion@minus@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextsign{%
+ \@warning{Too many signs}%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@zero{%
+ \ion@iffirstchar{%
+ \ion@zero@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@zero@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@one{%
+ \ion@iffirstchar{%
+ \ion@one@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@one@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@two{%
+ \ion@iffirstchar{%
+ \ion@two@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@two@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@three{%
+ \ion@iffirstchar{%
+ \ion@three@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@three@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@four{%
+ \ion@iffirstchar{%
+ \ion@four@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@four@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@five{%
+ \ion@iffirstchar{%
+ \ion@five@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@five@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@six{%
+ \ion@iffirstchar{%
+ \ion@six@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@six@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@seven{%
+ \ion@iffirstchar{%
+ \ion@seven@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@seven@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@eight{%
+ \ion@iffirstchar{%
+ \ion@eight@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@eight@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+\def\ion@nine{%
+ \ion@iffirstchar{%
+ \ion@nine@original\ion@currnum@append{}%
+ }{%
+ \ion@currnum@append{\ion@nine@original}%
+ }%
+ \ion@ifnextdigit{%
+ %% nothing
+ }{%
+ \ion@ifnextseparator{%
+ %% nothing
+ }{%
+ \ion@ifnextchar e{%
+ \ion@currnum@output\ion@exponent@curr\@gobble%
+ }{%
+ \ion@currnum@output%
+ }%
+ }%
+ }%
+}
+% \end{macrocode}
+%
+% The macro |\ion@define@charmacros| is used to assign the above macros to the
+% (active) characters |.,+-0123456789|. It will be executed later in the
+% conflict test section.
+% \begin{macrocode}
+\begingroup
+ \ion@separators@active\ion@signs@active\ion@digits@active
+ \gdef\ion@define@charmacros{%
+ \global\let,=\ion@comma%
+ \global\let.=\ion@point%
+ \global\let+=\ion@plus%
+ \global\let-=\ion@minus%
+ \global\let0=\ion@zero%
+ \global\let1=\ion@one%
+ \global\let2=\ion@two%
+ \global\let3=\ion@three%
+ \global\let4=\ion@four%
+ \global\let5=\ion@five%
+ \global\let6=\ion@six%
+ \global\let7=\ion@seven%
+ \global\let8=\ion@eight%
+ \global\let9=\ion@nine%
+ }
+\endgroup
+% \end{macrocode}
+%
+% If one of |+-0123456789| is the first character of a number and this number
+% not part of an exponent, then argument `1' will be used; otherwise argument
+% `2' will be used. This macro is required to handle single characters not
+% grouped in curly braces |{}| in expressions like |$a^0$| or |$\sqrt 2$|
+% correctly.
+% \begin{macrocode}
+\def\ion@iffirstchar#1#2{%
+ \ifion@currnum@exponent%
+ #2%
+ \else%
+ \ifion@currnum@firstchar%
+ #1%
+ \else
+ #2%
+ \fi%
+ \fi%
+ \ion@currnum@firstcharfalse%
+}
+% \end{macrocode}
+%
+% Now the macros for the conditions in the above definitions follow. There are
+% tests for a digit |0123456789|, \ldots
+% \begin{macrocode}
+\long\def\ion@ifnextdigit#1#2{%
+ \def\reserved@a{#1}%
+ \def\reserved@b{#2}%
+ \futurelet\@let@token\ion@ifnextdigit@}
+\def\ion@ifnextdigit@{%
+ \ifx\@let@token1\let\reserved@c\reserved@a\else%
+ \ifx\@let@token2\let\reserved@c\reserved@a\else%
+ \ifx\@let@token3\let\reserved@c\reserved@a\else%
+ \ifx\@let@token4\let\reserved@c\reserved@a\else%
+ \ifx\@let@token5\let\reserved@c\reserved@a\else%
+ \ifx\@let@token6\let\reserved@c\reserved@a\else%
+ \ifx\@let@token7\let\reserved@c\reserved@a\else%
+ \ifx\@let@token8\let\reserved@c\reserved@a\else%
+ \ifx\@let@token9\let\reserved@c\reserved@a\else%
+ \ifx\@let@token0\let\reserved@c\reserved@a\else%
+ \let\reserved@c\reserved@b%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+ \reserved@c}
+% \end{macrocode}
+%
+% \ldots{} for a separator |.,|, \ldots
+% \begin{macrocode}
+\long\def\ion@ifnextseparator#1#2{%
+ \def\reserved@a{#1}%
+ \def\reserved@b{#2}%
+ \futurelet\@let@token\ion@ifnextseparator@}
+\def\ion@ifnextseparator@{%
+ \ifx\@let@token,\let\reserved@c\reserved@a\else%
+ \ifx\@let@token.\let\reserved@c\reserved@a\else%
+ \let\reserved@c\reserved@b%
+ \fi%
+ \fi%
+ \reserved@c}
+% \end{macrocode}
+%
+% \ldots{} and for a sign |+-| as next character.
+% \begin{macrocode}
+\long\def\ion@ifnextsign#1#2{%
+ \def\reserved@a{#1}%
+ \def\reserved@b{#2}%
+ \futurelet\@let@token\ion@ifnextsign@}
+\def\ion@ifnextsign@{%
+ \ifx\@let@token+\let\reserved@c\reserved@a\else%
+ \ifx\@let@token-\let\reserved@c\reserved@a\else%
+ \let\reserved@c\reserved@b%
+ \fi%
+ \fi%
+ \reserved@c}
+% \end{macrocode}
+%
+% An additional test for an arbitrary character is also added. It obeys white
+% spaces in contrast to \LaTeX{}'s |\@ifnextchar|.
+% \begin{macrocode}
+\long\def\ion@ifnextchar#1#2#3{%
+ \let\reserved@d=#1%
+ \def\reserved@a{#2}%
+ \def\reserved@b{#3}%
+ \futurelet\@let@token\ion@ifnextchar@}
+\def\ion@ifnextchar@{%
+ \ifx\@let@token\reserved@d%
+ \let\reserved@c\reserved@a%
+ \else%
+ \let\reserved@c\reserved@b%
+ \fi%
+ \reserved@c}
+% \end{macrocode}
+%
+% ---------------------------------------------------------------------
+%
+% \subsection{Test for conflicts with other packages}
+%
+% First of all we test for some packages known to conflict with
+% \textsf{ionumbers}. This will be done by checking at the begining of the
+% document, if one of these packages has been loaded and an error/warning will
+% be issued.
+% \begin{macrocode}
+\newcommand*{\ion@conflict@package}[1]{%
+ \@ifpackageloaded{#1}{%
+ \PackageError{ionumbers}%
+ {Packages #1 and ionumbers conflict!\MessageBreak%
+ Do not load both packages in the same document}{}%
+ }{}%
+}
+\newcommand*{\ion@problem@package}[2]{%
+ \@ifpackageloaded{#1}{%
+ \PackageWarning{ionumbers}%
+ {Loading #1 and ionumbers is problematic!\MessageBreak#2}%
+ }{}%
+}
+
+\AtBeginDocument{%
+ \ion@conflict@package{ziffer}%
+ \ion@problem@package{dcolumn}{Use `tabular's inside \string\ionumbersoff}%
+ \ion@problem@package{amsmath}{Load ionumbers after amsmath}%
+ \ion@problem@package{amsmath}{Use \string\operatorname\space inside
+ \string\ionumbersoff}%
+ \ion@problem@package{amsopn}{Use \string\operatorname\space inside
+ \string\ionumbersoff}%
+}
+% \end{macrocode}
+%
+% Next the characters |.,+-0123456789| are checked for macro definitions (by
+% other packages). This way conflicts with other packages may be detected with
+% some probability (but only if the conflicting package has already been
+% loaded).
+% \begin{macrocode}
+\newcommand*\ion@conflict@definedtest[1]{%
+ \ifx#1\@undefined\else\PackageWarning{ionumbers}%
+ {Potential conflict with other package(s) detected.\MessageBreak%
+ `\string#1' has already been defined. I will redefine it.\MessageBreak%
+ This might break other package(s)!\MessageBreak}\fi}
+\begingroup
+ \ion@separators@active\ion@signs@active\ion@digits@active
+ \ion@conflict@definedtest{,}
+ \ion@conflict@definedtest{.}
+ \ion@conflict@definedtest{+}
+ \ion@conflict@definedtest{-}
+ \ion@conflict@definedtest{0}
+ \ion@conflict@definedtest{1}
+ \ion@conflict@definedtest{2}
+ \ion@conflict@definedtest{3}
+ \ion@conflict@definedtest{4}
+ \ion@conflict@definedtest{5}
+ \ion@conflict@definedtest{6}
+ \ion@conflict@definedtest{7}
+ \ion@conflict@definedtest{8}
+ \ion@conflict@definedtest{9}
+\endgroup
+% \end{macrocode}
+%
+% After the above test the definitions of the characters of
+% \textsf{ionumbers} can be applied.
+% \begin{macrocode}
+\ion@define@charmacros
+% \end{macrocode}
+%
+% Additionally, \textsf{ionumbers} tests for redefinitions of the macros
+% of the characters at the begining of the document.
+% \begin{macrocode}
+\newcommand*{\ion@conflict@redefinedtest}[2]{%
+ \ifx#1#2\else\PackageWarning{ionumbers}%
+ {Potential conflict with other package(s) detected.\MessageBreak%
+ `\string#1' has been redefined. This might break ionumbers!\MessageBreak}%
+ \fi}
+\begingroup
+ \ion@separators@active\ion@signs@active\ion@digits@active
+ \gdef\ion@conflict@redefinedtest@macro{%
+ \ion@conflict@redefinedtest{,}{\ion@comma}%
+ \ion@conflict@redefinedtest{.}{\ion@point}%
+ \ion@conflict@redefinedtest{+}{\ion@plus}%
+ \ion@conflict@redefinedtest{-}{\ion@minus}%
+ \ion@conflict@redefinedtest{0}{\ion@zero}%
+ \ion@conflict@redefinedtest{1}{\ion@one}%
+ \ion@conflict@redefinedtest{2}{\ion@two}%
+ \ion@conflict@redefinedtest{3}{\ion@three}%
+ \ion@conflict@redefinedtest{4}{\ion@four}%
+ \ion@conflict@redefinedtest{5}{\ion@five}%
+ \ion@conflict@redefinedtest{6}{\ion@six}%
+ \ion@conflict@redefinedtest{7}{\ion@seven}%
+ \ion@conflict@redefinedtest{8}{\ion@eight}%
+ \ion@conflict@redefinedtest{9}{\ion@nine}%
+ }
+\endgroup
+\AtBeginDocument{\ion@conflict@redefinedtest@macro}
+% \end{macrocode}
+%
+% ---------------------------------------------------------------------
+%
+% \subsection{Commands for current number}
+%
+% Numbers are processed by first storing one character after the other in an
+% internal macro to be able to automatically group digits. The basic idea when
+% adding single characters is
+% \begin{itemize}
+% \item remember, whether we are processing the thousands or the thousandths
+% part of a number (|\ifion@beforedecimal|)
+% \item calculate the number of digits processed modulo 3 plus 1 in the
+% current part and
+% \begin{itemize}
+% \item for the thousands part: add |\ion@thousands@sepa| for 1,
+% |\ion@thousands@sepb| for 2, |\ion@thousands@sepc| for 3, \ldots{}
+% after a digit
+% \item for the thousandths part: add |\ion@thousandths@sep| after each
+% third digit
+% \end{itemize}
+% \end{itemize}
+% The macros |\ion@thousands@sep...| and |\ion@thousandths@sep| are empty by
+% default. Before outputting the number, the number of digits in the thousands
+% part is known and the correct |\ion@thousands@sep...| macro can be set to the
+% thousands separator for correct grouping.
+%
+% First of all, the |if|s, counters and empty separator macros are initialized.
+% \begin{macrocode}
+\newif\ifion@currnum@firstchar\ion@currnum@firstchartrue
+\newif\ifion@beforedecimal\ion@beforedecimaltrue
+\newif\ifion@noexplicitthousands\ion@noexplicitthousandstrue
+\newif\ifion@currnum@exponent\ion@currnum@exponentfalse
+\newif\ifion@exponent@superscript\ion@exponent@superscriptfalse
+\newcount\ion@thousands@currpos\ion@thousands@currpos=0
+\newcount\ion@thousandths@currpos\ion@thousandths@currpos=0
+\def\ion@currnum{}
+\def\ion@thousands@sepa{}
+\def\ion@thousands@sepb{}
+\def\ion@thousands@sepc{}
+\def\ion@thousands@sepd{}
+\def\ion@thousands@sepe{}
+\def\ion@thousands@sepf{}
+\def\ion@thousands@sepg{}
+\def\ion@thousands@seph{}
+\def\ion@thousands@sepi{}
+\def\ion@thousandths@sep{}
+% \end{macrocode}
+%
+% The macro |\ion@currnum@append| adds the character in its argument to the
+% end of |\ion@currnum|. In the starred version adding of an empty separator
+% macros is omitted.
+% \begin{macrocode}
+\newcommand{\ion@currnum@append}{%
+ \ion@currnum@firstcharfalse%
+ \@ifstar{\ion@currnum@append@@}{\ion@currnum@append@}%
+}
+\newcommand*{\ion@currnum@append@@}[1]{%
+ \ion@addto@macro{\ion@currnum}{#1}%
+}
+\newcommand*{\ion@currnum@append@}[1]{%
+ \ifion@beforedecimal%
+ %% push back (empty) separator and character
+ \ifcase\ion@thousands@currpos%
+ \ion@addto@macro{\ion@currnum}{#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@sepa#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@sepb#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@sepc#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@sepd#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@sepe#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@sepf#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@sepg#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@seph#1}%
+ \or%
+ \ion@addto@macro{\ion@currnum}{\ion@thousands@sepi#1}%
+ \fi%
+ %% advance thousands counter
+ \advance\ion@thousands@currpos by1\relax%
+ \ifnum\ion@thousands@currpos>\ion@grplenthousands%
+ \ion@thousands@currpos=1%
+ \fi%
+ \else%
+ %% push back (empty) separator and character
+ \ifnum\ion@thousandths@currpos=\ion@grplenthousandths%
+ \ion@addto@macro{\ion@currnum}{\ion@thousandths@sep#1}%
+ \else%
+ \ion@addto@macro{\ion@currnum}{#1}%
+ \fi%
+ %% advance thousandths counter
+ \advance\ion@thousandths@currpos by1\relax%
+ \ifnum\ion@thousandths@currpos>\ion@grplenthousandths%
+ \ion@thousandths@currpos=1%
+ \fi%
+ \fi%
+}
+% \end{macrocode}
+%
+% The |\ion@currnum@output| macro defines the empty separator macros (depending
+% on the current configuration), outputs the current number, and resets
+% everything for the next number.
+% \begin{macrocode}
+\newcommand*{\ion@currnum@output}{%
+ \begingroup%
+ %% set automatic thousands separator
+ \ifion@autothousands%
+ \ifion@noexplicitthousands%
+ \ifcase\ion@thousands@currpos%
+ %% do nothing
+ \or%
+ \def\ion@thousands@sepa{\ion@thousands@curr}%
+ \or%
+ \def\ion@thousands@sepb{\ion@thousands@curr}%
+ \or%
+ \def\ion@thousands@sepc{\ion@thousands@curr}%
+ \or%
+ \def\ion@thousands@sepd{\ion@thousands@curr}%
+ \or%
+ \def\ion@thousands@sepe{\ion@thousands@curr}%
+ \or%
+ \def\ion@thousands@sepf{\ion@thousands@curr}%
+ \or%
+ \def\ion@thousands@sepg{\ion@thousands@curr}%
+ \or%
+ \def\ion@thousands@seph{\ion@thousands@curr}%
+ \or%
+ \def\ion@thousands@sepi{\ion@thousands@curr}%
+ \fi%
+ \fi%
+ \fi%
+ %% set automatic thousandths separator
+ \ifion@autothousandths%
+ \def\ion@thousandths@sep{\ion@thousandths@curr}%
+ \fi%
+ %% output number
+ \ifion@currnum@exponent%
+ \ifion@exponent@superscript%
+ ^{\ion@currnum}%
+ \else%
+ {\ion@currnum}%
+ \fi%
+ \else
+ \ion@currnum%
+ \fi
+ \endgroup%
+ %% reset stuff for next number
+ \ion@thousands@currpos=0%
+ \ion@thousandths@currpos=0%
+ \def\ion@currnum{}%
+ \ion@currnum@firstchartrue%
+ \ion@beforedecimaltrue%
+ \ion@noexplicitthousandstrue%
+ \ion@currnum@exponentfalse%
+ \ion@exponent@superscriptfalse%
+}
+% \end{macrocode}
+%
+% This macro is identical to |\l@addto@macro| from \textsf{koma-script bundle}.
+% \begin{macrocode}
+\newcommand{\ion@addto@macro}[2]{%
+ \begingroup\toks@\expandafter{#1#2}%
+ \edef\@tempa{\endgroup\def\noexpand#1{\the\toks@}}%
+ \@tempa}
+% \end{macrocode}
+%
+% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \Finale
+%
+\endinput