[latex3-commits] [l3svn] 03/04: Remove use of \tl_to_lowercase:n
noreply at latex-project.org
noreply at latex-project.org
Sun Sep 6 22:47:32 CEST 2015
This is an automated email from the git hooks/post-receive script.
joseph pushed a commit to branch master
in repository l3svn.
commit d24f6d20dd20dfad09158d9eb586e73c43ad7f3c
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date: Sun Sep 6 20:30:03 2015 +0100
Remove use of \tl_to_lowercase:n
---
l3trial/l3fp-extras/l3fp-types.dtx | 35 +++++++++++++++--------------------
1 file changed, 15 insertions(+), 20 deletions(-)
diff --git a/l3trial/l3fp-extras/l3fp-types.dtx b/l3trial/l3fp-extras/l3fp-types.dtx
index 23637f0..0e865f4 100644
--- a/l3trial/l3fp-extras/l3fp-types.dtx
+++ b/l3trial/l3fp-extras/l3fp-types.dtx
@@ -254,26 +254,21 @@
% {\@@_types_cs_to_op:N, \@@_types_cs_to_op_auxi:wwwn}
% From |\__fp_|\meta{op}|_o:w| produce \meta{op}, otherwise~|?|.
% \begin{macrocode}
-\group_begin:
- \char_set_lccode:nn { `- } { `_ }
- \char_set_lccode:nn { `. } { `: }
- \char_set_catcode_other:N F
- \char_set_catcode_other:N P
- \char_set_catcode_other:N O
- \char_set_catcode_other:N W
- \tl_to_lowercase:n
- {
- \cs_new:Npn \@@_types_cs_to_op:N #1
- {
- \exp_after:wN \@@_types_cs_to_op_auxi:wwwn
- \token_to_str:N #1 \q_mark \use_i_delimit_by_q_stop:nw
- --FP- -O.W \q_mark { \use_i_delimit_by_q_stop:nw ? }
- \q_stop
- }
- \cs_new:Npn \@@_types_cs_to_op_auxi:wwwn
- #1 --FP- #2 -O.W #3 \q_mark #4 { #4 {#2} }
- }
-\group_end:
+\cs_new:Npx \@@_types_cs_to_op:N #1
+ {
+ \exp_not:N \exp_after:wN \exp_not:N \@@_types_cs_to_op_auxi:wwwn
+ \exp_not:N \token_to_str:N #1 \exp_not:N \q_mark
+ \exp_not:N \use_i_delimit_by_q_stop:nw
+ \tl_to_str:n { _ _ fp _ _ o : w } \exp_not:N \q_mark
+ { \exp_not:N \use_i_delimit_by_q_stop:nw ? }
+ \exp_not:N \q_stop
+ }
+\use:x
+ {
+ \cs_new:Npn \exp_not:N \@@_types_cs_to_op_auxi:wwwn
+ ##1 \tl_to_str:n { _ _ fp _ } ##2
+ \tl_to_str:n { _ o : w } ##3 \exp_not:N \q_mark ##4 { ##4 {##2} }
+ }
% \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