%% %% 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 Am'alios\or B'usios\or Jeox'enios\or >Enduspoitr'opios\or Ila~ios\or >Apella~ios\or Bouk'atios\or Boaj'oos\or Artemisi'wn\or Jarghli'wn\or P'anhmos\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 Artam'itios\or >Agri'anios\or Artem'isios\or Da'isios\or P'anhmos\or L~wos\or Gorpia~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 Ag'ueios\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 Agri'wnios\or Jio'uios\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 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 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 Anjesthri~wnos\or >Elafhboli~wnos\or Mounuqi~wnos \or Jarghli~wnos\or Skirofori~wnos\or Am'aliou\or B'usiou\or Jeox'eniou\or >Enduspoitr'opiou\or Ila'iou\or >Apella'iou\or Bouk'atiou\or Boaj'oou\or Am'aliou\or B'usiou\or Jeox'eniou\or >Enduspoitr'opiou\or Ila'iou\or >Apella'iou\or Bouk'atiou\or Boaj'oou\or Artemisi~wnos\or Jarghli~wnos\or P'anhmou\or Apatouri~wnos\or >Arhsi~wnos\or Poseide~wnos\fi} \def\gr@c@month{% \ifcase\month\or Lhni~wnos\or Artemisi~wnos\or Jarghli~wnos\or P'anhmou\or Apatouri~wnos\or >Arhsi~wnos\or Poseide~wnos\fi} }{ \def\gr@month{% \ifcase\month\or Lhni'wnos\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 Artam'itiou\or >Ari'aniou\or P'anamou\or K'ukliou\or >Apella'iou\or >Az'osiou\or Karne'iou\or Pror'atiou\or Artam'itiou\or >Agri'aniou\or Artam'itiou\or >Agri'aniou\or Artem'isiou\or Da'isiou\or P'anhmou\or L'wou\or Gorpia'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 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 Ag'ueiou\or Ajana'iou\or Bouk'atiou\or Lafria'iou\fi} \def\gr@c@month{% \ifcase\month\or E>ujua'iou\or Ag'ueiou\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 Agri'wniou\or Jio'uiou\or Alalkom'eniou\or Bouk'atiou\fi} \def\gr@c@month{% \ifcase\month\or Agri'wniou\or Jio'uiou\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 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 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 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 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'.