[latex3-commits] [l3svn] branch master updated: Remove a use of \tl_to_uppercase:n
noreply at latex-project.org
noreply at latex-project.org
Mon Aug 31 23:50:19 CEST 2015
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.
More information about the latex3-commits
mailing list