[latex3-commits] [l3svn] 03/04: Remove use of \tl_to_lowercase: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.

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.