summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel/locale/el/babel-polytonicgreek.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel/locale/el/babel-polytonicgreek.tex')
-rw-r--r--Master/texmf-dist/tex/generic/babel/locale/el/babel-polytonicgreek.tex49
1 files changed, 49 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/babel/locale/el/babel-polytonicgreek.tex b/Master/texmf-dist/tex/generic/babel/locale/el/babel-polytonicgreek.tex
index 6b5f75dfeb7..16f3c143f45 100644
--- a/Master/texmf-dist/tex/generic/babel/locale/el/babel-polytonicgreek.tex
+++ b/Master/texmf-dist/tex/generic/babel/locale/el/babel-polytonicgreek.tex
@@ -9,4 +9,53 @@
\fi
\BabelBeforeIni{el-polyton}{%
}
+
+\ifcase\bbl@engine\else
+
+ % Numerals (Ionian)
+
+ \def\BabelGreekNumeralMarkerEnd#1{#1ʹ}
+ \def\BabelGreekNumeralMarker#1{#1}
+
+ \def\greek@num@aux#1#2#3#4#5#6#7#8#9\@@{%
+ \ifcase\@car#9\@nil\or
+ \greek@num@format0000000#1\or
+ \greek@num@format000000#1#2\or
+ \greek@num@format00000#1#2#3\or
+ \greek@num@format0000#1#2#3#4\or
+ \greek@num@format000#1#2#3#4#5\or
+ \greek@num@format00#1#2#3#4#5#6\or
+ \greek@num@format0#1#2#3#4#5#6#7\or
+ \greek@num@format#1#2#3#4#5#6#7#8\else
+ \greek@invalid
+ \fi}
+
+ \def\BabelGreekNumeralMiriads#1#2#3#4{%
+ \ifnum#1#2=\z@
+ \ifcase#3\or ͵ρ\or ͵σ\or ͵τ\or ͵υ\or ͵φ\or ͵χ\or ͵ψ\or ͵ω\or ͵ϡ\fi
+ \ifcase#4\or ͵ι\or ͵κ\or ͵λ\or ͵μ\or ͵ν\or ͵ξ\or ͵ο\or ͵π\or ͵ϟ\fi
+ \else
+ \greek@invalid
+ \fi}
+
+ \def\greek@num@format#1#2#3#4#5#6#7#8{%
+ \BabelGreekNumeralMarker{%
+ \BabelGreekNumeralMiriads#1#2#3#4%
+ \ifcase#5\or ͵α\or ͵β\or ͵γ\or ͵δ\or ͵ε\or ͵Ϛ\or ͵ζ\or ͵η\or ͵θ\fi
+ \ifnum#6#7#8=\z@\else
+ \BabelGreekNumeralMarkerEnd{%
+ \ifcase#6\or ρ\or σ\or τ\or υ\or φ\or χ\or ψ\or ω\or ϡ\fi
+ \ifcase#7\or ι\or κ\or λ\or μ\or ν\or ξ\or ο\or π\or ϟ\fi
+ \ifcase#8\or α\or β\or γ\or δ\or ε\or Ϛ\or ζ\or η\or θ\fi}%
+ \fi}}
+
+ \def\greek@invalid{%
+ \bbl@error{Greek numeral too large (>999999)}%
+ {Currently this is the limit.}}
+
+ \expandafter\addto\csname extras\languagename\endcsname{%
+ \babel@save\greeknumeral
+ \def\greeknumeral#1{\expandafter\greek@num@aux\number#1 876543210\@@}}
+
+\fi
\endinput \ No newline at end of file