[latex3-commits] [l3svn] 01/09: Extend \int_const:Nn for (u)pTeX

[noreply at latex-project.org]

This is an automated email from the git hooks/post-receive script.

joseph pushed a commit to branch master
in repository l3svn.

commit c10ec85f9c4c91a8030a7de4e9e0459aa41527ac
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Tue Sep 8 09:06:06 2015 +0100

    Extend \int_const:Nn for (u)pTeX
---
 l3kernel/l3int.dtx |   25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/l3kernel/l3int.dtx b/l3kernel/l3int.dtx
index 234dee2..bdd7708 100644
--- a/l3kernel/l3int.dtx
+++ b/l3kernel/l3int.dtx
@@ -1167,7 +1167,8 @@
 % \UnitTested
 %   As stated, most constants can be defined as \tn{chardef} or
 %   \tn{mathchardef} but that's engine dependent. As a result, there is some
-%   set up code to determine what can be done.
+%   set up code to determine what can be done. No full engine testing just yet
+%   so everything is a little awkward.
 %    \begin{macrocode}
 \cs_new_protected:Npn \int_const:Nn #1#2
   {
@@ -1190,15 +1191,19 @@
       }
   }
 \cs_generate_variant:Nn \int_const:Nn { c }
-\cs_if_exist:NTF \pdftex_pdftexversion:D
-  {
-    \cs_new_eq:NN \@@_constdef:Nw \tex_mathchardef:D
-    \tex_mathchardef:D \c__max_constdef_int 32 767 ~
-  }
-  {
-    \cs_new_eq:NN \@@_constdef:Nw \tex_chardef:D
-    \tex_chardef:D \c__max_constdef_int 1 114 111 ~
-  }
+\if_int_compare:w 0
+  \cs_if_exist:NT \luatex_luatexversion:D  { 1 }
+  \cs_if_exist:NT \uptex_disablecjktoken:D { 1 }
+  \cs_if_exist:NT \xetex_XeTeXversion:D    { 1 }
+  > \c_zero
+    \cs_if_exist:NTF \uptex_disablecjktoken:D
+      { \cs_new_eq:NN \@@_constdef:Nw \uptex_kchardef:D }
+      { \cs_new_eq:NN \@@_constdef:Nw \tex_chardef:D }
+    \@@_constdef:Nw \c__max_constdef_int 1114111 ~
+\else:
+  \cs_new_eq:NN \@@_constdef:Nw \tex_mathchardef:D
+  \tex_mathchardef:D \c__max_constdef_int 32767 ~
+\fi:
 %    \end{macrocode}
 % \end{variable}
 % \end{macro}

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.