summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/greekdates/greekdates.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/greekdates/greekdates.sty')
-rw-r--r--Master/texmf-dist/tex/latex/greekdates/greekdates.sty585
1 files changed, 585 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/greekdates/greekdates.sty b/Master/texmf-dist/tex/latex/greekdates/greekdates.sty
new file mode 100644
index 00000000000..147555717f3
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/greekdates/greekdates.sty
@@ -0,0 +1,585 @@
+%%
+%% This is file `greekdates.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% greekdates.dtx (with options: `greekdates')
+%%
+%% (c) copyright 2001
+%% Antonis Tsolomitis
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN
+%% archives in directory macros/latex/base/lppl.txt; either
+%% version 1 of the License, or any later version.
+%%
+%% Please report errors or suggestions for improvement to
+%%
+%% Dr. Antonis Tsolomitis
+%% Department of Mathematics
+%% University of the Aegean
+%% atsol@aegean.gr
+%%
+%% \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 \~}
+\ProvidesFile{greekdates.sty}
+[2001/05/15 v1.0 Package `greekdates.sty']
+\NeedsTeXFormat{LaTeX2e}[1996/01/01]
+\ProvidesPackage{greekdates}[2001/05/15\space v1.0]
+\typeout{Package: `greekdates' v1.0\space <2001/05/15> (A. Tsolomitis)}
+\ProvidesPackage{greekdates}
+\RequirePackage{calc}
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\fgrkday#1{
+ \ifcase#1 \or %
+ >Hm'era to~u >'Hliou\or >Hm'era t~hs Sel'hnhs\or >Hm'era to~u
+ >'Arh\or >Hm'era to~u >Erm~h\or >Hm'era to~u Di`os\or
+ >Hm'era t~hs >Afrod'iths\or >Hm'era to~u Kr'onou\fi}
+}{
+\def\fgrkday#1{
+ \ifcase#1 \or %
+ Hm'era tou 'Hliou\or Hm'era ths Sel'hnhs\or Hm'era tou 'Arh\or
+ Hm'era tou Erm'h\or Hm'era tou Di'os\or Hm'era ths Afrod'iths\or
+ Hm'era tou Kr'onou\fi}
+}
+\newcommand{\fullgreekday}[1]{\fgrkday #1}
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\sgrkday#1{
+ \ifcase#1 \or %
+ >'Hliou\or Sel'hnhs\or >'Arh\or >Erm~h\or
+ Di`os\or >Afrod'iths\or Kr'onou\fi}
+}{
+\def\sgrkday#1{
+ \ifcase#1 \or %
+ 'Hliou\or Sel'hnhs\or 'Arh\or Erm'h\or
+ Di'os\or Afrod'iths\or Kr'onou\fi}
+}
+\newcommand{\shortgreekday}[1]{\sgrkday #1}
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\ssgrkday#1{
+ \ifcase#1 \or %
+ >'Hl.\or Sel.\or >'Ar.\or >Er.\or
+ Di`os\or >Afr.\or Kr.\fi}
+}{
+\def\ssgrkday#1{
+ \ifcase#1 \or %
+ 'Hl.\or Sel.\or 'Ar.\or Er.\or
+ Di'os\or Afr.\or Kr.\fi}
+}
+\newcommand{\sshortgreekday}[1]{\ssgrkday #1}
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Athmonth#1{
+ \ifcase#1 \or %
+ Gamhli'wn\or >Anjesthri'wn\or >Elafhboli'wn\or Mounuqi'wn \or
+ Jarghli'wn\or Skirofori'wn\or <Ekatombai'wn\or Metageitni'wn\or
+ Bohdromi'wn\or Puaneyi'wn\or Maimakthri'wn\or Poseide'wn\fi}
+}{\def\Athmonth#1{
+ \ifcase#1 \or %
+ Gamhli'wn\or Anjesthri'wn\or Elafhboli'wn\or Mounuqi'wn \or
+ Jarghli'wn\or Skirofori'wn\or Ekatombai'wn\or Metageitni'wn\or
+ Bohdromi'wn\or Puaneyi'wn\or Maimakthri'wn\or Poseide'wn\fi}
+}
+\newcommand{\Athensmonth}[1]{\Athmonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Delmonth#1{
+ \ifcase#1 \or
+ >Am'alios\or B'usios\or Jeox'enios\or >Enduspoitr'opios\or
+ <Hr'akleios\or >Ila~ios\or >Apella~ios\or Bouk'atios\or
+ Boaj'oos\or <Hra~ios\or Dadaf'orios\or Poitr'opios\fi}
+}{\def\Delmonth#1{
+ \ifcase#1 \or
+ Am'alios\or B'usios\or Jeox'enios\or Enduspoitr'opios\or
+ Hr'akleios\or Ila'ios\or Apella'ios\or Bouk'atios\or
+ Boaj'oos\or Hra'ios\or Dadaf'orios\or Poitr'opios\fi}
+}
+\newcommand{\Delphimonth}[1]{\Delmonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Dilmonth#1{
+ \ifcase#1 \or
+ Lhni'wn\or <Ier'os\or Galaxi'wn\or >Artemisi'wn\or
+ Jarghli'wn\or P'anhmos\or <Ekatombai'wn\or Metageitni'wn\or
+ Boufwni'wn\or >Apatouri'wn\or >Arhsi'wn\or Poseide'wn\fi}
+}{\def\Dilmonth#1{
+ \ifcase#1 \or
+ Lhni'wn\or Ier'os\or Galaxi'wn\or Artemisi'wn\or
+ Jarghli'wn\or P'anhmos\or Ekatombai'wn\or Metageitni'wn\or
+ Boufwni'wn\or Apatouri'wn\or Arhsi'wn\or Poseide'wn\fi}
+}
+\newcommand{\Dilosmonth}[1]{\Dilmonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Epimonth#1{
+ \ifcase#1 \or
+ Pos'idaios\or >Artam'itios\or >Ari'anios\or P'anamos\or
+ K'uklios\or >Apella~ios\or >Az'osios\or Karne~ios\or
+ Pror'atios\or <Erma~ios\or G'amios\or T'eleos\fi}
+}{\def\Epimonth#1{
+ \ifcase#1 \or
+ Pos'idaios\or Artam'itios\or Ari'anios\or P'anamos\or
+ K'uklios\or Apella'ios\or Az'osios\or Karne'ios\or
+ Pror'atios\or Erma'ios\or G'amios\or T'eleos\fi}
+}
+\newcommand{\Epidavrosmonth}[1]{\Epimonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Rhomonth#1{
+ \ifcase#1 \or
+ Jeuda'isios\or Pedage'itnios\or Badr'omios\or >Artam'itios\or
+ >Agri'anios\or <Uak'injios\or P'anamos\or K'arneios\or
+ D'alios\or Jesmof'orios\or Sm'injios\or Di'osjuos\fi}
+}{\def\Rhomonth#1{
+ \ifcase#1 \or
+ Jeuda'isios\or Pedage'itnios\or Badr'omios\or Artam'itios\or
+ Agri'anios\or Uak'injios\or P'anamos\or K'arneios\or
+ D'alios\or Jesmof'orios\or Sm'injios\or Di'osjuos\fi}
+}
+\newcommand{\Rhodesmonth}[1]{\Rhomonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Macmonth#1{
+ \ifcase#1 \or
+ D'ustros\or Xanjik'os\or >Artem'isios\or Da'isios\or
+ P'anhmos\or L~wos\or Gorpia~ios\or <Uperbereta~ios\or
+ D~ios\or >Apella~ios\or A>uduna~ios\or Per'itios\fi}
+}{\def\Macmonth#1{
+ \ifcase#1 \or
+ D'ustros\or Xanjik'os\or Artem'isios\or Da'isios\or
+ P'anhmos\or L'wos\or Gorpia'ios\or Uperbereta'ios\or
+ D'ios\or Apella'ios\or Auduna'ios\or Per'itios\fi}
+}
+\newcommand{\Macedoniamonth}[1]{\Macmonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Aitmonth#1{
+ \ifcase#1 \or
+ E>ujua~ios\or <Omol'wios\or <Erma~ios\or Dion'usios\or
+ >Ag'ueios\or <Ippodr'omios\or Ju'ios\or P'anamos\or
+ Prok'uklios\or >Ajana~ios\or Bouk'atios\or Lafria~ios\fi}
+}{\def\Aitmonth#1{
+ \ifcase#1 \or
+ Eujua'ios\or Omol'wios\or Erma'ios\or Dion'usios\or
+ Ag'ueios\or Ippodr'omios\or Ju'ios\or P'anamos\or
+ Prok'uklios\or Ajana'ios\or Bouk'atios\or Lafria'ios\fi}
+}
+\newcommand{\Aitoliamonth}[1]{\Aitmonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Biomonth#1{
+ \ifcase#1 \or
+ <Erma~ios\or Prostat'hrios\or >Agri'wnios\or Jio'uios\or
+ <Omol'wios\or Jeilo'ujios\or <Ippodr'omios\or P'anamos\or
+ Pamboi'wtios\or Dam'atrios\or >Alalkom'enios\or Bouk'atios\fi}
+}{\def\Biomonth#1{
+ \ifcase#1 \or
+ Erma'ios\or Prostat'hrios\or Agri'wnios\or Jio'uios\or
+ Omol'wios\or Jeilo'ujios\or Ippodr'omios\or P'anamos\or
+ Pamboi'wtios\or Dam'atrios\or Alalkom'enios\or Bouk'atios\fi}
+}
+\newcommand{\Biotiamonth}[1]{\Biomonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Sammonth#1{
+ \ifcase#1 \or
+ Lhnai'wn\or >Anjesthri'wn\or >Artemisi'wn\or Taure'wn\or
+ P'anhmos\or Kroni'wn\or Pelusi'wn\or Metageitni'wn\or
+ Bohdromi'wn\or Kuanoyi'wn\or >Apatouri'wn\or Poseide'wn\fi}
+}{\def\Sammonth#1{
+ \ifcase#1 \or
+ Lhnai'wn\or Anjesthri'wn\or Artemisi'wn\or Taure'wn\or
+ P'anhmos\or Kroni'wn\or Pelusi'wn\or Metageitni'wn\or
+ Bohdromi'wn\or Kuanoyi'wn\or Apatouri'wn\or Poseide'wn\fi}
+}
+\newcommand{\Samosmonth}[1]{\Sammonth #1}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Milmonth#1{
+ \ifcase#1 \or
+ Lhnai'wn\or >Anjesthri'wn\or >Artemisi'wn\or Taure'wn\or
+ Jarghli'wn\or Kalamai'wn\or P'anhmos\or Metageitni'wn \or
+ >It'wnios\or Puanoyi'wn\or >Apatouri'wn\or Poseide'wn\fi}
+}{\def\Milmonth#1{
+ \ifcase#1 \or
+ Lhnai'wn\or Anjesthri'wn\or Artemisi'wn\or Taure'wn\or
+ Jarghli'wn\or Kalamai'wn\or P'anhmos\or Metageitni'wn \or
+ It'wnios\or Puanoyi'wn\or Apatouri'wn\or Poseide'wn\fi}
+}
+\newcommand{\Militosmonth}[1]{\Milmonth {#1}}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Tinmonth#1{
+ \ifcase#1 \or
+ Lhnai'wn\or >Anjesthri'wn\or >Artemisi'wn\or Taure'wn\or
+ Targhli'wn\or >Eleujuai'wn\or >Apellai'wn\or <Hrai'wn\or
+ Boufwni'wn\or Kuanoyi'wn\or >Apatouri'wn\or Poseide'wn\fi}
+}{\def\Tinmonth#1{
+ \ifcase#1 \or
+ Lhnai'wn\or Anjesthri'wn\or Artemisi'wn\or Taure'wn\or
+ Targhli'wn\or Eleujuai'wn\or Apellai'wn\or Hrai'wn\or
+ Boufwni'wn\or Kuanoyi'wn\or Apatouri'wn\or Poseide'wn\fi}
+}
+\newcommand{\Tinosmonth}[1]{\Tinmonth {#1}}
+
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\Lammonth#1{
+ \ifcase#1 \or
+ Jrix'allios\or Ge~ustos\or L'ukeos\or J'uos\or
+ >'Areos\or Qrutta~ios\or <Ippodr'omios\or P'anamos\or
+ >It'wnios\or >Apella~ios\or Jem'istios\or B'wmios\fi}
+}{\def\Lammonth#1{
+ \ifcase#1 \or
+ Jrix'allios\or Ge~ustos\or L'ukeos\or J'uos\or
+ 'Areos\or Qrutta'ios\or Ippodr'omios\or P'anamos\or
+ It'wnios\or Apella'ios\or Jem'istios\or B'wmios\fi}
+}
+\newcommand{\Lamiamonth}[1]{\Lammonth {#1}}
+\DeclareOption{Athensmonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ Gamhli~wnos\or >Anjesthri~wnos\or >Elafhboli~wnos\or Mounuqi~wnos \or
+ Jarghli~wnos\or Skirofori~wnos\or <Ekatombai~wnos\or Metageitni~wnos\or
+ Bohdromi~wnos\or Puaneyi~wnos\or Maimakthri~wnos\or Poseide~wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Gamhli~wnos\or >Anjesthri~wnos\or >Elafhboli~wnos\or Mounuqi~wnos \or
+ Jarghli~wnos\or Skirofori~wnos\or <Ekatombai~wnos\or Metageitni~wnos\or
+ Bohdromi~wnos\or Puaneyi~wnos\or Maimakthri~wnos\or Poseide~wnos\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Gamhli'wnos\or Anjesthri'wnos\or Elafhboli'wnos\or Mounuqi'wnos \or
+ Jarghli'wnos\or Skirofori'wnos\or Ekatombai'wnos\or Metageitni'wnos\or
+ Bohdromi'wnos\or Puaneyi'wnos\or Maimakthri'wnos\or Poseide'wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Gamhli'wnos\or Anjesthri'wnos\or Elafhboli'wnos\or Mounuqi'wnos \or
+ Jarghli'wnos\or Skirofori'wnos\or Ekatombai'wnos\or Metageitni'wnos\or
+ Bohdromi'wnos\or Puaneyi'wnos\or Maimakthri'wnos\or Poseide'wnos\fi}
+}}
+
+\DeclareOption{Delphimonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ >Am'aliou\or B'usiou\or Jeox'eniou\or >Enduspoitr'opiou\or
+ <Hr'akleiou\or >Ila'iou\or >Apella'iou\or Bouk'atiou\or
+ Boaj'oou\or <Hra'iou\or Dadaf'oriou\or Poitr'opiou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ >Am'aliou\or B'usiou\or Jeox'eniou\or >Enduspoitr'opiou\or
+ <Hr'akleiou\or >Ila'iou\or >Apella'iou\or Bouk'atiou\or
+ Boaj'oou\or <Hra'iou\or Dadaf'oriou\or Poitr'opiou\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Am'aliou\or B'usiou\or Jeox'eniou\or Enduspoitr'opiou\or
+ Hr'akleiou\or Ila'iou\or Apella'iou\or Bouk'atiou\or
+ Boaj'oou\or Hra'iou\or Dadaf'oriou\or Poitr'opiou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Am'aliou\or B'usiou\or Jeox'eniou\or Enduspoitr'opiou\or
+ Hr'akleiou\or Ila'iou\or Apella'iou\or Bouk'atiou\or
+ Boaj'oou\or Hra'iou\or Dadaf'oriou\or Poitr'opiou\fi}
+}}
+
+\DeclareOption{Dilosmonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ Lhni~wnos\or <Iero~u\or Galaxi~wnos\or >Artemisi~wnos\or
+ Jarghli~wnos\or P'anhmou\or <Ekatombai~wnos\or Metageitni~wnos\or
+ Boufwni~wnos\or >Apatouri~wnos\or >Arhsi~wnos\or Poseide~wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Lhni~wnos\or <Iero~u\or Galaxi~wnos\or >Artemisi~wnos\or
+ Jarghli~wnos\or P'anhmou\or <Ekatombai~wnos\or Metageitni~wnos\or
+ Boufwni~wnos\or >Apatouri~wnos\or >Arhsi~wnos\or Poseide~wnos\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Lhni'wnos\or <Iero'u\or Galaxi'wnos\or Artemisi'wnos\or
+ Jarghli'wnos\or P'anhmou\or Ekatombai'wnos\or Metageitni'wnos\or
+ Boufwni'wnos\or Apatouri'wnos\or Arhsi'wnos\or Poseide'wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Lhni'wnos\or <Iero'u\or Galaxi'wnos\or Artemisi'wnos\or
+ Jarghli'wnos\or P'anhmou\or Ekatombai'wnos\or Metageitni'wnos\or
+ Boufwni'wnos\or Apatouri'wnos\or Arhsi'wnos\or Poseide'wnos\fi}
+}}
+
+\DeclareOption{Epidavrosmonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ Pos'idaiou\or >Artam'itiou\or >Ari'aniou\or P'anamou\or
+ K'ukliou\or >Apella'iou\or >Az'osiou\or Karne'iou\or
+ Pror'atiou\or <Erma'iou\or G'amiou\or T'eleou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Pos'idaiou\or >Artam'itiou\or >Ari'aniou\or P'anamou\or
+ K'ukliou\or >Apella'iou\or >Az'osiou\or Karne'iou\or
+ Pror'atiou\or <Erma'iou\or G'amiou\or T'eleou\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Pos'idaiou\or Artam'itiou\or Ari'aniou\or P'anamou\or
+ K'ukliou\or Apella'iou\or Az'osiou\or Karne'iou\or
+ Pror'atiou\or Erma'iou\or G'amiou\or T'eleou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Pos'idaiou\or Artam'itiou\or Ari'aniou\or P'anamou\or
+ K'ukliou\or Apella'iou\or Az'osiou\or Karne'iou\or
+ Pror'atiou\or Erma'iou\or G'amiou\or T'eleou\fi}
+}}
+
+\DeclareOption{Rhodesmonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ Jeuda'isiou\or Pedage'itniou\or Badr'omiou\or >Artam'itiou\or
+ >Agri'aniou\or <Uak'injiou\or P'anamou\or K'arneiou\or
+ D'aliou\or Jesmof'oriou\or Sm'injiou\or Di'osjuou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Jeuda'isiou\or Pedage'itniou\or Badr'omiou\or >Artam'itiou\or
+ >Agri'aniou\or <Uak'injiou\or P'anamou\or K'arneiou\or
+ D'aliou\or Jesmof'oriou\or Sm'injiou\or Di'osjuou\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Jeuda'isiou\or Pedage'itniou\or Badr'omiou\or Artam'itiou\or
+ Agri'aniou\or Uak'injiou\or P'anamou\or K'arneiou\or
+ D'aliou\or Jesmof'oriou\or Sm'injiou\or Di'osjuou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Jeuda'isiou\or Pedage'itniou\or Badr'omiou\or Artam'itiou\or
+ Agri'aniou\or Uak'injiou\or P'anamou\or K'arneiou\or
+ D'aliou\or Jesmof'oriou\or Sm'injiou\or Di'osjuou\fi}
+}}
+
+\DeclareOption{Macedoniamonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ D'ustrou\or Xanjiko~u\or >Artem'isiou\or Da'isiou\or
+ P'anhmou\or L'wou\or Gorpia'iou\or <Uperbereta'iou\or
+ D'iou\or >Apella'iou\or A>uduna'iou\or Per'itiou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ D'ustrou\or Xanjiko~u\or >Artem'isiou\or Da'isiou\or
+ P'anhmou\or L'wou\or Gorpia'iou\or <Uperbereta'iou\or
+ D'iou\or >Apella'iou\or A>uduna'iou\or Per'itiou\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ D'ustrou\or Xanjiko'u\or Artem'isiou\or Da'isiou\or
+ P'anhmou\or L'wou\or Gorpia'iou\or Uperbereta'iou\or
+ D'iou\or Apella'iou\or Auduna'iou\or Per'itiou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ D'ustrou\or Xanjiko'u\or Artem'isiou\or Da'isiou\or
+ P'anhmou\or L'wou\or Gorpia'iou\or Uperbereta'iou\or
+ D'iou\or Apella'iou\or Auduna'iou\or Per'itiou\fi}
+}}
+
+\DeclareOption{Aitoliamonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ E>ujua'iou\or <Omol'wiou\or <Erma'iou\or Dion'usiou\or
+ >Ag'ueiou\or <Ippodr'omiou\or Ju'iou\or P'anamou\or
+ Prok'ukliou\or >Ajana'iou\or Bouk'atiou\or Lafria'iou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ E>ujua'iou\or <Omol'wiou\or <Erma'iou\or Dion'usiou\or
+ >Ag'ueiou\or <Ippodr'omiou\or Ju'iou\or P'anamou\or
+ Prok'ukliou\or >Ajana'iou\or Bouk'atiou\or Lafria'iou\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Eujua'iou\or Omol'wiou\or Erma'iou\or Dion'usiou\or
+ Ag'ueiou\or Ippodr'omiou\or Ju'iou\or P'anamou\or
+ Prok'ukliou\or Ajana'iou\or Bouk'atiou\or Lafria'iou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Eujua'iou\or Omol'wiou\or Erma'iou\or Dion'usiou\or
+ Ag'ueiou\or Ippodr'omiou\or Ju'iou\or P'anamou\or
+ Prok'ukliou\or Ajana'iou\or Bouk'atiou\or Lafria'iou\fi}
+}}
+
+\DeclareOption{Biotiamonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ <Erma'iou\or Prostat'hriou\or >Agri'wniou\or Jio'uiou\or
+ <Omol'wiou\or Jeilo'ujiou\or <Ippodr'omiou\or P'anamou\or
+ Pamboi'wtiou\or Dam'atriou\or >Alalkom'eniou\or Bouk'atiou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ <Erma'iou\or Prostat'hriou\or >Agri'wniou\or Jio'uiou\or
+ <Omol'wiou\or Jeilo'ujiou\or <Ippodr'omiou\or P'anamou\or
+ Pamboi'wtiou\or Dam'atriou\or >Alalkom'eniou\or Bouk'atiou\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Erma'iou\or Prostat'hriou\or Agri'wniou\or Jio'uiou\or
+ Omol'wiou\or Jeilo'ujiou\or Ippodr'omiou\or P'anamou\or
+ Pamboi'wtiou\or Dam'atriou\or Alalkom'eniou\or Bouk'atiou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Erma'iou\or Prostat'hriou\or Agri'wniou\or Jio'uiou\or
+ Omol'wiou\or Jeilo'ujiou\or Ippodr'omiou\or P'anamou\or
+ Pamboi'wtiou\or Dam'atriou\or Alalkom'eniou\or Bouk'atiou\fi}
+}}
+
+\DeclareOption{Samosmonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ Lhnai~wnos\or >Anjesthri~wnos\or >Artemisi~wnos\or Taure~wnos\or
+ P'anhmou\or Kroni~wnos\or Pelusi~wnos\or Metageitni~wnos\or
+ Bohdromi~wnos\or Kuanoyi~wnos\or >Apatouri~wnos\or Poseide~wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Lhnai~wnos\or >Anjesthri~wnos\or >Artemisi~wnos\or Taure~wnos\or
+ P'anhmou\or Kroni~wnos\or Pelusi~wnos\or Metageitni~wnos\or
+ Bohdromi~wnos\or Kuanoyi~wnos\or >Apatouri~wnos\or Poseide~wnos\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Lhnai'wnos\or Anjesthri'wnos\or Artemisi'wnos\or Taure'wnos\or
+ P'anhmou\or Kroni'wnos\or Pelusi'wnos\or Metageitni'wnos\or
+ Bohdromi'wnos\or Kuanoyi'wnos\or Apatouri'wnos\or Poseide'wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Lhnai'wnos\or Anjesthri'wnos\or Artemisi'wnos\or Taure'wnos\or
+ P'anhmou\or Kroni'wnos\or Pelusi'wnos\or Metageitni'wnos\or
+ Bohdromi'wnos\or Kuanoyi'wnos\or Apatouri'wnos\or Poseide'wnos\fi}
+}}
+
+\DeclareOption{Militosmonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ Lhnai~wnos\or >Anjesthri~wnos\or >Artemisi~wnos\or Taure~wnos\or
+ Jarghli~wnos\or Kalamai~wnos\or P'anhmou\or Metageitni~wnos \or
+ >It'wniou\or Puanoyi~wnos\or >Apatouri~wnos\or Poseide~wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Lhnai~wnos\or >Anjesthri~wnos\or >Artemisi~wnos\or Taure~wnos\or
+ Jarghli~wnos\or Kalamai~wnos\or P'anhmou\or Metageitni~wnos \or
+ >It'wniou\or Puanoyi~wnos\or >Apatouri~wnos\or Poseide~wnos\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Lhnai'wnos\or Anjesthri'wnos\or Artemisi'wnos\or Taure'wnos\or
+ Jarghli'wnos\or Kalamai'wnos\or P'anhmou\or Metageitni'wnos \or
+ It'wniou\or Puanoyi'wnos\or Apatouri'wnos\or Poseide'wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Lhnai'wnos\or Anjesthri'wnos\or Artemisi'wnos\or Taure'wnos\or
+ Jarghli'wnos\or Kalamai'wnos\or P'anhmou\or Metageitni'wnos \or
+ It'wniou\or Puanoyi'wnos\or Apatouri'wnos\or Poseide'wnos\fi}
+}}
+
+\DeclareOption{Tinosmonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ Lhnai~wnos\or >Anjesthri~wnos\or >Artemisi~wnos\or Taure~wnos\or
+ Targhli~wnos\or >Eleujuai~wnos\or >Apellai~wnos\or <Hrai~wnos\or
+ Boufwni~wnos\or Kuanoyi~wnos\or >Apatouri~wnos\or Poseide~wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Lhnai~wnos\or >Anjesthri~wnos\or >Artemisi~wnos\or Taure~wnos\or
+ Targhli~wnos\or >Eleujuai~wnos\or >Apellai~wnos\or <Hrai~wnos\or
+ Boufwni~wnos\or Kuanoyi~wnos\or >Apatouri~wnos\or Poseide~wnos\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Lhnai'wnos\or Anjesthri'wnos\or Artemisi'wnos\or Taure'wnos\or
+ Targhli'wnos\or Eleujuai'wnos\or Apellai'wnos\or Hrai'wnos\or
+ Boufwni'wnos\or Kuanoyi'wnos\or Apatouri'wnos\or Poseide'wnos\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Lhnai'wnos\or Anjesthri'wnos\or Artemisi'wnos\or Taure'wnos\or
+ Targhli'wnos\or Eleujuai'wnos\or Apellai'wnos\or Hrai'wnos\or
+ Boufwni'wnos\or Kuanoyi'wnos\or Apatouri'wnos\or Poseide'wnos\fi}
+}}
+
+\DeclareOption{Lamiamonths}{
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gr@month{%
+ \ifcase\month\or
+ Jrix'alliou\or Ge'ustou\or L'ukeou\or J'uou\or
+ >'Areou\or Qrutta'iou\or <Ippodr'omiou\or P'anamou\or
+ >It'wniou\or >Apella'iou\or Jem'istiou\or B'wmiou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Jrix'alliou\or Ge'ustou\or L'ukeou\or J'uou\or
+ >'Areou\or Qrutta'iou\or <Ippodr'omiou\or P'anamou\or
+ >It'wniou\or >Apella'iou\or Jem'istiou\or B'wmiou\fi}
+}{
+\def\gr@month{%
+ \ifcase\month\or
+ Jrix'alliou\or Ge'ustou\or L'ukeou\or J'uou\or
+ 'Areou\or Qrutta'iou\or Ippodr'omiou\or P'anamou\or
+ It'wniou\or Apella'iou\or Jem'istiou\or B'wmiou\fi}
+\def\gr@c@month{%
+ \ifcase\month\or
+ Jrix'alliou\or Ge'ustou\or L'ukeou\or J'uou\or
+ 'Areou\or Qrutta'iou\or Ippodr'omiou\or P'anamou\or
+ It'wniou\or Apella'iou\or Jem'istiou\or B'wmiou\fi}
+}}
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gretouc{>'etous}
+\def\grolympiad{>Olumpi'adas}
+}{
+\def\gretouc{'etous}
+\def\grolympiad{Olumpi'adas}
+}
+\DeclareOption{fullconversion}{
+\newcounter{olympicyearmo}\newcounter{olympicyear}
+\newcounter{olympiadd}
+\newcounter{olympiad}
+\setcounter{olympiadd}{\the\year + 776}
+\setcounter{olympiad}{\value{olympiadd} / 4}
+\setcounter{olympicyearmo}{\value{olympiadd} - \value{olympiad} * 4}
+\setcounter{olympicyear}{1+\value{olympicyearmo}}
+\def\dategreek{%
+ \def\today{\number\day{}h \space \gr@month\space
+{\theolympicyear}$^{\hbox{\footnotesize ou}}$ \gretouc\space
+{\theolympiad}hs \grolympiad }}
+\def\Grtoday{%
+ \expandafter\Greeknumeral\expandafter{\the\day}\space
+ \gr@c@month \space
+ \expandafter\Greeknumeral\expandafter
+{\theolympicyear} \gretouc \space
+\expandafter\Greeknumeral\expandafter{\theolympiad} \grolympiad }
+\def\shortdategreek{\the\day/\the\month/\theolympicyear/\theolympiad}
+\def\Grshortdategreek{\expandafter\Greeknumeral\expandafter{\the\day}/%
+\expandafter\Greeknumeral\expandafter{\the\month}/%
+\expandafter\Greeknumeral\expandafter{\theolympicyear}/%
+\expandafter\Greeknumeral\expandafter{\theolympiad}}
+\@ifclassloaded{letter}{\date{\shortdategreek}}{}
+}
+\ProcessOptions
+\endinput
+%%
+%% End of file `greekdates.sty'.