[latex3-commits] [git/LaTeX3-latex3-latex2e] main: Update l3kernel to 2023-02-02 (1a6dd284)

Joseph Wright joseph.wright at morningstar2.co.uk
Thu Feb 2 18:24:04 CET 2023


Repository : https://github.com/latex3/latex2e
On branch  : main
Link       : https://github.com/latex3/latex2e/commit/1a6dd28459e6296ae49b01f46df9aa358ac7a453

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

commit 1a6dd28459e6296ae49b01f46df9aa358ac7a453
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Thu Feb 2 17:24:04 2023 +0000

    Update l3kernel to 2023-02-02


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

1a6dd28459e6296ae49b01f46df9aa358ac7a453
 texmf/tex/latex/l3kernel/expl3-code.tex    | 92 +++++++++++++++++++-----------
 texmf/tex/latex/l3kernel/expl3-generic.tex |  2 +-
 texmf/tex/latex/l3kernel/expl3.ltx         |  2 +-
 texmf/tex/latex/l3kernel/expl3.sty         |  2 +-
 4 files changed, 62 insertions(+), 36 deletions(-)

diff --git a/texmf/tex/latex/l3kernel/expl3-code.tex b/texmf/tex/latex/l3kernel/expl3-code.tex
index 6419c220..d14778da 100644
--- a/texmf/tex/latex/l3kernel/expl3-code.tex
+++ b/texmf/tex/latex/l3kernel/expl3-code.tex
@@ -71,7 +71,7 @@
 %% and all files in that bundle must be distributed together.
 %% 
 %% File: expl3.dtx
-\def\ExplFileDate{2023-02-01}%
+\def\ExplFileDate{2023-02-02}%
 \begingroup
   \def\next{\endgroup}%
   \expandafter\ifx\csname PackageError\endcsname\relax
