[latex3-commits] [git/LaTeX3-latex3-latex3] text-map: Cover more Hangul cases (8436093a6)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : text-map
Link       : https://github.com/latex3/latex3/commit/8436093a63deeae47b1cb51ea4e2c8d8262fdeb0

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

commit 8436093a63deeae47b1cb51ea4e2c8d8262fdeb0
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Mon Aug 8 22:46:10 2022 +0100

    Cover more Hangul cases


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

8436093a63deeae47b1cb51ea4e2c8d8262fdeb0
 l3kernel/l3text-map.dtx                 | 16 +++++++++++++---
 l3kernel/testfiles/m3text006.luatex.tlg |  6 +++---
 l3kernel/testfiles/m3text006.ptex.tlg   |  6 +++---
 l3kernel/testfiles/m3text006.tlg        |  6 +++---
 l3kernel/testfiles/m3text006.xetex.tlg  |  6 +++---
 5 files changed, 25 insertions(+), 15 deletions(-)

diff --git a/l3kernel/l3text-map.dtx b/l3kernel/l3text-map.dtx
index e4b7080fd..3753c2874 100644
--- a/l3kernel/l3text-map.dtx
+++ b/l3kernel/l3text-map.dtx
@@ -93,13 +93,17 @@
 %     \@@_map_not_Prepend:Nnn     ,
 %     \@@_map_not_L:Nnn           ,
 %     \@@_map_not_LV:Nnn          ,
-%     \@@_map_not_LVT:Nnn
+%     \@@_map_not_V:Nnn           ,
+%     \@@_map_not_LVT:Nnn         ,
+%     \@@_map_not_T:Nnn
 %   }
 % \begin{macro}[EXP]
 %   {
-%     \@@_map_L:Nnn  ,
+%     \@@_map_L:Nnn   ,
 %     \@@_map_LV:Nnn  ,
-%     \@@_map_LVT:Nnn
+%     \@@_map_V:Nnn   ,
+%     \@@_map_LVT:Nnn ,
+%     \@@_map_T:Nnn
 %   }
 % \begin{macro}[EXP]{\@@_map_hangul:Nnnw}
 % \begin{macro}[EXP]{\@@_map_hangul:NnnN}
