[latex3-commits] [git/LaTeX3-latex3-latex3] main: Use \codepoint_generate:nn internally (5bf20b914)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/5bf20b91451c8e71075bbeede5f08225b7845e94

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

commit 5bf20b91451c8e71075bbeede5f08225b7845e94
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Sat Feb 4 22:32:53 2023 +0000

    Use \codepoint_generate:nn internally


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

5bf20b91451c8e71075bbeede5f08225b7845e94
 l3kernel/l3text-purify.dtx | 29 ++---------------------------
 1 file changed, 2 insertions(+), 27 deletions(-)

diff --git a/l3kernel/l3text-purify.dtx b/l3kernel/l3text-purify.dtx
index 5ad506e3c..a28b73fe5 100644
--- a/l3kernel/l3text-purify.dtx
+++ b/l3kernel/l3text-purify.dtx
@@ -557,34 +557,9 @@
     {
       \quark_if_recursion_tail_stop:N #1
       \tl_const:cx { c_@@_purify_ \token_to_str:N #1 _tl }
-        { \@@_tmp:n {#2} }
+        { \codepoint_generate:nn {"#2} { \char_value_catcode:n { "#2 } } }
       \@@_loop:Nn
     }
-  \bool_lazy_or:nnTF
-    { \sys_if_engine_luatex_p: }
-    { \sys_if_engine_xetex_p: }
-    {
-      \cs_set:Npn \@@_tmp:n #1
-        {
-          \char_generate:nn { "#1 }
-            { \char_value_catcode:n { "#1 } }
-        }
-    }
-    {
-      \cs_set:Npn \@@_tmp:n #1
-        {
-          \exp_args:Ne \@@_tmp_aux:n
-            { \__kernel_codepoint_to_bytes:n { "#1 } }
-        }
-      \cs_set:Npn \@@_tmp_aux:n #1 { \@@_tmp:nnnn #1 }
-      \cs_set:Npn \@@_tmp:nnnn #1#2#3#4
-        {
-          \exp_after:wN \exp_after:wN \exp_after:wN
-            \exp_not:N \char_generate:nn {#1} { 13 }
-          \exp_after:wN \exp_after:wN \exp_after:wN
-            \exp_not:N \char_generate:nn {#2} { 13 }
-        }
-    }
   \@@_loop:Nn
     \` { 0300 }
     \' { 0301 }
@@ -617,7 +592,7 @@
       \quark_if_recursion_tail_stop:N #1
       \tl_const:cx
         { c_@@_purify_ \token_to_str:N #1 _ \token_to_str:N #2 _tl }
-        { \@@_tmp:n {#3} }
+        { \codepoint_generate:nn {"#3} { \char_value_catcode:n { "#3 } } }
       \@@_loop:NNn
     }
   \@@_loop:NNn