%% 
%% This is file `scrdate.sty',
%% generated with the docstrip utility.
%% 
%% The original source files were:
%% 
%% scrtime.dtx  (with options: `scrdate')
%% 
%% Copyright 1994-1996 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 (but not this file) bases on the 
%% Script-family created by Frank Neukam 1993 and the standard 
%% documents classes created by the LaTeX3-Team 1994-1996. 
%% ------------------------------------------------------------- 
%% 
%% 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}[1995/12/01]
\ProvidesPackage{scrdate}
                [1996/01/14 v1.1d LaTeX2e KOMA
                 package]
\newcommand\todaysname{%
  \begingroup%
  \@tempcnta=\year
  \@tempcntb=1 % 1. Januar 1980 war ein Dienstag
  \ifnum\@tempcnta<1980 unknown\else%
    \advance\@tempcnta by-1980%
    \@whilenum\@tempcnta>3\do%
    {\advance\@tempcntb by5\advance\@tempcnta by-4}%
    \ifnum\@tempcnta=0%
      \ifnum\month>2\advance \@tempcntb by1\fi%
    \else%
      \advance\@tempcntb by\@tempcnta%
      \advance\@tempcntb by1
    \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 by\day%
    \advance\@tempcntb by-1% Die Zaehlung beginnt bei 0
    \@whilenum\@tempcntb>6\do%
    {\advance\@tempcntb by-7}%
    \@dayname{\@tempcntb}%
  \fi\endgroup}
\newcommand\nameday[1]{\renewcommand\todaysname{#1}}
\newcommand\newdaylanguage[8]{%
  \expandafter\ifx\csname l@#1\endcsname\relax
    \PackageWarningNoLine{scrdate}{Language #1\space not defined.\MessageBreak
                                  \protect\dayname@#1\space skipped!}
  \else
    \@namedef{dayname@#1}##1{%
      \begingroup%
        \@tempcnta ##1%
        \ifcase\@tempcnta%
          #2\or #3\or #4\or #5\or #6\or #7\or #8\fi\endgroup%
    }
    \AtBeginDocument{
      \expandafter\ifx\csname date#1\endcsname\relax
        \PackageWarningNoLine{scrdate}
                             {\protect\date#1\space not defined.\MessageBreak
                              \protect\todaysname maybe can't use
                              \protect\dayname@#1!}
      \else
        \expandafter\let\csname D@date#1\expandafter\endcsname
                        \csname date#1\endcsname
        \@namedef{date#1}{%
          \expandafter\let\expandafter\@dayname\csname dayname@#1\endcsname
          \@nameuse{D@date#1}}%
        \ifnum\language=\@nameuse{l@#1}
          \@nameuse{date#1}
        \fi
      \fi
    }
  \fi
}
\newdaylanguage{german}{Montag}{Dienstag}{Mittwoch}
               {Donnerstag}{Freitag}{Samstag}{Sonntag}
\newdaylanguage{english}{Monday}{Thuesday}{Wednesday}
               {Thursday}{Friday}{Saturday}{Sunday}
\newdaylanguage{USenglish}{Monday}{Thuesday}{Wednesday}
               {Thursday}{Friday}{Saturday}{Sunday}
\newdaylanguage{french}{Lundi}{Mardi}{Mercredi}
               {Jeudi}{Vendredi}{Samedi}{Dimanche}
\def\@dayname#1{%
  \begingroup%
    \@tempcnta #1%
    \ifcase\@tempcnta%
      Monday\or Thuesday\or Wednesday\or Thursday\or
      Friday\or Saturday\or Sunday\fi\endgroup%
}
\InputIfFileExists{scrdate.cfg}
           {\typeout{*************************************^^J%
                     * Local config file scrdate.cfg used^^J%
                     *************************************}}
           {}
\endinput
%% 
%% End of file `scrdate.sty'.
