[latex3-commits] [git/LaTeX3-latex3-latex3] unicode-data: pTeX doesn't like high chars (72e0abd9e)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : unicode-data
Link       : https://github.com/latex3/latex3/commit/72e0abd9e282c23e216cf63c9f108f7c61f87628

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

commit 72e0abd9e282c23e216cf63c9f108f7c61f87628
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Thu Oct 13 10:14:48 2022 +0100

    pTeX doesn't like high chars


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

72e0abd9e282c23e216cf63c9f108f7c61f87628
 l3kernel/l3text.dtx | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/l3kernel/l3text.dtx b/l3kernel/l3text.dtx
index d4b841adf..0747912c4 100644
--- a/l3kernel/l3text.dtx
+++ b/l3kernel/l3text.dtx
@@ -675,6 +675,20 @@
           { \use:n }
             {#1} #2
       }
+    \sys_if_engine_ptex:T
+      {
+        \cs_new:Npn \@@_codepoint_process:nN #1#2
+          {
+            \int_compare:nNnTF { `#2 } > { "80 }
+              {
+                \int_compare:nNnTF { `#2 } < { "E0 }
+                  { \@@_codepoint_process:nNN }
+                  { \use:n }
+              }
+          { \use:n }
+            {#1} #2
+      }
+      }
     \cs_new:Npn \@@_codepoint_process:nNN #1#2#3
       { #1 {#2#3} }
     \cs_new:Npn \@@_codepoint_process:nNNN #1#2#3#4
@@ -749,6 +763,11 @@
         + (`#3 - "80) * "40
         + `#4 - "80
       }
+    \sys_if_engine_ptex:T
+      {
+        \cs_gset:Npn \@@_codepoint_from_chars:NNN #1#2#3 { -1 }
+        \cs_gset:Npn \@@_codepoint_from_chars:NNNN #1#2#3#4 { -1 }
+      }
   }
 %    \end{macrocode}
 % \end{macro}