diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /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.dtx | 1609 |
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 |