diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/genmisc/dow.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/dow.tex | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/Master/texmf-dist/tex/generic/genmisc/dow.tex b/Master/texmf-dist/tex/generic/genmisc/dow.tex deleted file mode 100644 index ea504ba375b..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/dow.tex +++ /dev/null @@ -1,44 +0,0 @@ -%%%------------Start Cutting------------------------------------------ -% \dowcomp returns integer day of week in \dow with Sunday=0. -% \downame returns the name of the day of the week. -% E.g., if \year=1963 \month=11 \day=22, -% then \dowcomp ==> \dow=5 and \downame ==> Friday which happened -% to be the day President John F. Kennedy was assasinated. - -% Converted from the lisp function DOW by Jon L. White given in -% the file LIBDOC DOW JONL3 on MIT-MC (which follows). - -%(defun dow (year month day) -% (and (and (fixp year) (fixp month) (fixp day)) -% ((lambda (a) -% (declare (fixnum a)) -% (\ (+ (// (1- (* 13. (+ month 10. -% (* (// (+ month 10.) -13.) 12.)))) -% 5.) -% day -% 77. -% (// (* 5. (- a (* (// a 100.) 100.))) 4.) -% (// a -2000.) -% (// a 400.) -% (* (// a -100.) 2.)) -% 7.)) -% (+ year (// (+ month -14.) 12.))))) - -\newcount\dow -\def\dowcomp{{\count3 \month \advance\count3 -14 \divide\count3 12 - \advance\count3 \year \count4 \month \advance\count4 10 - \divide\count4 -13 \multiply\count4 12 \advance\count4 10 - \advance\count4 \month \multiply\count4 13 \advance\count4 -1 - \divide\count4 5 \advance\count4 \day \advance\count4 77 - \count2 \count3 \divide\count2 100 \multiply\count2 -100 - \advance\count2 \count3 \multiply\count2 5 \divide\count2 4 - \advance\count4 \count2 \count2 \count3 \divide\count2 -2000 - \advance\count4 \count2 \count2 \count3 \divide\count2 400 - \advance\count4 \count2 \count2 \count3 \divide\count2 -100 - \multiply\count2 2 \advance\count4 \count2 \count2 \count4 - \divide\count2 7 \multiply\count2 -7 \advance\count4 \count2 - \global\dow \count4}} - -\def\dayname{\dowcomp \ifcase\dow Sunday\or Monday\or Tuesday\or - Wednesday\or Thursday\or Friday\else Saturday\fi} -%%%--------------Stop cutting----------------------------------------- |