%%
%% This is file `texdate.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% texdate.dtx  (with options: `package')
%% This is a generated file.
%% 
%% This document is copyright 2018 by Donald P. Goodman, and is
%% released publicly under the LaTeX Project Public License.  The
%% distribution and modification of this work is constrained by the
%% conditions of that license.  See
%% http://www.latex-project.org/lppl.txt
%% for the text of the license.  This document is released
%% under version 1.3(c) of that license, and this work may be distributed
%% or modified under the terms of that license or, at your option, any
%% later version.
%% 
%% This work has the LPPL maintenance status 'maintained'.
%% 
%% The Current Maintainer of this work is Donald P. Goodman
%% (dgoodmaniii@gmail.com).
%% 
%% This work consists of texdate.dtx, texdate.ins, and
%% derived files texdate.sty and texdate.pdf.

\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesPackage{texdate}[2018/12/08 v2.0 Print and manipulate dates in plain TeX]
\RequirePackage{modulus}%
\RequirePackage{padcount}%
\RequirePackage{iflang}%
\newcount\texd@loopi\texd@loopi=0%
\newcount\texd@mon\texd@mon=0%
\newcount\texd@dow\texd@dow=0%
\newcount\texd@dom\texd@dom=0%
\newcount\texd@yr\texd@yr=\year%
\newcount\texd@rdom\texd@rdom=\texd@dom\advance\texd@rdom by1%
\newcount\texd@rmon%
%% taken from dayofweek.tex, by Martin Minow of DEC;
%% included in TeXLive
\newcount\texd@dow% Gets day of the week
\newcount\texd@leap% Leap year fingaler
\newcount\texd@x% Temp register
\newcount\texd@y% Another temp register
\def\texd@nextdow#1#2#3{%
\global\texd@leap=#2%
\global\advance\texd@leap by-14%
\global\divide\texd@leap by12%
\global\advance\texd@leap by#3%
\global\texd@dow=#2%
\global\advance\texd@dow by10%
\global\texd@y=\texd@dow%
\global\divide\texd@y by13%
\global\multiply\texd@y by12%
\global\advance\texd@dow by-\texd@y%
\global\multiply\texd@dow by13%
\global\advance\texd@dow by-1%
\global\divide\texd@dow by5%
\global\advance\texd@dow by#1%
\global\advance\texd@dow by77%
\global\texd@x=\texd@leap%
\global\texd@y=\texd@x%
\global\divide\texd@y by100%
\global\multiply\texd@y by100%
\global\advance\texd@x by-\texd@y%
\global\multiply\texd@x by5%
\global\divide\texd@x by4%
\global\advance\texd@dow by\texd@x%
\global\texd@x=\texd@leap%
\global\divide\texd@x by400%
\global\advance\texd@dow by\texd@x%
\global\texd@x=\texd@leap%
\global\divide\texd@x by100%
\global\multiply\texd@x by2%
\global\advance\texd@dow by-\texd@x%
\global\texd@x=\texd@dow%
\global\divide\texd@x by7%
\global\multiply\texd@x by7%
\global\advance\texd@dow by-\texd@x%
}
%% end taken from dayofweek.tex, by Martin Minow of DEC;
%% included in TeXLive
\def\texd@leapyear{%
}%
\def\texd@downame{%
  \ifcase\texd@dow
\texd@firstdayname%
\or%
\texd@seconddayname%
\or%
\texd@thirddayname%
\or%
\texd@fourthdayname%
\or%
\texd@fifthdayname%
\or%
\texd@sixthdayname%
\or%
\texd@seventhdayname%
\fi%
}%
\def\texd@shdowname{%
  \ifcase\texd@dow
\texd@firstdayshname%
\or%
\texd@seconddayshname%
\or%
\texd@thirddayshname%
\or%
\texd@fourthdayshname%
\or%
\texd@fifthdayshname%
\or%
\texd@sixthdayshname%
\or%
\texd@seventhdayshname%
\fi%
}%
\def\texd@nextmonth{%
\ifnum\texd@mon<11\global\advance\texd@mon by1\fi%
\ifnum\texd@mon=11\global\texd@mon=0\fi%
}%
\def\texd@lastmonth{%
\ifnum\texd@mon=0%
\global\texd@mon=11%
\global\advance\texd@yr by-1%
\fi%
\ifnum\texd@mon>0\global\advance\texd@mon by-1\fi%
}%
\def\texd@nextdate{%
\ifnum\texd@mon=11%
\ifnum\texd@dom=30%
\global\advance\texd@yr by1%
\global\texd@mon=0%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<30%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=10%
\ifnum\texd@dom=29%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<29%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=9%
\ifnum\texd@dom=30%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<30%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=8%
\ifnum\texd@dom=29%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<29%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=7%
\ifnum\texd@dom=30%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<30%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=6%
\ifnum\texd@dom=30%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<30%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=5%
\ifnum\texd@dom=29%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<29%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=4%
\ifnum\texd@dom=30%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<30%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=3%
\ifnum\texd@dom=29%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<29%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=2%
\ifnum\texd@dom=30%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi
\ifnum\texd@dom<30%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@mon=1%
\ifnum\texd@leapyear=0%
\ifnum\texd@dom=27%
\global\advance\texd@mon by1%
\global\texd@dom=0%
\fi
\ifnum\texd@dom<27%
\global\advance\texd@dom by1%
\fi%
\else\ifnum\texd@leapyear=1%
\ifnum\texd@dom=28%
\global\advance\texd@mon by1%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<28%
\global\advance\texd@dom by1%
\fi%
\fi\fi%
\else\ifnum\texd@mon=0%
\ifnum\texd@dom=30%
\global\advance\texd@mon by1%%
\global\texd@dom=0%
\fi%
\ifnum\texd@dom<30%
\global\advance\texd@dom by1%
\fi%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
\global\texd@rdom=\texd@dom\global\advance\texd@rdom by1%
\global\texd@rmon=\texd@mon\global\advance\texd@rmon by1%
\texd@setjnum%
\texd@nextdow{\the\texd@rdom}{\the\texd@rmon}{\the\texd@yr}%
}%
\def\texd@lastdate{%
\global\advance\texd@dom by-1%
\ifnum\texd@dom=0%
\global\advance\texd@mon by-1%
\ifnum\texd@mon=11%
\global\texd@dom=30%
\fi%
\ifnum\texd@mon=0%
\global\texd@mon=11%
\global\advance\texd@yr by-1%
\global\texd@dom=30%
\fi%
\ifnum\texd@mon=10%
\global\texd@dom=29%
\fi%
\ifnum\texd@mon=9%
\global\texd@dom=30%
\fi%
\ifnum\texd@mon=8%
\global\texd@dom=29%
\fi%
\ifnum\texd@mon=7%
\global\texd@dom=30%
\fi%
\ifnum\texd@mon=6%
\global\texd@dom=30%
\fi%
\ifnum\texd@mon=5%
\global\texd@dom=29%
\fi%
\ifnum\texd@mon=4%
\global\texd@dom=30%
\fi%
\ifnum\texd@mon=3%
\global\texd@dom=29%
\fi%
\ifnum\texd@mon=2%
\global\texd@dom=30%
\fi%
\ifnum\texd@mon=1%
\ifnum\texd@leapyear=0%
\global\texd@dom=27%
\else\ifnum\texd@leapyear=1%
\global\texd@dom=28%
\fi\fi%
\fi%
\ifnum\texd@mon=0%
\global\texd@dom=30%
\fi%
\fi%
\global\texd@rdom=\texd@dom\global\advance\texd@rdom by1%
\global\texd@rmon=\texd@mon\global\advance\texd@rmon by1%
\texd@setjnum%
\texd@nextdow{\the\texd@rdom}{\the\texd@rmon}{\the\texd@yr}%
}%
\def\texd@setrdom{\global\texd@rdom=\texd@dom\global\advance\texd@rdom by1}%
\def\texd@setrmon{\global\texd@rmon=\texd@mon\global\advance\texd@rmon by1}%
\newcount\texd@leapyear\texd@leapyear=0%
\def\texd@isleapyear{%
\global\texd@leapyear=0%
\modulo{\texd@yr}{4}%
\ifnum\remainder=0%
\modulo{\texd@yr}{100}%
\ifnum\remainder=0%
\global\texd@leapyear=0%
\fi\ifnum\remainder>0%
\global\texd@leapyear=1%
\fi%
\fi%
}%
\def\texd@monthname{%
\ifnum\texd@mon=0%
\texd@firstmon%
\fi%
\ifnum\texd@mon=1%
\texd@secondmon%
\fi%
\ifnum\texd@mon=2%
\texd@thirdmon%
\fi%
\ifnum\texd@mon=3%
\texd@fourthmon%
\fi%
\ifnum\texd@mon=4%
\texd@fifthmon%
\fi%
\ifnum\texd@mon=5%
\texd@sixthmon%
\fi%
\ifnum\texd@mon=6%
\texd@seventhmon%
\fi%
\ifnum\texd@mon=7%
\texd@eighthmon%
\fi%
\ifnum\texd@mon=8%
\texd@ninthmon%
\fi%
\ifnum\texd@mon=9%
\texd@tenthmon%
\fi%
\ifnum\texd@mon=10%
\texd@eleventhmon%
\fi%
\ifnum\texd@mon=11%
\texd@twelfthmon%
\fi%
}%
\def\texd@shmonthname{%
\ifnum\texd@mon=0%
\texd@firstshmon%
\fi%
\ifnum\texd@mon=1%
\texd@secondshmon%
\fi%
\ifnum\texd@mon=2%
\texd@thirdshmon%
\fi%
\ifnum\texd@mon=3%
\texd@fourthshmon%
\fi%
\ifnum\texd@mon=4%
\texd@fifthshmon%
\fi%
\ifnum\texd@mon=5%
\texd@sixthshmon%
\fi%
\ifnum\texd@mon=6%
\texd@seventhshmon%
\fi%
\ifnum\texd@mon=7%
\texd@eighthshmon%
\fi%
\ifnum\texd@mon=8%
\texd@ninthshmon%
\fi%
\ifnum\texd@mon=9%
\texd@tenthshmon%
\fi%
\ifnum\texd@mon=10%
\texd@eleventhshmon%
\fi%
\ifnum\texd@mon=11%
\texd@twelfthshmon%
\fi%
}%
\def\advancebydays#1{%
\texd@loopi=0%
\loop%
\ifnum\texd@loopi<#1%
\texd@nextdate%
\advance\texd@loopi by1%
\repeat%
}%
\def\regressbydays#1{%
\texd@loopi=0%
\loop%
\ifnum\texd@loopi<#1%
\texd@lastdate%
\advance\texd@loopi by1%
\repeat%
}%
\newcount\texd@loopj%
\def\advancebyweeks#1{%
\texd@loopi=0%
\texd@loopj=#1%
\multiply\texd@loopj by7%
\loop%
\ifnum\texd@loopi<\texd@loopj%
\texd@nextdate%
\advance\texd@loopi by1%
\repeat%
}%
\def\regressbyweeks#1{%
\texd@loopi=0%
\texd@loopj=#1%
\multiply\texd@loopj by7%
\loop%
\ifnum\texd@loopi<\texd@loopj%
\texd@lastdate%
\advance\texd@loopi by1%
\repeat%
}%
\def\advancebymonths#1{%
\texd@loopi=0%
\loop%
\ifnum\texd@loopi<#1%
\texd@nextmonth%
\advance\texd@loopi by1%
\repeat%
\texd@setrmon%
\initdate{\the\texd@yr}{\the\texd@rmon}{\the\texd@rdom}%
}%
\def\regressbymonths#1{%
\texd@loopi=0%
\loop%
\ifnum\texd@loopi<#1%
\texd@lastmonth%
\advance\texd@loopi by1%
\repeat%
\texd@setrmon%
\initdate{\the\texd@yr}{\the\texd@rmon}{\the\texd@rdom}%
}%
\def\printdate{%
\texd@dateformat%
}%
\def\printfdate#1{%
\texd@formatdateformat{#1}%
}%
\def\texd@expandloop#1{%
\texd@xloop#1\relax
}
\def\texdatenumformat#1{#1}
\def\texd@xloop#1{%
\ifx\relax#1%
\else%
\ifx#1d%
\setpadnum{2}\setpadchar{0}%
\padnum{\texdatenumformat{\the\texd@rdom}}%
\else\ifx#1e%
\setpadnum{2}\setpadchar{\hskip1ex}%
\padnum{\texdatenumformat{\the\texd@rdom}}%
\else\ifx#1a%
\texd@shdowname%
\else\ifx#1A%
\texd@downame%
\else\ifx#1b%
\texd@shmonthname%
\else\ifx#1h%
\texd@shmonthname%
\else\ifx#1B%
\texd@monthname%
\else\ifx#1w%
\the\texd@dow%
\else\ifx#1u%
\ifnum\texd@dow>0\leavevmode\texdatenumformat{\the\texd@dow}\fi%
\ifnum\texd@dow=0 7\fi%
\else\ifx#1Y%
\setpadnum{2}\setpadchar{0}%
\padnum{\texdatenumformat{\the\texd@yr}}%
\else\ifx#1m%
\texd@setrmon%
\setpadnum{2}\setpadchar{0}%
\leavevmode\padnum{\texdatenumformat{\the\texd@rmon}}%
\else\ifx#1j%
\texd@setjnum%
\setpadnum{3}\setpadchar{0}%
\leavevmode\padnum{\texdatenumformat{\the\texd@jnum}}%
\else\ifx#1C%
\quotient{\texd@yr}{100}%
\leavevmode\texdatenumformat{\the\intquotient}%
\else\ifx#1y%
\modulo{\texd@yr}{100}%
\leavevmode\texdatenumformat{\the\remainder}%
\else\ifx#1U%
\quotient{\texd@jnum}{7}
\setpadnum{2}\setpadchar{0}%
\leavevmode\padnum{\texdatenumformat{\the\intquotient}}%
\else\ifx#1V%
\quotient{\texd@jnum}{7}
\ifnum\texd@dow>0\advance\intquotient by1\fi%
\setpadnum{2}\setpadchar{0}%
\leavevmode\padnum{\texdatenumformat{\the\intquotient}}%
\else\ifx#1W%
\quotient{\texd@jnum}{7}
\ifnum\texd@dow=0\advance\intquotient by-1\fi%
\setpadnum{2}\setpadchar{0}%
\leavevmode\padnum{\texdatenumformat{\the\intquotient}}%
\else%
#1%
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
\expandafter\texd@xloop%
\fi%
}%
\def\texd@dateformat{%
\expandafter\expandafter\texd@expandloop{\setdateformat}%
}%
\def\texd@formatdateformat#1{%
\expandafter\expandafter\expandafter\expandafter\expandafter\expandafter\texd@expandloop{\csname texd@df#1\endcsname}%
}%
\def\setdateformat{A{ }(a),\ B\ (b){ }d,\ Y}
\def\nameddateformat#1#2{%
\expandafter\def\csname texd@df#1\endcsname{#2}%
}%
\nameddateformat{american}{B\ d,\ Y}
\nameddateformat{shamerican}{m/d/Y}
\nameddateformat{ISO}{Ymd}
\nameddateformat{ISOext}{Y-m-d}
\nameddateformat{shbritish}{d/m/Y}
\nameddateformat{shbritishdots}{d.m.Y}
\nameddateformat{british}{d\ B\ Y}
\nameddateformat{d}{d}
\nameddateformat{e}{e}
\nameddateformat{B}{B}
\nameddateformat{b}{b}
\nameddateformat{h}{h}
\nameddateformat{m}{m}
\nameddateformat{A}{A}
\nameddateformat{a}{a}
\nameddateformat{w}{w}
\nameddateformat{u}{u}
\nameddateformat{Y}{Y}
\nameddateformat{j}{j}
\nameddateformat{C}{C}
\nameddateformat{y}{y}
\nameddateformat{U}{U}
\nameddateformat{V}{V}
\nameddateformat{W}{W}
\def\initcurrdate{%
\global\texd@mon=\month%
\global\advance\texd@mon by-1%
\global\texd@dom=\day%
\global\advance\texd@dom by-1%
\global\texd@yr=\year%
\texd@isleapyear%
\texd@setrdom%
\texd@setrmon%
\texd@setjnum%
\texd@nextdow{\the\texd@rdom}{\the\texd@rmon}{\the\texd@yr}%
}%
\def\initdate#1#2#3{%
\global\texd@yr=#1%
\global\texd@mon=#2%
\global\advance\texd@mon by-1%
\global\texd@dom=#3%
\global\advance\texd@dom by-1%
\global\texd@setrdom%
\global\texd@setrmon%
\texd@setjnum%
\texd@isleapyear%
\texd@nextdow{\the\texd@rdom}{\the\texd@rmon}{\the\texd@yr}%
}%
\def\savedate#1{%
\expandafter\edef\csname savedate#1\endcsname{\initdate{\the\texd@yr}{\the\texd@rmon}{\the\texd@rdom}}%
}%
\def\restoredate#1{%
\csname savedate#1\endcsname%
}%
\newcount\texd@looptmp\texd@looptmp=0%
\def\texdcal#1#2{%
\global\texd@mon=#2%
\global\advance\texd@mon by-1%
\global\texd@yr=#1%
\global\texd@dom=0%
\texd@setrmon\texd@setrdom%
\initdate{\the\texd@yr}{\the\texd@rmon}{\the\texd@rdom}%
\def\setdateformat{B\ Y}%
\begin{tabular}{rrrrrrr}
\multicolumn{7}{c}{\printdate} \\
\loop\ifnum\texd@dow>0\texd@lastdate\repeat%
\def\setdateformat{d}%
\ifnum\texd@dom>8 {} \fi\ifnum\texd@dom<8\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom>8 {} \fi\ifnum\texd@dom<8\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom>8 {} \fi\ifnum\texd@dom<8\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom>8 {} \fi\ifnum\texd@dom<8\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom>8 {} \fi\ifnum\texd@dom<8\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom>8 {} \fi\ifnum\texd@dom<8\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom>8 {} \fi\ifnum\texd@dom<8\leavevmode\printdate\fi\\
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate \\
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate \\
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate &
\def\setdateformat{d}\advancebydays{1}\printdate \\
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi\\
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi&
\def\setdateformat{d}\advancebydays{1}%
\ifnum\texd@dom<14 {} \fi\ifnum\texd@dom>14\leavevmode\printdate\fi\\
\end{tabular}
}%
\def\texdcalyear#1{%
\texd@yr=#1%
\texd@mon=0%
\texd@dom=0%
\texd@setrmon%
\texd@setrdom%
{\tabcolsep=3pt%
\begin{tabular}{ccc}
\texdcal{#1}{1} & \texdcal{#1}{2} & \texdcal{#1}{3} \\
\texdcal{#1}{4} & \texdcal{#1}{5} & \texdcal{#1}{6} \\
\texdcal{#1}{7} & \texdcal{#1}{8} & \texdcal{#1}{9} \\
\texdcal{#1}{10} & \texdcal{#1}{11} & \texdcal{#1}{12} \\
\end{tabular}
}%
}%
\newcount\texd@jnum\texd@jnum=0%
\def\texd@setjnum{%
\texd@jnum=0%
\ifnum\texd@mon>0\global\advance\texd@jnum by31\fi%
\ifnum\texd@mon>1%
\global\advance\texd@jnum by28%
\fi%
\ifnum\texd@mon>2\global\advance\texd@jnum by31\fi%
\ifnum\texd@mon>3\global\advance\texd@jnum by30\fi%
\ifnum\texd@mon>4\global\advance\texd@jnum by31\fi%
\ifnum\texd@mon>5\global\advance\texd@jnum by30\fi%
\ifnum\texd@mon>6\global\advance\texd@jnum by31\fi%
\ifnum\texd@mon>7\global\advance\texd@jnum by31\fi%
\ifnum\texd@mon>8\global\advance\texd@jnum by30\fi%
\ifnum\texd@mon>9\global\advance\texd@jnum by31\fi%
\ifnum\texd@mon>10\global\advance\texd@jnum by30\fi%
\global\advance\texd@jnum by\the\texd@dom%
\global\advance\texd@jnum by1%
}%
\def\texd@firstmon{January}%
\def\texd@firstshmon{Jan}%
\def\texd@secondmon{February}%
\def\texd@secondshmon{Feb}%
\def\texd@thirdmon{March}%
\def\texd@thirdshmon{Mar}%
\def\texd@fourthmon{April}%
\def\texd@fourthshmon{Apr}%
\def\texd@fifthmon{May}%
\def\texd@fifthshmon{May}%
\def\texd@sixthmon{June}%
\def\texd@sixthshmon{Jun}%
\def\texd@seventhmon{July}%
\def\texd@seventhshmon{Jul}%
\def\texd@eighthmon{August}%
\def\texd@eighthshmon{Aug}%
\def\texd@ninthmon{September}%
\def\texd@ninthshmon{Sep}%
\def\texd@tenthmon{October}%
\def\texd@tenthshmon{Oct}%
\def\texd@eleventhmon{November}%
\def\texd@eleventhshmon{Nov}%
\def\texd@twelfthmon{December}%
\def\texd@twelfthshmon{Dec}%
\def\texd@firstdayname{Sunday}%
\def\texd@firstdayshname{Sun}%
\def\texd@seconddayname{Monday}%
\def\texd@seconddayshname{Mon}%
\def\texd@thirddayname{Tuesday}%
\def\texd@thirddayshname{Tue}%
\def\texd@fourthdayname{Wednesday}%
\def\texd@fourthdayshname{Wed}%
\def\texd@fifthdayname{Thursday}%
\def\texd@fifthdayshname{Thu}%
\def\texd@sixthdayname{Friday}%
\def\texd@sixthdayshname{Fri}%
\def\texd@seventhdayname{Saturday}%
\def\texd@seventhdayshname{Sat}%
\AtBeginDocument{%
\IfLanguageName{spanish}{%
\def\texd@firstmon{enero}%
\def\texd@firstshmon{ene}%
\def\texd@secondmon{febrero}%
\def\texd@secondshmon{feb}%
\def\texd@thirdmon{marzo}%
\def\texd@thirdshmon{mar}%
\def\texd@fourthmon{abril}%
\def\texd@fourthshmon{abr}%
\def\texd@fifthmon{mayo}%
\def\texd@fifthshmon{may}%
\def\texd@sixthmon{junio}%
\def\texd@sixthshmon{jun}%
\def\texd@seventhmon{julio}%
\def\texd@seventhshmon{jul}%
\def\texd@eighthmon{agosto}%
\def\texd@eighthshmon{ago}%
\def\texd@ninthmon{septiembre}%
\def\texd@ninthshmon{sep}%
\def\texd@tenthmon{octubre}%
\def\texd@tenthshmon{oct}%
\def\texd@eleventhmon{noviembre}%
\def\texd@eleventhshmon{nov}%
\def\texd@twelfthmon{diciembre}%
\def\texd@twelfthshmon{dic}%
\def\texd@firstdayname{domingo}%
\def\texd@firstdayshname{dom}%
\def\texd@seconddayname{lunes}%
\def\texd@seconddayshname{lun}%
\def\texd@thirddayname{martes}%
\def\texd@thirddayshname{mar}%
\def\texd@fourthdayname{miercoles}%
\def\texd@fourthdayshname{mie}%
\def\texd@fifthdayname{jueves}%
\def\texd@fifthdayshname{jue}%
\def\texd@sixthdayname{viernes}%
\def\texd@sixthdayshname{vie}%
\def\texd@seventhdayname{sabado}%
\def\texd@seventhdayshname{sab}%
}{}%
\IfLanguageName{french}{%
\def\texd@firstmon{janvier}%
\def\texd@firstshmon{janv}%
\def\texd@secondmon{février}%
\def\texd@secondshmon{févr}%
\def\texd@thirdmon{mars}%
\def\texd@thirdshmon{mars}%
\def\texd@fourthmon{avril}%
\def\texd@fourthshmon{avr}%
\def\texd@fifthmon{mai}%
\def\texd@fifthshmon{mai}%
\def\texd@sixthmon{juin}%
\def\texd@sixthshmon{juin}%
\def\texd@seventhmon{juil}%
\def\texd@seventhshmon{juil}%
\def\texd@eighthmon{août}%
\def\texd@eighthshmon{août}%
\def\texd@ninthmon{septembre}%
\def\texd@ninthshmon{sept}%
\def\texd@tenthmon{octobre}%
\def\texd@tenthshmon{oct}%
\def\texd@eleventhmon{novembre}%
\def\texd@eleventhshmon{nov}%
\def\texd@twelfthmon{décembre}%
\def\texd@twelfthshmon{déc}%
\def\texd@firstdayname{dimanche}%
\def\texd@firstdayshname{dim}%
\def\texd@seconddayname{lundi}%
\def\texd@seconddayshname{lun}%
\def\texd@thirddayname{mardi}%
\def\texd@thirddayshname{mar}%
\def\texd@fourthdayname{mercredi}%
\def\texd@fourthdayshname{mer}%
\def\texd@fifthdayname{jeudi}%
\def\texd@fifthdayshname{jeu}%
\def\texd@sixthdayname{vendredi}%
\def\texd@sixthdayshname{ven}%
\def\texd@seventhdayname{samedi}%
\def\texd@seventhdayshname{sam}%
}{}%
\IfLanguageName{german}{%
\def\texd@firstmon{Januar}%
\def\texd@firstshmon{Jan}%
\def\texd@secondmon{Februar}%
\def\texd@secondshmon{Feb}%
\def\texd@thirdmon{März}%
\def\texd@thirdshmon{März}%
\def\texd@fourthmon{April}%
\def\texd@fourthshmon{Apr}%
\def\texd@fifthmon{Mai}%
\def\texd@fifthshmon{Mai}%
\def\texd@sixthmon{Juni}%
\def\texd@sixthshmon{Juni}%
\def\texd@seventhmon{Juli}%
\def\texd@seventhshmon{Juli}%
\def\texd@eighthmon{August}%
\def\texd@eighthshmon{Aug}%
\def\texd@ninthmon{September}%
\def\texd@ninthshmon{Sept}%
\def\texd@tenthmon{Oktober}%
\def\texd@tenthshmon{Okt}%
\def\texd@eleventhmon{November}%
\def\texd@eleventhshmon{Nov}%
\def\texd@twelfthmon{Dezember}%
\def\texd@twelfthshmon{Dez}%
\def\texd@firstdayname{Sonntag}%
\def\texd@firstdayshname{So}%
\def\texd@seconddayname{Montag}%
\def\texd@seconddayshname{Mo}%
\def\texd@thirddayname{Dienstag}%
\def\texd@thirddayshname{Di}%
\def\texd@fourthdayname{Mittwoch}%
\def\texd@fourthdayshname{Mi}%
\def\texd@fifthdayname{Donnerstag}%
\def\texd@fifthdayshname{Do}%
\def\texd@sixthdayname{Freitag}%
\def\texd@sixthdayshname{Fr}%
\def\texd@seventhdayname{Samstag}%
\def\texd@seventhdayshname{Sa}%
}{}%
}%
\endinput
%%
%% End of file `texdate.sty'.
