diff options
Diffstat (limited to 'Master/texmf-dist/source/generic/babel/athnum.dtx')
-rw-r--r-- | Master/texmf-dist/source/generic/babel/athnum.dtx | 277 |
1 files changed, 0 insertions, 277 deletions
diff --git a/Master/texmf-dist/source/generic/babel/athnum.dtx b/Master/texmf-dist/source/generic/babel/athnum.dtx deleted file mode 100644 index 3ea1f5325aa..00000000000 --- a/Master/texmf-dist/source/generic/babel/athnum.dtx +++ /dev/null @@ -1,277 +0,0 @@ -% \iffalse meta-comment -% -% Copyright 1989-2008 Johannes L. Braams and any individual authors -% listed elsewhere in this file. All rights reserved. -% -% This file is part of the Babel system. -% -------------------------------------- -% -% It may be distributed and/or modified under the -% conditions of the LaTeX Project Public License, either version 1.3 -% of this license or (at your option) any later version. -% The latest version of this license is in -% http://www.latex-project.org/lppl.txt -% and version 1.3 or later is part of all distributions of LaTeX -% version 2003/12/01 or later. -% -% This work has the LPPL maintenance status "maintained". -% -% The Current Maintainer of this work is Johannes Braams. -% -% The list of all files belonging to the Babel system is -% given in the file `manifest.bbl. See also `legal.bbl' for additional -% information. -% -% The list of derived (unpacked) files belonging to the distribution -% and covered by LPPL is defined by the unpacking scripts (with -% extension .ins) which are part of the distribution. -% \fi -%% \CheckSum{125} -%\iffalse -% -%% This is file `athnum.dtx' -%% (c) 1997-2007 Apostolos Syropoulos. -%% All rights reserved. -% -% Please report errors or suggestions for improvement to -% -% Apostolos Syropoulos -% 366, 28th October Str. -% GR-671 00 Xanthi, GREECE -% apostolo at platon.ee.duth.gr or apostolo at obelix.ee.duth.gr -% -%\fi -% -% \iffalse -% \begin{macrocode} -%<*driver> -\documentclass{ltxdoc} -\def\PiIt#1{{% - \newdimen\boxW \newdimen\boxH - \settowidth{\boxW}{#1}% - \settoheight{\boxH}{#1}% - \addtolength{\boxW}{0.8pt} - \vbox{% - \hrule width\boxW\hbox{% - \vrule height\boxH\mbox{#1}% - \vrule height\boxH}}\kern.5pt}} -\GetFileInfo{athnum.drv} -\begin{document} - \DocInput{athnum.dtx} -\end{document} -%</driver> -% \end{macrocode} -% \fi -% -%\title{Athenian Numerals II\footnote{The documentation of this -% package is essentially the same as that of the package `grnumalt'. -% The `II' serves as a means to distinguish the two documents.}} -% \author{Apostolos Syropoulos\\366, 28th October Str.\\ -% GR-671 00 Xanthi, HELLAS\\ Email:\texttt{apostolo@platon.ee.duth.gr}} -% \date{2003/08/24} -%\maketitle -% -%\MakeShortVerb{\|} -% -%\section{Introduction} -% -% This \LaTeX\ package implements the macro -% \DescribeMacro{\athnum} -% |\athnum|. The macro transforms an Arabic numeral, i.e., the kind -% of numerals we all use (e.g., 1, 5, 789 etc), to the corresponding -% {\itshape Athenian} numeral. Athenian numerals were in use only in -% ancient Athens. The package can be used only in conjunction with the -% |greek| option of the |babel| package. -% -%\section{The Numbering System} -% -% The athenian numbering system, like the roman one, employs -% letters to denote important numbers. Multiple occurrence of a letter denote -% a multiple of the ``important'' number, e.g., the letter I denotes 1, so -% III denotes 3. Here are the basic digits used in the Athenian numbering -% system: -% \begin{itemize} -% \item I denotes the number one (1) -% \item $\Pi$ denotes the number five (5) -% \item $\Delta$ denotes the number ten (10) -% \item H denotes the number one hundred (100) -% \item X denotes the number one thousand (1000) -% \item M denotes the number ten thousands (10000) -%\end{itemize} -% Moreover, the letters $\Delta$, H, X, and M under the letter $\Pi$, -% denote five times their original value, e.g., the symbol -% \PiIt{X}, denotes the number 5000, and the symbol -% \PiIt{$\Delta$}, denotes the number 50. It must be noted that -% the numbering system does not provide negative numerals or a symbol for -% zero. -% -% The Athenian numbering system is described, among others, in an article in -% Encyclopedia $\Delta o\mu\acute{\eta}$, Vol. 2, page 280, 7th edition, -% Athens, October 2, 1975. -% -% \section{The Code} -% Before we do anything further, we have to identify the package. -% \StopEventually -% -% \begin{macrocode} -%<*package> -\NeedsTeXFormat{LaTeX2e}[1996/01/01] -\ProvidesPackage{athnum}[2003/08/24\space v1.1] -\typeout{Package: `athnum' v1.1\space <2003/08/24> (A. Syropoulos)} -% \end{macrocode} -% Next we check to see if the |babel| package is loaded with at least -% the |greek| option. In case it isn't, we opt to produce an error message. -% \begin{macrocode} -\@ifpackagewith{babel}{greek}{}{% - \@ifpackagewith{babel}{polutonikogreek}{}{% - \PackageError{athnum}{% - `greek' option of the `babel'\MessageBreak - package hasn't been loaded}{% - The commands provided by this package\MessageBreak - are specially designed for greek language\MessageBreak - typesetting with the `babel' package. Load\MessageBreak - it with at least the `greek' option.}\relax - }} -% \end{macrocode} -% -% As it is mentioned in the introduction, the Athenian numerals employ -% some special digits. These digits are included in the |cb| fonts of -% Claudio Beccari, and so we must provide access commands. -% \begin{macrocode} -\DeclareTextCommand{\PiDelta}{LGR}{\char"02\relax} -\DeclareTextCommand{\PiEta}{LGR}{\char"03\relax} -\DeclareTextCommand{\PiChi}{LGR}{\char"04\relax} -\DeclareTextCommand{\PiMu}{LGR}{\char"05\relax} -% \end{macrocode} -%\begin{macro}{\@@athnum} -% Now, we turn our attention to the definition of the macro -% |\@@athnum|. This macro uses one integer variable (or counter in -% \TeX's jargon.) -% \begin{macrocode} -\newcount\@ath@num -% \end{macrocode} -% The macro |\@@athnum| is also defined as a robust command. -% \begin{macrocode} -\DeclareRobustCommand*{\@@athnum}[1]{% -% \end{macrocode} -% After assigning to variable |\@ath@num| the value of the macro's argument, -%we make sure that the argument is in the expected range, i.e., it is greater -% than zero, and less or equal to $249999$. In case it isn't, we simply -% produce a |\space|, warn the user about it and quit. Although, the -% |\athnum| macro is capable to produce an Athenian numeral for even greater -% intergers, the following argument by Claudio Beccari convised me to place -% this above upper limit: -% \begin{quote} -% According to psychological perception studies (that ancient Athenians -% and Romans perfectly knew without needing to study Freud and Jung) -% living beings (which includes at least all vertebrates, not only -% humans) can perceive up to four randomly set objects of the same kind -% without the need of counting, the latter activity being a specific -% acquired ability of human kind; the biquinary numbering notation -% used by the Athenians and the Romans exploits this natural -% characteristic of human beings. -% \end{quote} -% \begin{macrocode} - \@ath@num#1\relax - \ifnum\@ath@num<\@ne% - \space% - \PackageWarning{athnum}{% - Illegal value (\the\@ath@num) for athenian numeral}% - \else\ifnum\@ath@num>249999% - \space% - \PackageWarning{athnum}{% - Illegal value (\the\@ath@num) for athenian numeral}% - \else -% \end{macrocode} -% Having done all the necessary checks, we are now ready to do the actual -% computation. If the number is greater than $49999$, then it certainly -% has at least one \PiIt{M} ``digit''. We find all such digits by continuously -% subtracting $50000$ from |\@ath@num|, until |\@ath@num| becomes less than -% $50000$. -% \begin{macrocode} - \@whilenum\@ath@num>49999\do{% - \PiMu\advance\@ath@num-50000}% -% \end{macrocode} -% We now check for tens of thousands. -% \begin{macrocode} - \@whilenum\@ath@num>9999\do{% - M\advance\@ath@num-\@M}% -% \end{macrocode} -% Since a number can have only one \PiIt{X} ``digit'' (equivalent to 5000), it -% is easy to check it out and produce the corresponding numeral in case it does -% have one. -% \begin{macrocode} - \ifnum\@ath@num>4999% - \PiChi\advance\@ath@num-5000% - \fi\relax -% \end{macrocode} -% Next, we check for thousands, the same way we checked for tens of thousands. -% \begin{macrocode} - \@whilenum\@ath@num>999\do{% - Q\advance\@ath@num-\@m}% -% \end{macrocode} -% Like the five thousands, a numeral can have at most one \PiIt{H} ``digit'' -% (equivalent to 500). -% \begin{macrocode} - \ifnum\@ath@num>499% - \PiEta\advance\@ath@num-500% - \fi\relax -% \end{macrocode} -% It is time to check hundreds, which follow the same pattern as thousands -% \begin{macrocode} - \@whilenum\@ath@num>99\do{% - H\advance\@ath@num-100}% -% \end{macrocode} -% A numeral can have only one \PiIt{$\Delta$} ``digit'' (equivalent to 50). -% \begin{macrocode} - \ifnum\@ath@num>49% - \PiDelta\advance\@ath@num-50% - \fi\relax -% \end{macrocode} -% Let's check now decades. -% \begin{macrocode} - \@whilenum\@ath@num>9\do{% - D\advance\@ath@num by-10}% -% \end{macrocode} -% We check for five and, finally, for the digits 1, 2, 3, and 4. -% \begin{macrocode} - \@whilenum\@ath@num>4\do{% - P\advance\@ath@num-5}% - \ifcase\@ath@num\or I\or II\or III\or IIII\fi% - \fi\fi} -% \end{macrocode} -%\end{macro} -% -%\begin{macro}{\@athnum} -% The command |\@athnum| has one argument, which -% is a counter. It calls the command |\@@athnum| to process the value of -% the counter. -% \begin{macrocode} -\def\@athnum#1{% - \expandafter\@@athnum\expandafter{\the#1}} -% \end{macrocode} -%\end{macro} -%\begin{macro}{\athnum} -% The command |\athnum| is a wrapper that declares -% a new counter in a local scope, assigns to it the argument of the command -% and calls the macro |\@athnum|. This way the command can process correctly -% either a number or a counter. -% \begin{macrocode} -\def\athnum#1{% - \@ath@num#1\relax - \@athnum{\@ath@num}} -%</package> -% \end{macrocode} -%\end{macro} -% -% \section*{Acknowledgment} -% I would like to thank Claudio Beccari for reading the documentation -% and for his very helpful suggestions. In addition, Antonis Tsolomitis -% spotted a bug in the first version, which is corrected in the present -% version. -% \section*{Dedication} -% I would like to dedicate this piece of work to my son -% \begin{center}Demetrios-Georgios.\end{center} -% \Finale -% -\endinput |