new latex package greekdates (30jul08)

git-svn-id: svn://tug.org/texlive/trunk@9915 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 935 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/latex/greekdates/greekdates.dtx b/Master/texmf-dist/source/latex/greekdates/greekdates.dtx
new file mode 100644
index 00000000000..c12f1eb2be9
--- /dev/null
+++ b/Master/texmf-dist/source/latex/greekdates/greekdates.dtx
@@ -0,0 +1,869 @@
+%% \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         \~}
+%\iffalse
+%
+% (c) copyright 2001 by 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.
+%
+% For any problems or remarks/feedback concerning this package,
+% please contact Dr. A. Tsolomitis at atsol@aegean.gr
+%
+%\fi
+%\CheckSum{1451}
+%\iffalse This is a Metacomment
+%
+%<greekdates, >\ProvidesFile{greekdates.sty}
+%
+%<greekdates, >[2001/05/15 v1.0 Package `greekdates.sty']
+%
+%    \begin{macrocode}
+%<*driver>
+\documentclass{ltxdoc}
+\GetFileInfo{greekdates.drv}
+\begin{document}
+   \DocInput{greekdates.dtx}
+\end{document}
+%</driver>
+%    \end{macrocode}
+% \fi
+%
+%\title{The `greekdates' package}
+%\author{Antonis Tsolomitis\\Department of Mathematics\\
+%University of the \AE gean\\
+%GR-$832\;00$  Karlovassi\\
+%Samos, HELLAS\\ 
+%E-mail:\ \texttt{atsol@aegean.gr}}
+% \date{2001/05/15}
+%\maketitle
+% 
+%\MakeShortVerb{\|}
+%\StopEventually{}
+%
+%\section{Introduction}
+%The package provides an easy interface to access the original Greek names of months,
+%days and dates relating to several Greek cities for which this information is available.
+%The package should be useful mainly to Greek Gentiles, to the historians and
+%anyone curious to see how the original Greek dates look like.
+%
+%\section{Month names\label{monthsnames}}
+%The month names where not the same throughout Greece. However we do not know the names for
+%all regions of Greece or for some regions we know the names of some of the months.
+%These regions are not covered by this package as our main target group are the Greek Gentiles
+%who would like to really use these names in their documents instead of the names enforced
+%by law during the Byzantine Era. The month names are accessed by commands of the form
+%\verb|\Regionmonth{|\textit{number}\verb|}| where \textit{number} is any integer
+%between one and twelve (historians may object to this choice as there was a thirteenth
+%month every four years, but as said before we want this package to be useful for everyday work
+%(e.g.\ for creating Calendars)
+%rather than strictly a study object).
+%
+%The \texttt{Region} is one of the following:
+%\begin{center}
+%\begin{tabular}{lll}
+%Athens & Delphi & Dilos\\
+%Epidavros & Rhodes & Macedonia\\
+%Aitolia & Biotia & Samos\\
+%Militos & Tinos & Lamia
+%\end{tabular}
+%\end{center}
+%Both polytonic (multi-accented) and monotonic (single-accented) are supported
+%and this is determined by whether we use the \texttt{polutonikogreek} or
+%the \texttt{greek} option of the \textsf{babel} package.
+%
+%Thus \verb|\Samosmonth{4}| will produce the Samian name of April.
+%
+%\section{Day Names}
+%
+%For day names we have three commands. These are \verb|\fullgreekday{|\textit{number}\verb|}|,
+%\verb|\shortgreekday{|\textit{number}\verb|}| and
+%\verb|\sshotrgreekday{|\textit{number}\verb|}|.
+%We designed these commands having in mind that they may be useful for the creation of calendars.
+%Thus the first command will create phrases like ``The Day of Zeus'' in Greek (Thursday). The later
+%is \verb|\fullgreekday{5}|. You just have to remember that Sunday is number 1 and also 
+%``The day of the Sun''. The other two commands produce abbrevations.
+%\verb|\shortgreekday{1}| will produce ``Sun's'' (in greek) and an even shorter form is
+%produced by \verb|\sshortgreekday{1}|.
+%
+%\section{Converting the standard name months}
+%
+%The package provides the options \verb|Regionmonths| where \verb|Region| is
+%one of the above names (in the section \ref{monthsnames}). If the package is loaded
+%say with the \texttt{Athensmonths} (\verb|\usepackage[Athensmonths]{greekdates}|)
+%the names for the months will be converted to the names used in Athens. This will
+%affect for example commands like \verb|\today|.
+%
+%\subsection{Full date conversion}
+%
+%If one wants to completely switch to the Greek way of counting dates then the 
+%option \texttt{fullconversion} should be used. This, together with the
+%selection of one of the region months options will not only change the months' names
+%but also adjust the way we count years. Thus \verb|\today| will now compute
+%the current Olympiad and the year within the current Olympiad  and will print something like
+%``5 monthname 2 year 694 Olympiad'', of course, in Greek. Similarly to the definition
+%of the \verb|\Grtoday| command of the greek option of the Babel package, this command
+%will now behave as \verb|\today| but the numbers will be written in Greek and not with
+%their Arabic forms (see the documentation of the greek option of the Babel package).
+%
+%We also define the commands \verb|\shortdategreek| and \verb|\Grshortdategreek|
+%which produce the date in short form. For example today is 8 May 2001 and if
+%I would use \verb|\shortdategreek| I would get 8/5/2/694, that is, the 8th day 
+%of the 5th month of the 2nd year of the 694 Olympiad.
+%If I would use \verb|\Grshortdategreek| I would get the same but with Greek numerals.
+%
+%\section{The code}
+%
+%    \begin{macrocode}
+%<*greekdates>
+\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}
+%    \end{macrocode}
+%
+% We begin by defining the days in full, 
+% short and sshort form as described above.
+%
+%\begin{macro}{\fullgreekday}
+% The command |\fullgreekday| is used to produce the name of the week's day
+% using a phrase like ``the day of the Sun'' in Greek (this is |\fullgreekday{1}|).
+% The argument is an integer from 1 to 7. Shorter forms follow.
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+%\begin{macro}{\shortgreekday}
+% The |\shortgreekday| macro gives a shorter form for the name of the day.
+% For example |\shortgreekday{1}| will give ``Sun's'' in Greek (instead of ``the day of 
+% the Sun'').
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+%\begin{macro}{\sshortgreekday}
+% An even shorter form is produced by the |\sshortgreekday| macro.
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+% We define the names of the months of several Greek 
+% regions plus the commands for accessing them 
+% as described above.
+%\begin{macro}{\Athensmonth}\label{Athensmonth}
+% We now define the names of the months for  the Athens region. the macro |\Athensmonth|
+% admits a compulsary argument (an integer from 1 to 12) and gives the name of the
+% corresponding month in the Athenian Calendar. Thus |\Athensmonth{2}| will produce the
+% name of the February in that calendar.
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Delphimonth}
+% We continue as with the Athenean names (see previous paragraph) 
+% with the names of the Delphi region
+% and with the  macro |\Delphimonth|
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Dilosmonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth}) 
+% with the names of the Island of Dilos region
+% and with the  macro |\Dilosmonth|
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Epidavrosmonth}
+% We continue as with the Athenean names  (see page \pageref{Athensmonth})
+% with the names of the Epidavros region 
+% and with the  macro |\Epidavrosmonth|
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Rhodesmonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth})
+% with the names of the island of Rhodes region
+% and with the  macro |\Rhodesmonth|
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Macedoniamonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth})
+% with the names of the Macedonia region
+% and with the  macro |\Macedoniamonth|
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Aitoliamonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth})
+% with the names of the Aitolia region
+% and with the  macro |\Aitoliamonth|
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Biotiamonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth})
+% with the names of the Biotia region
+% and with the  macro |\Biotiamonth|
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Samosmonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth})
+% with the names of the islan of Samos region
+% and with the  macro |\Samosmonth|
+%    \begin{macrocode}
+\@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}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Militosmonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth})
+% with the names of the Militos region
+% and with the  macro |\Militosmonth|
+%    \begin{macrocode}
+\@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}}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Tinosmonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth})
+% with the names of the island of Tinos region
+% and with the  macro |\Tinosmonth|
+%    \begin{macrocode}
+\@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}}
+%    \end{macrocode}
+%\end{macro}
+
+%\begin{macro}{\Lamiamonth}
+% We continue as with the Athenean names (see page \pageref{Athensmonth})
+% with the names of the Lamia region
+% and with the  macro |\Lamiamonth|
+%    \begin{macrocode}
+\@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}}
+%    \end{macrocode}
+%\end{macro}
+% We now define the options of the package relating 
+% to Greek regions giving the names of the months in 
+% the genitive form so that we can form Greek dates.
+%
+%    \begin{macrocode}
+\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}
+}}
+%    \end{macrocode}
+%
+% Now we turn to counting the years. We compute the 
+% current Olympiad by adding the number \verb|776| 
+% to the current year (\verb|776| before the beggining 
+% of the Christian chronology is the year of the first 
+% Olympiad) and dividing the result by \verb|4| 
+% (integer division). Again from the current year 
+% plus \verb|776| we subtract four times the curent 
+% Olympiad and we add \verb|1| in order to get the 
+% olympic year. Finally we redefine the commands 
+% \verb|\today| and \verb|\Grtoday|.
+% We start by defining some necessary Greek labels.
+%    \begin{macrocode}
+\@ifpackagewith{babel}{polutonikogreek}{
+\def\gretouc{>'etous}
+\def\grolympiad{>Olumpi'adas}
+}{
+\def\gretouc{'etous}
+\def\grolympiad{Olumpi'adas}
+}
+%    \end{macrocode}
+% We now define the package option |fullconversion|. This option redefined the commands
+% |\today| and |\Grtoday| to use the calendar names of the specified region option.
+% We start by computing the current Olympiad by the formula |(\year + 776)/4|. The value 
+% is stored in the |olympiad| counter. 
+%\begin{macro}{olympiad counter}
+%    \begin{macrocode}
+\DeclareOption{fullconversion}{
+\newcounter{olympicyearmo}\newcounter{olympicyear}
+\newcounter{olympiadd}
+\newcounter{olympiad}
+\setcounter{olympiadd}{\the\year + 776}
+\setcounter{olympiad}{\value{olympiadd} / 4}
+%    \end{macrocode}
+%\end{macro}
+% Now we compute the current year within the current olympiad with the formula
+% |((\year + 776) - (\value{olympiad} * 4))+1|
+%\begin{macro}{olympicyear counter}
+%    \begin{macrocode}
+\setcounter{olympicyearmo}{\value{olympiadd} - \value{olympiad} * 4}
+\setcounter{olympicyear}{1+\value{olympicyearmo}}
+%    \end{macrocode}
+%\end{macro}
+%\begin{macro}{\today}
+% We redefine the |\today| macro to produce the date according to the Greek calendar (ie,
+% using Olympiads and the month names of the selected region).
+%    \begin{macrocode}
+\def\dategreek{%
+  \def\today{\number\day{}h \space \gr@month\space 
+{\theolympicyear}$^{\hbox{\footnotesize ou}}$ \gretouc\space 
+{\theolympiad}hs \grolympiad }}
+%    \end{macrocode}
+%\end{macro}
+%\begin{macro}{\Grtoday}
+% we redefine the |\Grtoday| macro of the Greek option of the Babel package, 
+% so  that it produces the date according to the Greek calendar (ie,
+% using Olympiads and the month names of the selected region) but with Greek 
+% numbers instead of Arabic numbers.
+%    \begin{macrocode}
+\def\Grtoday{%
+  \expandafter\Greeknumeral\expandafter{\the\day}\space
+  \gr@c@month \space
+  \expandafter\Greeknumeral\expandafter
+{\theolympicyear} \gretouc \space
+\expandafter\Greeknumeral\expandafter{\theolympiad} \grolympiad }
+%    \end{macrocode}
+%\end{macro}
+% A few fixes: We define short forms of 
+% Greek dates (eg 15/5/2/694 is the 15th 
+% of May of the second year of the 694th 
+% Olympiad) and fix the behavior of 
+% \verb|\today| in the \verb|letter| 
+% document class.
+%\begin{macro}{\shortdategreek} 
+% Short form of Greek date (as described above) with Arabic numerals.
+%    \begin{macrocode}
+\def\shortdategreek{\the\day/\the\month/\theolympicyear/\theolympiad}
+%    \end{macrocode}
+%\end{macro}
+%\begin{macro}{\Grshortdategreek} 
+% Short form of Greek date (as described above) with Greek numerals.
+%    \begin{macrocode}
+\def\Grshortdategreek{\expandafter\Greeknumeral\expandafter{\the\day}/%
+\expandafter\Greeknumeral\expandafter{\the\month}/%
+\expandafter\Greeknumeral\expandafter{\theolympicyear}/%
+\expandafter\Greeknumeral\expandafter{\theolympiad}}
+%    \end{macrocode}
+%\end{macro}
+% Finally we provide a quick fix for the |letter| document class. This class uses the 
+% |\today| command to print the date on the letter below the sender's address.
+% But now this command has been already redefined above, 
+% and what it gives is too long for this use in letters. Thus 
+% we use the |\shortdategreek| instead of |\today|.
+%    \begin{macrocode}
+\@ifclassloaded{letter}{\date{\shortdategreek}}{}
+}
+\ProcessOptions
+\endinput
+%</greekdates>
+%    \end{macrocode} 
+%
+% \section*{Acknowledgment}
+% I thank Apostolos Syropoulos for checking the usability of this package. 
+% \section*{Dedication}
+% To my newborn daughter Callisto.
+% \Finale
+
+
+
+
diff --git a/Master/texmf-dist/source/latex/greekdates/greekdates.ins b/Master/texmf-dist/source/latex/greekdates/greekdates.ins
new file mode 100644
index 00000000000..d0c5daceed4
--- /dev/null
+++ b/Master/texmf-dist/source/latex/greekdates/greekdates.ins
@@ -0,0 +1,66 @@
+%% Copyright 2001 Antonis Tsolomitis
+%%
+%% This file is part of the `greekdates' package.
+%% You are not allowed to modify its contents.
+%%
+\def\filedate{2001/05/08}
+\def\batchfile{greekdates.ins}
+\input docstrip.tex
+
+{\ifx\generate\undefined
+\Msg{**********************************************}
+\Msg{*}
+\Msg{* This installation requires docstrip}
+\Msg{* version 2.3c or later.}
+\Msg{*}
+\Msg{* An older version of docstrip has been input}
+\Msg{*}
+\Msg{**********************************************}
+\errhelp{Move or rename old docstrip.tex.}
+\errmessage{Old docstrip in input path}
+\batchmode
+\csname @@end\endcsname
+\fi}
+
+\preamble
+
+ (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
+
+\endpreamble
+
+
+\keepsilent
+ 
+\generate{\generateFile{greekdates.sty}{f}{\from{greekdates.dtx}{greekdates}}}
+
+\postamble
+\endpostamble
+
+\Msg{**********************************************************}
+\Msg{* To finish installation you have to copy}
+\Msg{* the .sty file in the appropriate directories}
+\Msg{* and to rehash your TeX, if it is required to do so.}
+\Msg{*                  Happy Greek TeXing!}
+\Msg{**********************************************************}
+\endinput
+
+
+
+
+
+
+
+