From 7e7c62c9701c8511fc3c77003859c95244bb75ec Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 5 Jul 2022 19:47:58 +0000 Subject: l3kernel (5jul22) git-svn-id: svn://tug.org/texlive/trunk@63815 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/l3kernel/expl3-code.tex | 49 +++++++++++++++++++++- .../tex/latex/l3kernel/expl3-generic.tex | 2 +- Master/texmf-dist/tex/latex/l3kernel/expl3.ltx | 2 +- Master/texmf-dist/tex/latex/l3kernel/expl3.sty | 2 +- 4 files changed, 50 insertions(+), 5 deletions(-) (limited to 'Master/texmf-dist/tex/latex/l3kernel') diff --git a/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex b/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex index 8002f1b319e..d303b6c46c5 100644 --- a/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex +++ b/Master/texmf-dist/tex/latex/l3kernel/expl3-code.tex @@ -70,7 +70,7 @@ %% and all files in that bundle must be distributed together. %% %% File: expl3.dtx -\def\ExplFileDate{2022-07-01}% +\def\ExplFileDate{2022-07-04}% \begingroup \def\next{\endgroup}% \expandafter\ifx\csname PackageError\endcsname\relax @@ -32121,6 +32121,7 @@ Type H for immediate help}\def~{\errmessage{% { \exp_not:V \l_text_math_arg_tl \exp_not:V \l_text_expand_exclude_tl + \exp_not:N \text_case_switch:nnnn } #1 } @@ -32534,7 +32535,7 @@ Type H for immediate help}\def~{\errmessage{% \cs_new:Npn \__text_change_case_exclude:nnNN #1#2#3#4 { \__text_if_recursion_tail_stop_do:Nn #4 - { \use:c { __text_change_case_letterlike_ #1 :nnN } {#1} {#2} #3 } + { \__text_change_case_replace:nnN {#1} {#2} #3 } \str_if_eq:nnTF {#3} {#4} { \__text_use_i_delimit_by_q_recursion_stop:nw @@ -32558,6 +32559,39 @@ Type H for immediate help}\def~{\errmessage{% } \__text_change_case_loop:nnw {#1} {#2} } +\cs_new:Npn \__text_change_case_replace:nnN #1#2#3 + { + \cs_if_exist:cTF { l__text_case_ \token_to_str:N #3 _tl } + { + \exp_args:Nv \__text_change_case_replace:nnn + { l__text_case_ \token_to_str:N #3 _tl } {#1} {#2} + } + { \__text_change_case_switch:nnN {#1} {#2} #3 } + } +\cs_new:Npn \__text_change_case_replace:nnn #1#2#3 + { \__text_change_case_loop:nnw {#2} {#3} #1 } +\cs_new:Npn \__text_change_case_switch:nnN #1#2#3 + { + \cs_if_eq:NNTF #3 \text_case_switch:nnnn + { \use:c { __text_change_case_switch_ #1 :nnNnnnn } } + { \use:c { __text_change_case_letterlike_ #1 :nnN } } + {#1} {#2} #3 + } +\cs_new:Npn \__text_change_case_switch_lower:nnNnnnn #1#2#3#4#5#6#7 + { + \__text_change_case_store:n {#5} + \__text_change_case_loop:nnw {#1} {#2} + } +\cs_new:Npn \__text_change_case_switch_upper:nnNnnnn #1#2#3#4#5#6#7 + { + \__text_change_case_store:n {#6} + \__text_change_case_loop:nnw {#1} {#2} + } +\cs_new:Npn \__text_change_case_switch_title:nnNnnnn #1#2#3#4#5#6#7 + { + \__text_change_case_store:n {#7} + \__text_change_case_loop:nnw {#1} {#2} + } \cs_new:Npn \__text_change_case_letterlike_lower:nnN #1#2#3 { \__text_change_case_letterlike:nnnnN {#1} {#1} {#1} {#2} #3 } \cs_new_eq:NN \__text_change_case_letterlike_upper:nnN @@ -32773,6 +32807,17 @@ Type H for immediate help}\def~{\errmessage{% \__text_change_case_char_next_lower:nn \cs_new:Npn \__text_change_case_char_next_end:nn #1#2 { \__text_change_case_break:w } +\cs_new_protected:Npn \text_declare_case_equivalent:Nn #1#2 + { + \tl_clear_new:c { l__text_case_ \token_to_str:N #1 _tl } + \tl_set:cn { l__text_case_ \token_to_str:N #1 _tl } {#2} + } +\cs_new:Npn \text_case_switch:nnnn #1#2#3#4 + { + \__text_case_switch_marker: + #1 + } +\cs_new:Npn \__text_case_switch_marker: { } \bool_lazy_or:nnTF { \sys_if_engine_luatex_p: } { \sys_if_engine_xetex_p: } diff --git a/Master/texmf-dist/tex/latex/l3kernel/expl3-generic.tex b/Master/texmf-dist/tex/latex/l3kernel/expl3-generic.tex index 3b73fbb1042..0380df81a59 100644 --- a/Master/texmf-dist/tex/latex/l3kernel/expl3-generic.tex +++ b/Master/texmf-dist/tex/latex/l3kernel/expl3-generic.tex @@ -19,7 +19,7 @@ %% and all files in that bundle must be distributed together. %% %% File: expl3.dtx -\def\ExplFileDate{2022-07-01}% +\def\ExplFileDate{2022-07-04}% \let\ExplLoaderFileDate\ExplFileDate \begingroup \catcode`\_=11 diff --git a/Master/texmf-dist/tex/latex/l3kernel/expl3.ltx b/Master/texmf-dist/tex/latex/l3kernel/expl3.ltx index 11973865886..d89a879e02c 100644 --- a/Master/texmf-dist/tex/latex/l3kernel/expl3.ltx +++ b/Master/texmf-dist/tex/latex/l3kernel/expl3.ltx @@ -19,7 +19,7 @@ %% and all files in that bundle must be distributed together. %% %% File: expl3.dtx -\def\ExplFileDate{2022-07-01}% +\def\ExplFileDate{2022-07-04}% \let\ExplLoaderFileDate\ExplFileDate \begingroup \catcode`\_=11 diff --git a/Master/texmf-dist/tex/latex/l3kernel/expl3.sty b/Master/texmf-dist/tex/latex/l3kernel/expl3.sty index 261227b079d..d400c79e6af 100644 --- a/Master/texmf-dist/tex/latex/l3kernel/expl3.sty +++ b/Master/texmf-dist/tex/latex/l3kernel/expl3.sty @@ -19,7 +19,7 @@ %% and all files in that bundle must be distributed together. %% %% File: expl3.dtx -\def\ExplFileDate{2022-07-01}% +\def\ExplFileDate{2022-07-04}% \let\ExplLoaderFileDate\ExplFileDate \ProvidesPackage{expl3} [% -- cgit v1.2.3