@@ -303,8 +307,12 @@
 \cs_new:Npn \@@_map_not_L:Nnn #1#2#3
   { \@@_map_class:Nnnn #1 {#2} {#3} { LV } }
 \cs_new:Npn \@@_map_not_LV:Nnn #1#2#3
+  { \@@_map_class:Nnnn #1 {#2} {#3} { V } }
+\cs_new:Npn \@@_map_not_V:Nnn #1#2#3
   { \@@_map_class:Nnnn #1 {#2} {#3} { LVT } }
 \cs_new:Npn \@@_map_not_LVT:Nnn #1#2#3
+  { \@@_map_class:Nnnn #1 {#2} {#3} { T } }
+\cs_new:Npn \@@_map_not_T:Nnn #1#2#3
   {
     \@@_map_output:Nn #1 {#2}
     \@@_map_loop:Nnw #1 {#3}
@@ -330,12 +338,14 @@
     \@@_map_hangul:Nnnw
       #1 {#3} { V ; T }
   }
+\cs_new_eq:NN \@@_map_V:Nnn \@@_map_LV:Nnn
 \cs_new:Npn \@@_map_LVT:Nnn #1#2#3
   {
     \@@_map_output:Nn #1 {#2}
     \@@_map_hangul:Nnnw
       #1 {#3} { T }
   }
+\cs_new_eq:NN \@@_map_T:Nnn \@@_map_LVT:Nnn
 \cs_new:Npn \@@_map_hangul:Nnnw #1#2#3#4 \q_@@_recursion_stop
   {
     \tl_if_head_is_N_type:nTF {#4}
diff --git a/l3kernel/testfiles/m3text006.luatex.tlg b/l3kernel/testfiles/m3text006.luatex.tlg
index b585021ad..0024a3a07 100644
--- a/l3kernel/testfiles/m3text006.luatex.tlg
+++ b/l3kernel/testfiles/m3text006.luatex.tlg
@@ -260,9 +260,7 @@ TRUE
 TRUE
 TRUE
 TRUE
-  ^^f7 [0.2] HANGUL JUNGSEONG FILLER (V) ^^d7 [7.0] HANGUL JUNGSEONG FILLER (V) ^^f7 [0.3]
 TRUE
-  ^^f7 [0.2] HANGUL JUNGSEONG FILLER (V) ^^d7 [7.0] HANGUL JONGSEONG KIYEOK (T) ^^f7 [0.3]
 TRUE
 TRUE
 TRUE
@@ -296,7 +294,9 @@ TRUE
 TRUE
 TRUE
 TRUE
-  ^^f7 [0.2] HANGUL JONGSEONG KIYEOK (T) ^^d7 [8.0] HANGUL JONGSEONG KIYEOK (T) ^^f7 [0.3]
+TRUE
+TRUE
+TRUE
 TRUE
 TRUE
 TRUE
diff --git a/l3kernel/testfiles/m3text006.ptex.tlg b/l3kernel/testfiles/m3text006.ptex.tlg
index b585021ad..0024a3a07 100644
--- a/l3kernel/testfiles/m3text006.ptex.tlg
+++ b/l3kernel/testfiles/m3text006.ptex.tlg
@@ -260,9 +260,7 @@ TRUE
 TRUE
 TRUE
 TRUE
-  ^^f7 [0.2] HANGUL JUNGSEONG FILLER (V) ^^d7 [7.0] HANGUL JUNGSEONG FILLER (V) ^^f7 [0.3]
 TRUE
-  ^^f7 [0.2] HANGUL JUNGSEONG FILLER (V) ^^d7 [7.0] HANGUL JONGSEONG KIYEOK (T) ^^f7 [0.3]
 TRUE
 TRUE
 TRUE
@@ -296,7 +294,9 @@ TRUE
 TRUE
 TRUE
 TRUE
-  ^^f7 [0.2] HANGUL JONGSEONG KIYEOK (T) ^^d7 [8.0] HANGUL JONGSEONG KIYEOK (T) ^^f7 [0.3]
+TRUE
+TRUE
+TRUE
 TRUE
 TRUE
 TRUE
diff --git a/l3kernel/testfiles/m3text006.tlg b/l3kernel/testfiles/m3text006.tlg
index 95601384e..ac95a15b8 100644
--- a/l3kernel/testfiles/m3text006.tlg
+++ b/l3kernel/testfiles/m3text006.tlg
@@ -260,9 +260,7 @@ TRUE
 TRUE
 TRUE
 TRUE
-  ^^c3^^b7 [0.2] HANGUL JUNGSEONG FILLER (V) ^^c3^^97 [7.0] HANGUL JUNGSEONG FILLER (V) ^^c3^^b7 [0.3]
 TRUE
-  ^^c3^^b7 [0.2] HANGUL JUNGSEONG FILLER (V) ^^c3^^97 [7.0] HANGUL JONGSEONG KIYEOK (T) ^^c3^^b7 [0.3]
 TRUE
 TRUE
 TRUE
@@ -296,7 +294,9 @@ TRUE
 TRUE
 TRUE
 TRUE
-  ^^c3^^b7 [0.2] HANGUL JONGSEONG KIYEOK (T) ^^c3^^97 [8.0] HANGUL JONGSEONG KIYEOK (T) ^^c3^^b7 [0.3]
+TRUE
+TRUE
+TRUE
 TRUE
 TRUE
 TRUE
diff --git a/l3kernel/testfiles/m3text006.xetex.tlg b/l3kernel/testfiles/m3text006.xetex.tlg
index b585021ad..0024a3a07 100644
--- a/l3kernel/testfiles/m3text006.xetex.tlg
+++ b/l3kernel/testfiles/m3text006.xetex.tlg
@@ -260,9 +260,7 @@ TRUE
 TRUE
 TRUE
 TRUE
-  ^^f7 [0.2] HANGUL JUNGSEONG FILLER (V) ^^d7 [7.0] HANGUL JUNGSEONG FILLER (V) ^^f7 [0.3]
 TRUE
-  ^^f7 [0.2] HANGUL JUNGSEONG FILLER (V) ^^d7 [7.0] HANGUL JONGSEONG KIYEOK (T) ^^f7 [0.3]
 TRUE
 TRUE
 TRUE
@@ -296,7 +294,9 @@ TRUE
 TRUE
 TRUE
 TRUE
-  ^^f7 [0.2] HANGUL JONGSEONG KIYEOK (T) ^^d7 [8.0] HANGUL JONGSEONG KIYEOK (T) ^^f7 [0.3]
+TRUE
+TRUE
+TRUE
 TRUE
 TRUE
 TRUE