diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex | 116 |
1 files changed, 34 insertions, 82 deletions
diff --git a/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex b/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex index d14778dad58..7327e2085f1 100644 --- a/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex +++ b/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex @@ -71,7 +71,7 @@ %% and all files in that bundle must be distributed together. %% %% File: expl3.dtx -\def\ExplFileDate{2023-02-02}% +\def\ExplFileDate{2023-02-07}% \begingroup \def\next{\endgroup}% \expandafter\ifx\csname PackageError\endcsname\relax @@ -32510,23 +32510,7 @@ Type H <return> for immediate help}\def~{\errmessage{% } } \tl_new:N \l_text_accents_tl -\tl_set:Nn \l_text_accents_tl - { \` \' \^ \~ \= \u \. \" \r \H \v \d \c \k \b \t } \tl_new:N \l_text_letterlike_tl -\tl_set:Nn \l_text_letterlike_tl - { - \AA \aa - \AE \ae - \DH \dh - \DJ \dj - \IJ \ij - \L \l - \NG \ng - \O \o - \OE \oe - \SS \ss - \TH \th - } \tl_new:N \l_text_case_exclude_arg_tl \tl_set:Nx \l_text_case_exclude_arg_tl { @@ -32975,6 +32959,24 @@ Type H <return> for immediate help}\def~{\errmessage{% \tl_set:cn { l__text_expand_ \token_to_str:N #1 _tl } {#2} } \cs_generate_variant:Nn \text_declare_expand_equivalent:Nn { c } +\tl_map_inline:nn + { \` \' \^ \~ \= \u \. \" \r \H \v \d \c \k \b \t } + { \text_declare_expand_equivalent:Nn #1 { \exp_not:n {#1} } } +\tl_map_inline:nn + { + \AA \aa + \AE \ae + \DH \dh + \DJ \dj + \IJ \ij + \L \l + \NG \ng + \O \o + \OE \oe + \SS \ss + \TH \th + } + { \text_declare_expand_equivalent:Nn #1 { \exp_not:n {#1} } } %% File: l3text-case.dtx \bool_new:N \l_text_titlecase_check_letter_bool \bool_set_true:N \l_text_titlecase_check_letter_bool @@ -33683,12 +33685,6 @@ Type H <return> for immediate help}\def~{\errmessage{% } \cs_new:Npn \__text_change_case_upper_el_ypogegrammeni:n #1 { - \__text_change_case_codepoint:nn { upper } {#1} - \codepoint_generate:nn { "0399 } - { \char_value_catcode:n { "0399 } } - } -\cs_new:cpn { __text_change_case_upper_el-x-iota_ypogegrammeni:n } #1 - { \int_case:nnF { \__text_codepoint_from_chars:Nw #1 } { @@ -33703,6 +33699,12 @@ Type H <return> for immediate help}\def~{\errmessage{% } \cs_new:Npn \__text_change_case_upper_el_ypogegrammeni_aux:n #1 { \codepoint_generate:nn {#1} { \char_value_catcode:n {#1} } } +\cs_new:cpn { __text_change_case_upper_el-x-iota_ypogegrammeni:n } #1 + { + \__text_change_case_codepoint:nn { upper } {#1} + \codepoint_generate:nn { "0399 } + { \char_value_catcode:n { "0399 } } + } \cs_new:Npn \__text_change_case_upper_el_gobble:nnw #1#2#3 \q__text_recursion_stop { @@ -34933,40 +34935,15 @@ Type H <return> for immediate help}\def~{\errmessage{% \text_declare_purify_equivalent:Nn \nobreakspace { ~ } \text_declare_purify_equivalent:Nn \ { ~ } \text_declare_purify_equivalent:Nn \, { ~ } -\bool_lazy_or:nnTF - { \sys_if_engine_luatex_p: } - { \sys_if_engine_xetex_p: } - { - \cs_set_protected:Npn \__text_loop:Nn #1#2 - { - \quark_if_recursion_tail_stop:N #1 - \text_declare_purify_equivalent:Nx #1 - { - \char_generate:nn { "#2 } - { \char_value_catcode:n { "#2 } } - } - \__text_loop:Nn - } - } +\cs_set_protected:Npn \__text_loop:Nn #1#2 { - \cs_set_protected:Npn \__text_loop:Nn #1#2 - { - \quark_if_recursion_tail_stop:N #1 - \text_declare_purify_equivalent:Nx #1 - { - \exp_args:Ne \__text_tmp:n - { \__kernel_codepoint_to_bytes:n { "#2 } } - } - \__text_loop:Nn - } - \cs_set:Npn \__text_tmp:n #1 { \__text_tmp:nnnn #1 } - \cs_set:Npn \__text_tmp:nnnn #1#2#3#4 + \quark_if_recursion_tail_stop:N #1 + \text_declare_purify_equivalent:Nx #1 { - \exp_after:wN \exp_after:wN \exp_after:wN - \exp_not:N \char_generate:nn {#1} { 13 } - \exp_after:wN \exp_after:wN \exp_after:wN - \exp_not:N \char_generate:nn {#2} { 13 } + \codepoint_generate:nn {"#2} + { \char_value_catcode:n {"#2} } } + \__text_loop:Nn } \__text_loop:Nn \AA { 00C5 } @@ -35008,41 +34985,16 @@ Type H <return> for immediate help}\def~{\errmessage{% \exp_not:v { c__text_purify_ \token_to_str:N #1 _tl } } } -\tl_map_inline:Nn \l_text_accents_tl +\tl_map_inline:nn { \` \' \^ \~ \= \u \. \" \r \H \v \d \c \k \b \t } { \text_declare_purify_equivalent:Nn #1 { \__text_purify_accent:NN #1 } } \group_begin: \cs_set_protected:Npn \__text_loop:Nn #1#2 { \quark_if_recursion_tail_stop:N #1 \tl_const:cx { c__text_purify_ \token_to_str:N #1 _tl } - { \__text_tmp:n {#2} } + { \codepoint_generate:nn {"#2} { \char_value_catcode:n { "#2 } } } \__text_loop:Nn } - \bool_lazy_or:nnTF - { \sys_if_engine_luatex_p: } - { \sys_if_engine_xetex_p: } - { - \cs_set:Npn \__text_tmp:n #1 - { - \char_generate:nn { "#1 } - { \char_value_catcode:n { "#1 } } - } - } - { - \cs_set:Npn \__text_tmp:n #1 - { - \exp_args:Ne \__text_tmp_aux:n - { \__kernel_codepoint_to_bytes:n { "#1 } } - } - \cs_set:Npn \__text_tmp_aux:n #1 { \__text_tmp:nnnn #1 } - \cs_set:Npn \__text_tmp:nnnn #1#2#3#4 - { - \exp_after:wN \exp_after:wN \exp_after:wN - \exp_not:N \char_generate:nn {#1} { 13 } - \exp_after:wN \exp_after:wN \exp_after:wN - \exp_not:N \char_generate:nn {#2} { 13 } - } - } \__text_loop:Nn \` { 0300 } \' { 0301 } @@ -35067,7 +35019,7 @@ Type H <return> for immediate help}\def~{\errmessage{% \quark_if_recursion_tail_stop:N #1 \tl_const:cx { c__text_purify_ \token_to_str:N #1 _ \token_to_str:N #2 _tl } - { \__text_tmp:n {#3} } + { \codepoint_generate:nn {"#3} { \char_value_catcode:n { "#3 } } } \__text_loop:NNn } \__text_loop:NNn |