diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel/athnum.sty')
-rw-r--r-- | Master/texmf-dist/tex/generic/babel/athnum.sty | 103 |
1 files changed, 103 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/babel/athnum.sty b/Master/texmf-dist/tex/generic/babel/athnum.sty new file mode 100644 index 00000000000..9bdbdf81b22 --- /dev/null +++ b/Master/texmf-dist/tex/generic/babel/athnum.sty @@ -0,0 +1,103 @@ +%% +%% This is file `athnum.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% athnum.dtx (with options: `package') +%% This is a generated file. +%% +%% Copyright 1989-2005 Johannes L. Braams and any individual authors +%% listed elsewhere in this file. All rights reserved. +%% +%% This file was generated from file(s) 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. +%% +%% This file may only be distributed together with a copy of the Babel +%% system. You may however distribute the Babel system without +%% such generated files. +%% +%% The list of all files belonging to the Babel distribution 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. +%% \CheckSum{125} +%% \CharacterTable +%% This is file `athnum.dtx' +%% (c) 1997-2005 Apostolos Syropoulos. +%% All rights reserved. +\NeedsTeXFormat{LaTeX2e}[1996/01/01] +\ProvidesPackage{athnum}[2003/08/24\space v1.1] +\typeout{Package: `athnum' v1.1\space <2003/08/24> (A. Syropoulos)} +\@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 + }} +\DeclareTextCommand{\PiDelta}{LGR}{\char"02\relax} +\DeclareTextCommand{\PiEta}{LGR}{\char"03\relax} +\DeclareTextCommand{\PiChi}{LGR}{\char"04\relax} +\DeclareTextCommand{\PiMu}{LGR}{\char"05\relax} +\newcount\@ath@num +\DeclareRobustCommand*{\@@athnum}[1]{% + \@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 + \@whilenum\@ath@num>49999\do{% + \PiMu\advance\@ath@num-50000}% + \@whilenum\@ath@num>9999\do{% + M\advance\@ath@num-\@M}% + \ifnum\@ath@num>4999% + \PiChi\advance\@ath@num-5000% + \fi\relax + \@whilenum\@ath@num>999\do{% + Q\advance\@ath@num-\@m}% + \ifnum\@ath@num>499% + \PiEta\advance\@ath@num-500% + \fi\relax + \@whilenum\@ath@num>99\do{% + H\advance\@ath@num-100}% + \ifnum\@ath@num>49% + \PiDelta\advance\@ath@num-50% + \fi\relax + \@whilenum\@ath@num>9\do{% + D\advance\@ath@num by-10}% + \@whilenum\@ath@num>4\do{% + P\advance\@ath@num-5}% + \ifcase\@ath@num\or I\or II\or III\or IIII\fi% + \fi\fi} +\def\@athnum#1{% + \expandafter\@@athnum\expandafter{\the#1}} +\def\athnum#1{% + \@ath@num#1\relax + \@athnum{\@ath@num}} +\endinput +%% +%% End of file `athnum.sty'. |