% Gaelic date
% Courtesy of Ivan A Derzhanski <iad@cogsci.ed.ac.uk>
% As posted on USENET sci.lang on 94-10-19

\def\dateGaelic{\def\today
 {\newcount\l@@
  \ifnum\day=20 Am
  \else\l@@=\day \divide\l@@ by10 \multiply\l@@ by10 \advance\l@@ by1
  \ifnum\day=\l@@ \ifnum\day=1 An \else An t-\fi
  \else\advance\l@@ by7 \ifnum\day=\l@@ An t-\else An \fi\fi\fi
  \number\day
  \ifcase\day\or d \or a \or s
  \else\ifnum\day<11 mh
  \else\ifnum\day<20 g
  \else\ifnum\day=20 mh
  \else d \fi\fi\fi\fi
  de 'n\space
  {\ifcase\month
    \or Fhaoilleach\or Ghearran\or Mh\`art\or Ghiblean
    \or Ch\`eitean\or \`Og-mh\`\i os\or Iuchar\or L\`unasdal
    \or t-Sultuine\or D\`amhair\or t-Samhainn\or D\`ubhlaichd\fi}\space
  \number\year}}
