[latex3-commits] [git/LaTeX3-latex3-babel] main: Attempt to deal with german and swissgerman. (0cd71a0)

[Javier]

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

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

commit 0cd71a09758c76d29a7f0cf3c0392d36b66e29d5
Author: Javier <email at localhost>
Date:   Fri Jun 24 17:51:44 2022 +0200

    Attempt to deal with german and swissgerman.


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

0cd71a09758c76d29a7f0cf3c0392d36b66e29d5
 README.md                                          |  3 ++-
 locale/de/babel-austrian.tex                       | 15 +++++++++++-
 locale/de/babel-de-CH.ini                          | 10 ++++----
 locale/de/babel-german.tex                         | 16 ++++++++++++-
 ...l-swissgerman.tex => babel-swisshighgerman.tex} |  0
 locale/gsw/babel-swissgerman.tex                   | 27 ++++++++++++++++++++++
 6 files changed, 63 insertions(+), 8 deletions(-)

diff --git a/README.md b/README.md
index c8d1751..1ba2dd6 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-## Babel 3.76.2772
+## Babel 3.76.2778
 
 *Development*.
 
@@ -55,6 +55,7 @@ respective authors.
        * Date now defaults to 'persian' in a few locales: Persian,
          Northern Luri, Mazanderani, Pashto.
        * New calendars: coptic (ar-EG, cop), buddhist (th).
+       * Attempt to deal with german and swissgerman.
        
 3.76   2022-06-06
        * Calendar conversion with a new macro \babelcalendar: hebrew,
diff --git a/locale/de/babel-austrian.tex b/locale/de/babel-austrian.tex
index 33127d6..50238cf 100644
--- a/locale/de/babel-austrian.tex
+++ b/locale/de/babel-austrian.tex
@@ -7,6 +7,19 @@
     {Just use babel as documented.}%
   \stop
 \fi
-\BabelBeforeIni{de-AT}{%
+\begingroup
+  \makeatletter
+  \gdef\BabelAustrianIniTag{de-AT}%
+  \ifx\bbl at inidata\@undefined
+    \def\bbl at elt#1#2#3#4{%
+      \ifnum\csname l@#1\endcsname=\l at austrian
+        \in@{1901}{#3}%
+        \ifin@\gdef\BabelAustrianIniTag{de-AT-1901}\fi
+        \def\bbl at elt##1##2##3#4{}%
+      \fi}%
+    \bbl at languages
+  \fi
+\endgroup
+\BabelBeforeIni{\BabelAustrianIniTag}{%
 }
 \endinput
\ No newline at end of file
diff --git a/locale/de/babel-de-CH.ini b/locale/de/babel-de-CH.ini
index cf39b6e..a450b04 100644
--- a/locale/de/babel-de-CH.ini
+++ b/locale/de/babel-de-CH.ini
@@ -11,11 +11,11 @@
 
 [identification]
 charset = utf8
-version = 1.5
-date = 2022-05-17
-name.local = Deutsch
-name.english = German
-name.babel = german-switzerland german-ch nswissgerman
+version = 1.6
+date = 2022-06-22
+name.local = Schweizer Hochdeutsch
+name.english = Swiss High German
+name.babel = german-switzerland german-ch swisshighgerman nswissgerman
 name.polyglossia = german
 tag.bcp47 = de-CH
 language.tag.bcp47 = de
diff --git a/locale/de/babel-german.tex b/locale/de/babel-german.tex
index d25bf17..85f1403 100644
--- a/locale/de/babel-german.tex
+++ b/locale/de/babel-german.tex
@@ -7,6 +7,20 @@
     {Just use babel as documented.}%
   \stop
 \fi
-\BabelBeforeIni{de}{%
+% Hay que verificar antes que es el ldf.
+\begingroup
+  \makeatletter
+  \gdef\BabelGermanIniTag{de}%
+  \ifx\bbl at inidata\@undefined
+    \def\bbl at elt#1#2#3#4{%
+      \ifnum\csname l@#1\endcsname=\l at german
+        \in@{1901}{#3}%
+        \ifin@\gdef\BabelGermanIniTag{de-1901}\fi
+        \def\bbl at elt##1##2##3#4{}%
+      \fi}%
+    \bbl at languages
+  \fi
+\endgroup
+\BabelBeforeIni{\BabelGermanIniTag}{%
 }
 \endinput
\ No newline at end of file
diff --git a/locale/de/babel-swissgerman.tex b/locale/de/babel-swisshighgerman.tex
similarity index 100%
rename from locale/de/babel-swissgerman.tex
rename to locale/de/babel-swisshighgerman.tex
diff --git a/locale/gsw/babel-swissgerman.tex b/locale/gsw/babel-swissgerman.tex
new file mode 100644
index 0000000..8ec1895
--- /dev/null
+++ b/locale/gsw/babel-swissgerman.tex
@@ -0,0 +1,27 @@
+% This file is part of babel. For further details see:
+% https://www.ctan.org/pkg/babel
+\ifx\BabelBeforeIni\undefined
+  \PackageError{babel}%
+    {This file is a component of babel and cannot\MessageBreak
+     be loaded directly. I'll stop immediately}%
+    {Just use babel as documented.}%
+  \stop
+\fi
+\begingroup
+  \makeatletter
+  \ifx\bbl at inidata\@undefined
+    \gdef\BabelSwissHighIniTag{de-CH}%
+    \def\bbl at elt#1#2#3#4{%
+      \ifnum\csname l@#1\endcsname=\l at swissgerman
+        \in@{1901}{#3}%
+        \ifin@\gdef\BabelSwissHighIniTag{de-CH-1901}\fi
+        \def\bbl at elt##1##2##3#4{}%
+      \fi}%
+    \bbl at languages
+  \else
+    \gdef\BabelSwissHighIniTag{gsw}%
+  \fi
+\endgroup
+\BabelBeforeIni{\BabelSwissHighIniTag}{%
+}
+\endinput
\ No newline at end of file