diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel/babel-ca-hebrew.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/babel/babel-ca-hebrew.tex | 290 |
1 files changed, 290 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/babel/babel-ca-hebrew.tex b/Master/texmf-dist/tex/generic/babel/babel-ca-hebrew.tex new file mode 100644 index 00000000000..8e9b4b7a232 --- /dev/null +++ b/Master/texmf-dist/tex/generic/babel/babel-ca-hebrew.tex @@ -0,0 +1,290 @@ +%% +%% This is file `babel-ca-hebrew.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% babel.dtx (with options: `ca-hebrew') +%% +%% +%% Copyright (C) 2012-2022 Javier Bezos and Johannes L. Braams. +%% Copyright (C) 1989-2012 Johannes L. Braams and +%% any individual authors listed elsewhere in this file. +%% All rights reserved. +%% +%% +%% This file is part of the Babel system. +%% -------------------------------------- +%% +%% It may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3 or later is part of all distributions of LaTeX +%% version 2003/12/01 or later. +%% +%% This work has the LPPL maintenance status "maintained". +%% +%% The Current Maintainer of this work is Javier Bezos. +%% +%% The list of derived (unpacked) files belonging to the distribution +%% and covered by LPPL is defined by the unpacking scripts (with +%% extension |.ins|) which are part of the distribution. +%% + +\newcount\bbl@cntcommon +\def\bbl@remainder#1#2#3{% + #3 = #1 % c = a + \divide #3 by #2 % c = a/b + \multiply #3 by -#2 % c = -b(a/b) + \advance #3 by #1 }% % c = a - b(a/b) +\newif\ifbbl@divisible +\def\bbl@checkifdivisible#1#2{% + {\countdef\tmp = 0 % \tmp == \count0 - temporary variable + \bbl@remainder{#1}{#2}{\tmp}% + \ifnum \tmp = 0 + \global\bbl@divisibletrue + \else + \global\bbl@divisiblefalse + \fi}} +\newif\ifbbl@gregleap +\def\bbl@ifgregleap#1{% + \bbl@checkifdivisible{#1}{4}% + \ifbbl@divisible + \bbl@checkifdivisible{#1}{100}% + \ifbbl@divisible + \bbl@checkifdivisible{#1}{400}% + \ifbbl@divisible + \bbl@gregleaptrue + \else + \bbl@gregleapfalse + \fi + \else + \bbl@gregleaptrue + \fi + \else + \bbl@gregleapfalse + \fi + \ifbbl@gregleap} +\def\bbl@gregdayspriormonths#1#2#3{% no month number 0 + {#3 = \ifcase #1 0 \or 0 \or 31 \or 59 \or 90 \or 120 \or 151 \or + 181 \or 212 \or 243 \or 273 \or 304 \or 334 \fi + \bbl@ifgregleap{#2}% + \ifnum #1 > 2 % if month after February + \advance #3 by 1 % add leap day + \fi + \fi + \global\bbl@cntcommon = #3}% + #3 = \bbl@cntcommon} +\def\bbl@gregdaysprioryears#1#2{% + {\countdef\tmpc = 4 % \tmpc==\count4 + \countdef\tmpb = 2 % \tmpb==\count2 + \tmpb = #1 % + \advance \tmpb by -1 % + \tmpc = \tmpb % \tmpc = \tmpb = year-1 + \multiply \tmpc by 365 % Days in prior years = + #2 = \tmpc % = 365*(year-1) ... + \tmpc = \tmpb % + \divide \tmpc by 4 % \tmpc = (year-1)/4 + \advance #2 by \tmpc % ... plus Julian leap days ... + \tmpc = \tmpb % + \divide \tmpc by 100 % \tmpc = (year-1)/100 + \advance #2 by -\tmpc % ... minus century years ... + \tmpc = \tmpb % + \divide \tmpc by 400 % \tmpc = (year-1)/400 + \advance #2 by \tmpc % ... plus 4-century years. + \global\bbl@cntcommon = #2}% + #2 = \bbl@cntcommon} +\def\bbl@absfromgreg#1#2#3#4{% + {\countdef\tmpd = 0 % \tmpd==\count0 + #4 = #1 % days so far this month + \bbl@gregdayspriormonths{#2}{#3}{\tmpd}% + \advance #4 by \tmpd % add days in prior months + \bbl@gregdaysprioryears{#3}{\tmpd}% + \advance #4 by \tmpd % add days in prior years + \global\bbl@cntcommon = #4}% + #4 = \bbl@cntcommon} +\newif\ifbbl@hebrleap +\def\bbl@checkleaphebryear#1{% + {\countdef\tmpa = 0 % \tmpa==\count0 + \countdef\tmpb = 1 % \tmpb==\count1 + \tmpa = #1 + \multiply \tmpa by 7 + \advance \tmpa by 1 + \bbl@remainder{\tmpa}{19}{\tmpb}% + \ifnum \tmpb < 7 % \tmpb = (7*year+1)%19 + \global\bbl@hebrleaptrue + \else + \global\bbl@hebrleapfalse + \fi}} +\def\bbl@hebrelapsedmonths#1#2{% + {\countdef\tmpa = 0 % \tmpa==\count0 + \countdef\tmpb = 1 % \tmpb==\count1 + \countdef\tmpc = 2 % \tmpc==\count2 + \tmpa = #1 % + \advance \tmpa by -1 % + #2 = \tmpa % #2 = \tmpa = year-1 + \divide #2 by 19 % Number of complete Meton cycles + \multiply #2 by 235 % #2 = 235*((year-1)/19) + \bbl@remainder{\tmpa}{19}{\tmpb}% \tmpa = years%19-years this cycle + \tmpc = \tmpb % + \multiply \tmpb by 12 % + \advance #2 by \tmpb % add regular months this cycle + \multiply \tmpc by 7 % + \advance \tmpc by 1 % + \divide \tmpc by 19 % \tmpc = (1+7*((year-1)%19))/19 - + \advance #2 by \tmpc % add leap months + \global\bbl@cntcommon = #2}% + #2 = \bbl@cntcommon} +\def\bbl@hebrelapseddays#1#2{% + {\countdef\tmpa = 0 % \tmpa==\count0 + \countdef\tmpb = 1 % \tmpb==\count1 + \countdef\tmpc = 2 % \tmpc==\count2 + \bbl@hebrelapsedmonths{#1}{#2}% + \tmpa = #2 % + \multiply \tmpa by 13753 % + \advance \tmpa by 5604 % \tmpa=MonthsElapsed*13758 + 5604 + \bbl@remainder{\tmpa}{25920}{\tmpc}% \tmpc == ConjunctionParts + \divide \tmpa by 25920 + \multiply #2 by 29 + \advance #2 by 1 + \advance #2 by \tmpa % #2 = 1 + MonthsElapsed*29 + + \bbl@remainder{#2}{7}{\tmpa}% % \tmpa == DayOfWeek + \ifnum \tmpc < 19440 + \ifnum \tmpc < 9924 + \else % New moon at 9 h. 204 p. or later + \ifnum \tmpa = 2 % on Tuesday ... + \bbl@checkleaphebryear{#1}% of a common year + \ifbbl@hebrleap + \else + \advance #2 by 1 + \fi + \fi + \fi + \ifnum \tmpc < 16789 + \else % New moon at 15 h. 589 p. or later + \ifnum \tmpa = 1 % on Monday ... + \advance #1 by -1 + \bbl@checkleaphebryear{#1}% at the end of leap year + \ifbbl@hebrleap + \advance #2 by 1 + \fi + \fi + \fi + \else + \advance #2 by 1 % new moon at or after midday + \fi + \bbl@remainder{#2}{7}{\tmpa}% % \tmpa == DayOfWeek + \ifnum \tmpa = 0 % if Sunday ... + \advance #2 by 1 + \else % + \ifnum \tmpa = 3 % Wednesday ... + \advance #2 by 1 + \else + \ifnum \tmpa = 5 % or Friday + \advance #2 by 1 + \fi + \fi + \fi + \global\bbl@cntcommon = #2}% + #2 = \bbl@cntcommon} +\def\bbl@daysinhebryear#1#2{% + {\countdef\tmpe = 12 % \tmpe==\count12 + \bbl@hebrelapseddays{#1}{\tmpe}% + \advance #1 by 1 + \bbl@hebrelapseddays{#1}{#2}% + \advance #2 by -\tmpe + \global\bbl@cntcommon = #2}% + #2 = \bbl@cntcommon} +\def\bbl@hebrdayspriormonths#1#2#3{% + {\countdef\tmpf= 14 % \tmpf==\count14 + #3 = \ifcase #1 % Days in prior month of regular year + 0 \or % no month number 0 + 0 \or % Tishri + 30 \or % Heshvan + 59 \or % Kislev + 89 \or % Tebeth + 118 \or % Shebat + 148 \or % Adar I + 148 \or % Adar II + 177 \or % Nisan + 207 \or % Iyar + 236 \or % Sivan + 266 \or % Tammuz + 295 \or % Av + 325 \or % Elul + 400 % Dummy + \fi + \bbl@checkleaphebryear{#2}% + \ifbbl@hebrleap % in leap year + \ifnum #1 > 6 % if month after Adar I + \advance #3 by 30 % add 30 days + \fi + \fi + \bbl@daysinhebryear{#2}{\tmpf}% + \ifnum #1 > 3 + \ifnum \tmpf = 353 % + \advance #3 by -1 % + \fi % Short Kislev + \ifnum \tmpf = 383 % + \advance #3 by -1 % + \fi % + \fi + \ifnum #1 > 2 + \ifnum \tmpf = 355 % + \advance #3 by 1 % + \fi % Long Heshvan + \ifnum \tmpf = 385 % + \advance #3 by 1 % + \fi % + \fi + \global\bbl@cntcommon = #3}% + #3 = \bbl@cntcommon} +\def\bbl@absfromhebr#1#2#3#4{% + {#4 = #1 + \bbl@hebrdayspriormonths{#2}{#3}{#1}% + \advance #4 by #1 % Add days in prior months this year + \bbl@hebrelapseddays{#3}{#1}% + \advance #4 by #1 % Add days in prior years + \advance #4 by -1373429 % Subtract days before Gregorian + \global\bbl@cntcommon = #4}% % 01.01.0001 + #4 = \bbl@cntcommon} +\def\bbl@hebrfromgreg#1#2#3#4#5#6{% + {\countdef\tmpx= 17 % \tmpx==\count17 + \countdef\tmpy= 18 % \tmpy==\count18 + \countdef\tmpz= 19 % \tmpz==\count19 + #6 = #3 % + \global\advance #6 by 3761 % approximation from above + \bbl@absfromgreg{#1}{#2}{#3}{#4}% + \tmpz = 1 \tmpy = 1 + \bbl@absfromhebr{\tmpz}{\tmpy}{#6}{\tmpx}% + \ifnum \tmpx > #4 % + \global\advance #6 by -1 % Hyear = Gyear + 3760 + \bbl@absfromhebr{\tmpz}{\tmpy}{#6}{\tmpx}% + \fi % + \advance #4 by -\tmpx % Days in this year + \advance #4 by 1 % + #5 = #4 % + \divide #5 by 30 % Approximation for month from below + \loop % Search for month + \bbl@hebrdayspriormonths{#5}{#6}{\tmpx}% + \ifnum \tmpx < #4 + \advance #5 by 1 + \tmpy = \tmpx + \repeat + \global\advance #5 by -1 + \global\advance #4 by -\tmpy}} +\newcount\bbl@hebrday \newcount\bbl@hebrmonth \newcount\bbl@hebryear +\newcount\bbl@gregday \newcount\bbl@gregmonth \newcount\bbl@gregyear +\def\bbl@ca@hebrew#1-#2-#3\@@#4#5#6{% + \bbl@gregday=#3 \bbl@gregmonth=#2 \bbl@gregyear=#1 + \bbl@hebrfromgreg + {\bbl@gregday}{\bbl@gregmonth}{\bbl@gregyear}% + {\bbl@hebrday}{\bbl@hebrmonth}{\bbl@hebryear}% + \edef#4{\the\bbl@hebryear}% + \edef#5{\the\bbl@hebrmonth}% + \edef#6{\the\bbl@hebrday}} +\endinput +%% +%% End of file `babel-ca-hebrew.tex'. |