%% 
%% This is file `scrdate.sty', generated 
%% on <1995/4/9> with the docstrip utility (2.2i).
%% 
%% The original source files were:
%% 
%% scrtime.dtx  (with options: `scrdate')
%% 
%% Copyright 1994 Markus Kohm. 
%% All rights reserved. For further copyright information see the file 
%% legal.txt, and any other copyright indicated in this file. 
%% 
%% This file is part of the LaTeX2e KOMA-Script-bundle. 
%% ---------------------------------------------------- 
%% 
%% The KOMA-Script-bundle bases on the Script-family created by 
%% Frank Neukam 1993 and the standard documents classes created 
%% by the LaTeX3-Team 1994. 
%% ------------------------------------------------------------- 
%% 
%% This system is distributed in the hope that it will be useful, 
%% but WITHOUT ANY WARRANTY; without even the implied warranty of 
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
%% 
%% 
%% IMPORTANT NOTICE: 
%% 
%% For error reports in case of UNCHANGED versions see documentation. 
%% 
%% Please do not request updates from us directly. Distribution is 
%% done through Mail-Servers, Mailboxes and TeX organizations. 
%% 
%% You are not allowed to change this file. 
%% 
%% You are allowed to distribute this file under the condition that 
%% it is distributed together with all files mentioned in readme.txt 
%% and liesmich.txt. 
%% 
%% If you receive only some of these files from someone, complain! 
%% 
%% You are NOT ALLOWED to distribute this file alone. You are NOT 
%% ALLOWED to take money for the distribution or use of either this 
%% file or a changed version, except for a nominal charge for copying 
%% etc. 
%% 
\NeedsTeXFormat{LaTeX2e}[1994/06/01]
\ProvidesPackage{scrdate}
                [1994/12/31 v1.0a LaTeX2e KOMA
                 package]
\newcommand\todaysname{%
  \begingroup%
  \@tempcnta\year\@tempcntb0%
  \ifnum\@tempcnta<1980 unknown\else%
    \advance\@tempcnta-1980%
    \@whilenum\@tempcnta>=4\do%
    {\advance\@tempcntb5\advance\@tempcnta-4}%
    \ifnum\@tempcnta>0%
      \ifnum\month>2\advance\@tempcntb1\fi%
    \else%
      \advance\@tempcntb\@tempcnta%
    fi%
    \ifcase\month\or\or\advance\@tempcntb3%  Jan =  28 + 3
                    \or\advance\@tempcntb3% +Feb =  56 + 3
                    \or\advance\@tempcntb6% +Mar =  84 + 6
                    \or\advance\@tempcntb1% +Apr = 119 + 1
                    \or\advance\@tempcntb4% +May = 147 + 4
                    \or\advance\@tempcntb6% +Jun = 175 + 6
                    \or\advance\@tempcntb2% +Jul = 210 + 2
                    \or\advance\@tempcntb5% +Aug = 238 + 5
                    \or%                    +Sep = 273 + 0
                    \or\advance\@tempcntb3% +Oct = 301 + 3
                    \or\advance\@tempcntb5% +Nov = 329 + 5
    \fi%
    \advance\@tempcntb\day%
    \advance\@tempcntb5% 0 is Monday!
    \@whilenum\@tempcntb>=7\do%
    {\advance\@tempcntb-7}%
    \@dayname{\@tempcntb}%
  \fi\endgroup}
\newcommand\nameday[1]{\renewcommand\todaysname{#1}}
\AtBeginDocument{%
  \let\D@dategerman=\dategerman%
    \def\dategerman{\let\@dayname=\dayname@german\D@dategerman}%
  \let\D@dateenglish=\dateenglish%
    \def\dateenglish{\let\@dayname=\dayname@english\D@dateenglish}%
  \let\D@dateUSenglish=\dateUSenglish%
    \def\dateUSenglish{\let\@dayname=\dayname@english\D@dateUSenglish}%
  \let\D@datefrench=\datefrench%
    \def\datefrench{\let\@dayname=\dayname@french\D@datefrench}
  \ifcase\language
    \dateUSenglish
  \or
    \dategerman
  \or
    \datefrench
  \fi
}
\newcommand\dayname@german[1]{%
  \begingroup%
  \@tempcnta #1%
  \ifcase\@tempcnta%
    Montag\or Dienstag\or Mittwoch\or Donnerstag\or%
    Freitag\or Samstag\or Sonntag\fi\endgroup%
}
\newcommand\dayname@english[1]{%
  \begingroup%
  \@tempcnta #1%
  \ifcase\@tempcnta%
    Monday\or Tuesday\or Wednesday\or Thursday\or%
    Friday\or Saturday\or Sunday\fi\endgroup%
}
\newcommand\dayname@french[1]{%
  \begingroup%
  \@tempcnta #1%
  \ifcase\@tempcnta%
    Lundi\or Mardi\or Mercredi\or Jeudi\or%
    Vendredi\or Samedi\or Dimanche\fi\endgroup%
}
\newcommand\newdaylanguage[8]{%
  \expandafter\def\csname dayname@#1\endcsname{%
    \begingroup%
      \@tempcnta #1%
      \ifcase\@tempcnta%
        #2\or #3\or #4\or #5\or #6\or #7\or #8\fi\endgroup%
  }
  \AtBeginDocument{
    \expandafter\let\csname D@date#1\endcsname=\csname date#1\endcsname
    \expandafter\def\csname date#1\endcsname{%
      \let\@dayname=\csname dayname@#1\endcsname\csname D@date#1\endcsname}%
    \expandafter\ifx\csname l@#1\endcsname\relax
    \else
      \ifnum\language=\csname l@#1\endcsname
        \csname date#1\endcsname
      \fi
    \fi
  }
}
\InputIfFileExists{scrdate.cfg}
           {\typeout{*************************************^^J%
                     * Local config file scrdate.cfg used^^J%
                     *************************************}}
           {}
\endinput
%% 
%% End of file `scrdate.sty'.