@@ -33502,7 +33502,8 @@ Type  H <return>  for immediate help}\def~{\errmessage{%
           {
             \__text_change_case_store:e
               {
-                \use:c { __text_change_case_upper_ #3 :n } {#4}
+                \codepoint_generate:nn { "0399 }
+                  { \char_value_catcode:n { "0399 } }
               }
             \__text_change_case_loop:nnw {#2} {#3}
           }
@@ -33511,13 +33512,6 @@ Type  H <return>  for immediate help}\def~{\errmessage{%
   }
 \cs_new_eq:cN { __text_change_case_upper_el-x-iota:nnnn }
   \__text_change_case_upper_el:nnnn
-\cs_new:Npn \__text_change_case_upper_el:n #1
-  {
-    \codepoint_generate:nn { "0399 }
-      { \char_value_catcode:n { "0399 } }
-  }
-\cs_new:cpn { __text_change_case_upper_el-x-iota:n } #1
-  { \exp_not:n {#1} }
 \cs_new:Npn \__text_change_case_upper_el:nnn #1#2#3
   {
     \__text_codepoint_process:nN
@@ -33565,15 +33559,15 @@ Type  H <return>  for immediate help}\def~{\errmessage{%
 \cs_new:Npn \__text_change_case_upper_el_ypogegrammeni:nnnnnN #1#2#3#4#5#6
   {
     \token_if_cs:NTF #6
-      { \__text_change_case_upper_el_aux:nnnN {#1} {#2} {#3} #4#5 #6 }
+      { \__text_change_case_upper_el_aux:nnnN {#1} {#2} {#3} #4#5 }
       {
         \__text_codepoint_process:nN
           {
             \__text_change_case_upper_el_ypogegrammeni:nnnnnn
               {#1} {#2} {#3} {#4} {#5}
           }
-            #6
       }
+        #6
   }
 \cs_new:Npn \__text_change_case_upper_el_ypogegrammeni:nnnnnn #1#2#3#4#5#6
   {
@@ -33603,23 +33597,23 @@ Type  H <return>  for immediate help}\def~{\errmessage{%
     \__text_codepoint_compare:nNnTF {#4} = { "0308 }
       { \__text_change_case_upper_el_dialytika:nnn {#2} {#3} {#1} }
       {
-         \__text_change_case_if_greek_accent:nTF {#4}
+        \__text_change_case_if_greek_accent:nTF {#4}
           { \__text_change_case_upper_el_hiatus:nnnw {#2} {#3} {#1} }
           {
             \__text_change_case_if_greek_diacritic:nTF {#4}
-              {
-                \__text_change_case_store:e
-                  { \__text_change_case_codepoint:nn { upper } {#1} }
-                \__text_change_case_loop:nnw {#2} {#3}
-              }
+              { \__text_change_case_upper_el:nnn {#1} {#2} {#3} }
               {
                 \__text_codepoint_compare:nNnTF {#4} = { "0345 }
-                  { \__text_change_case_store:e { [XXX] } }
+                  {
+                    \__text_change_case_store:e
+                      { \use:c { __text_change_case_upper_ #3 _ypogegrammeni:n } {#1} }
+                    \__text_change_case_loop:nnw {#2} {#3}
+                  }
                   {
                     \__text_change_case_store:e
                       { \__text_change_case_codepoint:nn { upper } {#1} }
+                    \__text_change_case_loop:nnw {#2} {#3} #4
                   }
-                \__text_change_case_loop:nnw {#2} {#3} #4
               }
           }
       }
@@ -33653,32 +33647,62 @@ Type  H <return>  for immediate help}\def~{\errmessage{%
   }
 \cs_new:Npn \__text_change_case_upper_el_hiatus:nnnw
   #1#2#3#4 \q__text_recursion_stop
-   {
-    \__text_change_case_store:e
-      { \__text_change_case_codepoint:nn { upper } {#3} }
+  {
     \tl_if_head_is_N_type:nTF {#4}
-      { \__text_change_case_upper_el_hiatus:nnN }
-      { \__text_change_case_loop:nnw }
+      { \__text_change_case_upper_el_hiatus:nnnN {#3} }
+      {
+        \__text_change_case_store:e
+          { \__text_change_case_codepoint:nn { upper } {#3} }
+        \__text_change_case_loop:nnw
+      }
         {#1} {#2} #4 \q__text_recursion_stop
   }
-\cs_new:Npn \__text_change_case_upper_el_hiatus:nnN #1#2#3
+\cs_new:Npn \__text_change_case_upper_el_hiatus:nnnN #1#2#3#4
   {
-    \token_if_cs:NTF #3
-      { \__text_change_case_loop:nnw {#1} {#2} #3 }
+    \token_if_cs:NTF #4
+      {
+        \__text_change_case_store:e
+          { \__text_change_case_codepoint:nn { upper } {#1} }
+        \__text_change_case_loop:nnw {#2} {#3} #4
+      }
       {
         \__text_codepoint_process:nN
-          { \__text_change_case_upper_el_hiatus:nnn {#1} {#2} } #3
+          { \__text_change_case_upper_el_hiatus:nnnn {#1} {#2} {#3} } #4
       }
   }
-\cs_new:Npn \__text_change_case_upper_el_hiatus:nnn #1#2#3
+\cs_new:Npn \__text_change_case_upper_el_hiatus:nnnn #1#2#3#4
   {
-    \__text_change_case_if_takes_dialytika:nTF {#3}
+    \__text_change_case_if_takes_dialytika:nTF {#4}
+      {
+        \__text_change_case_store:e
+          { \__text_change_case_codepoint:nn { upper } {#1} }
+        \__text_change_case_upper_el_dialytika:n {#4}
+        \__text_change_case_upper_el_gobble:nnw {#2} {#3}
+      }
+      { \__text_change_case_upper_el:nnn {#1} {#2} {#3} #4 }
+  }
+\cs_new:Npn \__text_change_case_upper_el_ypogegrammeni:n #1
+  {
+    \__text_change_case_codepoint:nn { upper } {#1}
+    \codepoint_generate:nn { "0399 }
+      { \char_value_catcode:n { "0399 } }
+  }
+\cs_new:cpn { __text_change_case_upper_el-x-iota_ypogegrammeni:n } #1
+  {
+    \int_case:nnF
+      { \__text_codepoint_from_chars:Nw #1 }
       {
-        \__text_change_case_upper_el_dialytika:n {#3}
-        \__text_change_case_upper_el_gobble:nnw {#1} {#2}
+        { "0391 } { \__text_change_case_upper_el_ypogegrammeni_aux:n { "1FBC } }
+        { "03B1 } { \__text_change_case_upper_el_ypogegrammeni_aux:n { "1FBC } }
+        { "0397 } { \__text_change_case_upper_el_ypogegrammeni_aux:n { "1FCC } }
+        { "03B7 } { \__text_change_case_upper_el_ypogegrammeni_aux:n { "1FCC } }
+        { "03A9 } { \__text_change_case_upper_el_ypogegrammeni_aux:n { "1FFC } }
+        { "03C9 } { \__text_change_case_upper_el_ypogegrammeni_aux:n { "1FFC } }
       }
-      { \__text_change_case_loop:nnw {#1} {#2} #3 }
+      { \__text_change_case_upper_el_ypogegrammeni:n {#1} }
   }
+\cs_new:Npn \__text_change_case_upper_el_ypogegrammeni_aux:n #1
+  { \codepoint_generate:nn {#1} { \char_value_catcode:n {#1} } }
 \cs_new:Npn \__text_change_case_upper_el_gobble:nnw
   #1#2#3 \q__text_recursion_stop
   {
@@ -33851,6 +33875,8 @@ Type  H <return>  for immediate help}\def~{\errmessage{%
       { \__text_change_case_loop:nnw }
         {#2} {#3} #4 \q__text_recursion_stop
   }
+\cs_new_eq:cN { __text_change_case_boundary_upper_el-x-iota:Nnnw }
+  \__text_change_case_boundary_upper_el:Nnnw
 \cs_new:Npn \__text_change_case_boundary_upper_el:nnN #1#2#3
   {
     \token_if_cs:NTF #3
diff --git a/texmf/tex/latex/l3kernel/expl3-generic.tex b/texmf/tex/latex/l3kernel/expl3-generic.tex
index 41bcbbe3..4831717d 100644
--- a/texmf/tex/latex/l3kernel/expl3-generic.tex
+++ b/texmf/tex/latex/l3kernel/expl3-generic.tex
@@ -19,7 +19,7 @@
 %% and all files in that bundle must be distributed together.
 %% 
 %% File: expl3.dtx
-\def\ExplFileDate{2023-02-01}%
+\def\ExplFileDate{2023-02-02}%
 \let\ExplLoaderFileDate\ExplFileDate
 \begingroup
   \catcode`\_=11
diff --git a/texmf/tex/latex/l3kernel/expl3.ltx b/texmf/tex/latex/l3kernel/expl3.ltx
index a1adcd5f..3e19ca61 100644
--- a/texmf/tex/latex/l3kernel/expl3.ltx
+++ b/texmf/tex/latex/l3kernel/expl3.ltx
@@ -19,7 +19,7 @@
 %% and all files in that bundle must be distributed together.
 %% 
 %% File: expl3.dtx
-\def\ExplFileDate{2023-02-01}%
+\def\ExplFileDate{2023-02-02}%
 \let\ExplLoaderFileDate\ExplFileDate
 \begingroup
   \catcode`\_=11
diff --git a/texmf/tex/latex/l3kernel/expl3.sty b/texmf/tex/latex/l3kernel/expl3.sty
index 193c8bca..eba92f1b 100644
--- a/texmf/tex/latex/l3kernel/expl3.sty
+++ b/texmf/tex/latex/l3kernel/expl3.sty
@@ -19,7 +19,7 @@
 %% and all files in that bundle must be distributed together.
 %% 
 %% File: expl3.dtx
-\def\ExplFileDate{2023-02-01}%
+\def\ExplFileDate{2023-02-02}%
 \let\ExplLoaderFileDate\ExplFileDate
 \ProvidesPackage{expl3}
   [%





More information about the latex3-commits mailing list.