[latex3-commits] [l3svn] branch master updated: Remove a use of \tl_to_uppercase:n

[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.

The following commit(s) were added to refs/heads/master by this push:
       new  86a64a7   Remove a use of \tl_to_uppercase:n
86a64a7 is described below

commit 86a64a7f7e7b04615125db91eb70ce89364eb7fe
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Mon Aug 31 22:49:59 2015 +0100

    Remove a use of \tl_to_uppercase:n
---
 l3experimental/l3str/l3tl-analysis.dtx |   45 ++++++++++++++------------------
 1 file changed, 20 insertions(+), 25 deletions(-)

diff --git a/l3experimental/l3str/l3tl-analysis.dtx b/l3experimental/l3str/l3tl-analysis.dtx
index 4df4f7e..bd8f4f8 100644
--- a/l3experimental/l3str/l3tl-analysis.dtx
+++ b/l3experimental/l3str/l3tl-analysis.dtx
@@ -798,31 +798,26 @@
 %   in the input stream, and call \cs{@@_b_normals:ww}
 %   with its first argument decremented.
 %    \begin{macrocode}
-\group_begin:
-  \char_set_catcode_other:N A
-  \char_set_catcode_other:N B
-  \char_set_catcode_other:N C
-  \char_set_uccode:nn { `? } { `D }
-  \tl_to_uppercase:n
-    {
-      \cs_new:Npn \@@_b_char:Nww #1
-        {
-          \if_meaning:w #1 \tex_undefined:D          ? \else:
-          \if_catcode:w #1 \c_catcode_other_token    C \else:
-          \if_catcode:w #1 \c_catcode_letter_token   B \else:
-          \if_catcode:w #1 \c_math_toggle_token      3 \else:
-          \if_catcode:w #1 \c_alignment_token        4 \else:
-          \if_catcode:w #1 \c_math_superscript_token 7 \else:
-          \if_catcode:w #1 \c_math_subscript_token   8 \else:
-          \if_catcode:w #1 \c_space_token            A \else:
-            6
-          \fi: \fi: \fi: \fi: \fi: \fi: \fi: \fi:
-          \__int_value:w `#1 \s__tl
-          \exp_after:wN \@@_b_normals:ww
-            \int_use:N \__int_eval:w \c_minus_one +
-        }
-    }
-\group_end:
+\cs_new:Npx \@@_b_char:Nww #1
+  {
+    \exp_not:N \if_meaning:w #1 \exp_not:N \tex_undefined:D
+      \token_to_str:N D \exp_not:N \else:
+    \exp_not:N \if_catcode:w #1 \c_catcode_other_token
+      \token_to_str:N C \exp_not:N \else:
+    \exp_not:N \if_catcode:w #1 \c_catcode_letter_token
+      \token_to_str:N B \exp_not:N \else:
+    \exp_not:N \if_catcode:w #1 \c_math_toggle_token      3 \exp_not:N \else:
+    \exp_not:N \if_catcode:w #1 \c_alignment_token        4 \exp_not:N \else:
+    \exp_not:N \if_catcode:w #1 \c_math_superscript_token 7 \exp_not:N \else:
+    \exp_not:N \if_catcode:w #1 \c_math_subscript_token   8 \exp_not:N \else:
+    \exp_not:N \if_catcode:w #1 \c_space_token
+      \token_to_str:N A \exp_not:N \else:
+      6
+    \exp_not:n { \fi: \fi: \fi: \fi: \fi: \fi: \fi: \fi: }
+    \exp_not:N \__int_value:w `#1 \s__tl
+   \exp_not:N \exp_after:wN \exp_not:N \@@_b_normals:ww
+     \exp_not:N \int_use:N \exp_not:N \__int_eval:w \c_minus_one +
+  }
 %    \end{macrocode}
 % \end{macro}
 %

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