summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel/athnum.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel/athnum.sty')
-rw-r--r--Master/texmf-dist/tex/generic/babel/athnum.sty103
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'.