[latex3-commits] [git/LaTeX3-latex3-babel] main: arabic (ar): islamic-civil. (b8d2f78)

[Javier]

Repository : https://github.com/latex3/babel
On branch  : main
Link       : https://github.com/latex3/babel/commit/b8d2f780eea24e75ad8a3483c226287ad52ceb9d

>---------------------------------------------------------------

commit b8d2f780eea24e75ad8a3483c226287ad52ceb9d
Author: Javier <email at localhost>
Date:   Wed May 25 19:02:27 2022 +0200

    arabic (ar): islamic-civil.


>---------------------------------------------------------------

b8d2f780eea24e75ad8a3483c226287ad52ceb9d
 locale/ar/babel-ar.ini     |  5 +++--
 locale/ar/babel-arabic.tex | 24 ++++++++++++++++++++++++
 2 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/locale/ar/babel-ar.ini b/locale/ar/babel-ar.ini
index 25f8f01..1e6a107 100644
--- a/locale/ar/babel-ar.ini
+++ b/locale/ar/babel-ar.ini
@@ -11,8 +11,8 @@
 
 [identification]
 charset = utf8
-version = 1.14
-date = 2022-05-15
+version = 1.15
+date = 2022-05-25
 name.local = العربية
 name.english = Arabic
 name.babel = arabic
@@ -26,6 +26,7 @@ script.tag.opentype = arab
 level = 1
 encodings = LAE
 derivate = no
+require.babel = arabic
 
 [captions]
 preface = مدخل
diff --git a/locale/ar/babel-arabic.tex b/locale/ar/babel-arabic.tex
index 5207dfd..dd2e2c9 100644
--- a/locale/ar/babel-arabic.tex
+++ b/locale/ar/babel-arabic.tex
@@ -10,4 +10,28 @@
 \BabelBeforeIni{ar}{%
 }
 
+\ExplSyntaxOn
+
+\def\bbl at cs@isltojd#1#2#3{ % year, month, day
+  ((#3 + ceil(29.5 * (#2 - 1)) +
+  (#1 - 1) * 354 + floor((3 + (11 * #1)) / 30) +
+  1948439.5) - 1) }
+  
+\@namedef{bbl at ca@islamic-civil++}{\bbl at ca@islamicvl at x{+2}}
+\@namedef{bbl at ca@islamic-civil+}{\bbl at ca@islamicvl at x{+1}}
+\@namedef{bbl at ca@islamic-civil}{\bbl at ca@islamicvl at x{}}
+\@namedef{bbl at ca@islamic-civil-}{\bbl at ca@islamicvl at x{-1}}
+\@namedef{bbl at ca@islamic-civil--}{\bbl at ca@islamicvl at x{-2}}
+
+\def\bbl at ca@islamicvl at x#1#2-#3-#4\@@#5#6#7{%
+  \edef\bbl at tempa{%
+    \fp_eval:n{ floor(\bbl at ca@jd{#2}{#3}{#4})+0.5 #1}}%
+  \edef#5{%
+    \fp_eval:n{ floor(((30*(\bbl at tempa-1948439.5)) + 10646)/10631) }}%
+  \edef#6{\fp_eval:n{
+    min(12,ceil((\bbl at tempa-(29+\bbl at cs@isltojd{#5}{1}{1}))/29.5)+1) }}%
+  \edef#7{\fp_eval:n{ \bbl at tempa - \bbl at cs@isltojd{#5}{#6}{1} + 1} }}
+  
+\ExplSyntaxOff
+
 \endinput