summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/babel/babel-ca-persian.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/babel/babel-ca-persian.tex')
-rw-r--r--Master/texmf-dist/tex/generic/babel/babel-ca-persian.tex73
1 files changed, 73 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/babel/babel-ca-persian.tex b/Master/texmf-dist/tex/generic/babel/babel-ca-persian.tex
new file mode 100644
index 00000000000..3c6d90a36fc
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/babel/babel-ca-persian.tex
@@ -0,0 +1,73 @@
+%%
+%% This is file `babel-ca-persian.tex',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% babel.dtx (with options: `ca-persian')
+%%
+%%
+%% 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.
+%%
+
+\ExplSyntaxOn
+\def\bbl@fpmod#1#2{(#1-#2*floor(#1/#2))}
+\def\bbl@cs@gregleap#1{%
+ (\bbl@fpmod{#1}{4} == 0) &&
+ (!((\bbl@fpmod{#1}{100} == 0) && (\bbl@fpmod{#1}{400} != 0)))}
+\def\bbl@ca@jd#1#2#3{% year, month, day
+ \fp_eval:n{ 1721424.5 + (365 * (#1 - 1)) +
+ floor((#1 - 1) / 4) + (-floor((#1 - 1) / 100)) +
+ floor((#1 - 1) / 400) + floor((((367 * #2) - 362) / 12) +
+ ((#2 <= 2) ? 0 : (\bbl@cs@gregleap{#1} ? -1 : -2)) + #3) }}
+\def\bbl@ca@firstjal@xx{2012,2016,2020,2024,2028,2029,% March 20
+ 2032,2033,2036,2037,2040,2041,2044,2045,2048,2049}
+\def\bbl@ca@persian#1-#2-#3\@@#4#5#6{%
+ \edef\bbl@tempa{#1}% 20XX-03-\bbl@tempe = 1 farvardin:
+ \ifnum\bbl@tempa>2012 \ifnum\bbl@tempa<2051
+ \bbl@afterfi\expandafter\@gobble
+ \fi\fi
+ {\bbl@error{Year~out~of~range}{The~allowed~range~is~2013-2050}}%
+ \bbl@xin@{\bbl@tempa}{\bbl@ca@firstjal@xx}%
+ \ifin@\def\bbl@tempe{20}\else\def\bbl@tempe{21}\fi
+ \edef\bbl@tempc{\fp_eval:n{\bbl@ca@jd{\bbl@tempa}{#2}{#3}+.5}}% current
+ \edef\bbl@tempb{\fp_eval:n{\bbl@ca@jd{\bbl@tempa}{03}{\bbl@tempe}+.5}}% begin
+ \ifnum\bbl@tempc<\bbl@tempb
+ \edef\bbl@tempa{\fp_eval:n{\bbl@tempa-1}}% go back 1 year and redo
+ \bbl@xin@{\bbl@tempa}{\bbl@ca@firstjal@xx}%
+ \ifin@\def\bbl@tempe{20}\else\def\bbl@tempe{21}\fi
+ \edef\bbl@tempb{\fp_eval:n{\bbl@ca@jd{\bbl@tempa}{03}{\bbl@tempe}+.5}}%
+ \fi
+ \edef#4{\fp_eval:n{\bbl@tempa-621}}% set Jalali year
+ \edef#6{\fp_eval:n{\bbl@tempc-\bbl@tempb+1}}% days from 1 farvardin
+ \edef#5{\fp_eval:n{% set Jalali month
+ (#6 <= 186) ? ceil(#6 / 31) : ceil((#6 - 6) / 30)}}
+ \edef#6{\fp_eval:n{% set Jalali day
+ (#6 - ((#5 <= 7) ? ((#5 - 1) * 31) : (((#5 - 1) * 30) + 6)))}}}
+\ExplSyntaxOff
+\endinput
+%%
+%% End of file `babel-ca-persian.tex'.