1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
\immediate\write16{OPUSDATes \oversion\space<\odate>}
\ifx\undefined\dategerman \else \endinput \fi
\chardef\atcode=\catcode`\@ \catcode`\@=11
%% This is 'stolen' from GERMAN.DTX/GERMAN.STY, Version 2.5b, 20. Jan 1995
% Dates
% -----
\def\month@german{\ifcase\month \or
Januar\or Februar\or M\"arz\or April\or Mai\or Juni\or
Juli\or August\or September\or Oktober\or November\or Dezember\fi}
\def\dategerman{\def\today{\the\day.~\month@german
\space\the\year}}
\def\dateaustrian{\def\today{\the\day.~\ifcase\month \or
J\"anner\else \month@german\fi \space\the\year}}
\def\month@english{\ifcase\month \or
January\or February\or March\or April\or May\or June\or
July\or August\or September\or October\or November\or December\fi}
\def\dateUSenglish{\def\today{\month@english
\space\the\day, \the\year}}
\def\dateenglish{\def\today{\the\day \ifcase\day \or
st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or% 1..10
th\or th\or th\or th\or th\or th\or th\or th\or th\or th\or% 11..20
st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or% 21..30
st\fi
~\month@english \space\the\year}}
\def\datefrench{\def\today{\the\day \ifcase\day \or \/$^{\rm er}$\fi
\space\ifcase\month \or
janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
juillet\or ao\^ut\or septembre\or octobre\or novembre\or d\'ecembre\fi
\space\the\year}}
\dateUSenglish % or whatever you prefer
\catcode`\@=\atcode \endinput
|
