diff options
author | Karl Berry <karl@freefriends.org> | 2012-07-23 17:15:00 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-07-23 17:15:00 +0000 |
commit | 134349701bddf7cbbacf6030c6b9f9838aff96fa (patch) | |
tree | ec1140c46e1c0347a671a6fa3cf8af5a79e95f93 /Master/texmf-dist/tex/latex/l3kernel/l3basics.sty | |
parent | f7855c12c18bb97b7b9e49ab685ee558d8c0b47b (diff) |
l3kernel 3990 (17jul12)
git-svn-id: svn://tug.org/texlive/trunk@27108 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/l3kernel/l3basics.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/l3kernel/l3basics.sty | 685 |
1 files changed, 385 insertions, 300 deletions
diff --git a/Master/texmf-dist/tex/latex/l3kernel/l3basics.sty b/Master/texmf-dist/tex/latex/l3kernel/l3basics.sty index 182505d931f..6b6c8e90276 100644 --- a/Master/texmf-dist/tex/latex/l3kernel/l3basics.sty +++ b/Master/texmf-dist/tex/latex/l3kernel/l3basics.sty @@ -46,11 +46,11 @@ %% %% ----------------------------------------------------------------------- \RequirePackage{l3names} -\GetIdInfo$Id: l3basics.dtx 3491 2012-03-04 06:13:18Z bruno $ - {L3 Experimental basic definitions} +\GetIdInfo$Id: l3basics.dtx 3987 2012-07-15 21:57:39Z joseph $ + {L3 Basic definitions} \ProvidesExplPackage {\ExplFileName}{\ExplFileDate}{\ExplFileVersion}{\ExplFileDescription} -\package_check_loaded_expl: +\__expl_package_check: \tex_let:D \if_true: \tex_iftrue:D \tex_let:D \if_false: \tex_iffalse:D \tex_let:D \or: \tex_or:D @@ -80,11 +80,8 @@ \tex_let:D \group_begin: \tex_begingroup:D \tex_let:D \group_end: \tex_endgroup:D \tex_let:D \if_int_compare:w \tex_ifnum:D -\tex_let:D \int_to_roman:w \tex_romannumeral:D +\tex_let:D \__int_to_roman:w \tex_romannumeral:D \tex_let:D \group_insert_after:N \tex_aftergroup:D -\tex_let:D \tex_global:D \tex_global:D -\tex_let:D \tex_long:D \tex_long:D -\tex_let:D \tex_protected:D \etex_protected:D \tex_long:D \tex_def:D \exp_args:Nc #1#2 { \exp_after:wN #1 \cs:w #2 \cs_end: } \tex_def:D \token_to_str:c { \exp_args:Nc \token_to_str:N } \tex_long:D \tex_def:D \cs_meaning:c #1 @@ -97,14 +94,14 @@ { \exp_args:Nc \cs_meaning:N {#1} } { \tl_to_str:n {undefined} } } -\tex_protected:D \tex_def:D \cs_show:c +\etex_protected:D \tex_def:D \cs_show:c { \group_begin: \exp_args:NNc \group_end: \cs_show:N } \tex_let:D \c_minus_one \m@ne -\tex_chardef:D \c_sixteen = 16~ -\tex_chardef:D \c_zero = 0~ -\tex_chardef:D \c_six = 6~ -\tex_chardef:D \c_seven = 7~ -\tex_chardef:D \c_twelve = 12~ +\tex_chardef:D \c_sixteen = 16 ~ +\tex_chardef:D \c_zero = 0 ~ +\tex_chardef:D \c_six = 6 ~ +\tex_chardef:D \c_seven = 7 ~ +\tex_chardef:D \c_twelve = 12 ~ \etex_ifdefined:D \luatex_luatexversion:D \tex_chardef:D \c_max_register_int = 65 535 ~ \tex_else:D @@ -112,18 +109,18 @@ \tex_fi:D \tex_let:D \cs_set_nopar:Npn \tex_def:D \tex_let:D \cs_set_nopar:Npx \tex_edef:D -\tex_protected:D \cs_set_nopar:Npn \cs_set:Npn +\etex_protected:D \cs_set_nopar:Npn \cs_set:Npn { \tex_long:D \cs_set_nopar:Npn } -\tex_protected:D \cs_set_nopar:Npn \cs_set:Npx +\etex_protected:D \cs_set_nopar:Npn \cs_set:Npx { \tex_long:D \cs_set_nopar:Npx } -\tex_protected:D \cs_set_nopar:Npn \cs_set_protected_nopar:Npn - { \tex_protected:D \cs_set_nopar:Npn } -\tex_protected:D \cs_set_nopar:Npn \cs_set_protected_nopar:Npx - { \tex_protected:D \cs_set_nopar:Npx } +\etex_protected:D \cs_set_nopar:Npn \cs_set_protected_nopar:Npn + { \etex_protected:D \cs_set_nopar:Npn } +\etex_protected:D \cs_set_nopar:Npn \cs_set_protected_nopar:Npx + { \etex_protected:D \cs_set_nopar:Npx } \cs_set_protected_nopar:Npn \cs_set_protected:Npn - { \tex_protected:D \tex_long:D \cs_set_nopar:Npn } + { \etex_protected:D \tex_long:D \cs_set_nopar:Npn } \cs_set_protected_nopar:Npn \cs_set_protected:Npx - { \tex_protected:D \tex_long:D \cs_set_nopar:Npx } + { \etex_protected:D \tex_long:D \cs_set_nopar:Npx } \tex_let:D \cs_gset_nopar:Npn \tex_gdef:D \tex_let:D \cs_gset_nopar:Npx \tex_xdef:D \cs_set_protected_nopar:Npn \cs_gset:Npn @@ -131,18 +128,18 @@ \cs_set_protected_nopar:Npn \cs_gset:Npx { \tex_long:D \cs_gset_nopar:Npx } \cs_set_protected_nopar:Npn \cs_gset_protected_nopar:Npn - { \tex_protected:D \cs_gset_nopar:Npn } + { \etex_protected:D \cs_gset_nopar:Npn } \cs_set_protected_nopar:Npn \cs_gset_protected_nopar:Npx - { \tex_protected:D \cs_gset_nopar:Npx } + { \etex_protected:D \cs_gset_nopar:Npx } \cs_set_protected_nopar:Npn \cs_gset_protected:Npn - { \tex_protected:D \tex_long:D \cs_gset_nopar:Npn } + { \etex_protected:D \tex_long:D \cs_gset_nopar:Npn } \cs_set_protected_nopar:Npn \cs_gset_protected:Npx - { \tex_protected:D \tex_long:D \cs_gset_nopar:Npx } + { \etex_protected:D \tex_long:D \cs_gset_nopar:Npx } \cs_set:Npn \use:c #1 { \cs:w #1 \cs_end: } \cs_set_protected:Npn \use:x #1 { - \cs_set_nopar:Npx \l_exp_internal_tl {#1} - \l_exp_internal_tl + \cs_set_nopar:Npx \l__exp_internal_tl {#1} + \l__exp_internal_tl } \cs_set:Npn \use:n #1 {#1} \cs_set:Npn \use:nn #1#2 {#1#2} @@ -174,173 +171,198 @@ \cs_set:Npn \use_none:nnnnnnnn #1#2#3#4#5#6#7#8 { } \cs_set:Npn \use_none:nnnnnnnnn #1#2#3#4#5#6#7#8#9 { } \cs_set_nopar:Npn \prg_return_true: - { \exp_after:wN \use_i:nn \int_to_roman:w } + { \exp_after:wN \use_i:nn \__int_to_roman:w } \cs_set_nopar:Npn \prg_return_false: - { \exp_after:wN \use_ii:nn \int_to_roman:w} + { \exp_after:wN \use_ii:nn \__int_to_roman:w} \cs_set_protected_nopar:Npn \prg_set_conditional:Npnn - { \prg_generate_conditional_parm_aux:NNpnn \cs_set:Npn } + { \__prg_generate_conditional_parm:nnNpnn { set } { } } \cs_set_protected_nopar:Npn \prg_new_conditional:Npnn - { \prg_generate_conditional_parm_aux:NNpnn \cs_new:Npn } + { \__prg_generate_conditional_parm:nnNpnn { new } { } } \cs_set_protected_nopar:Npn \prg_set_protected_conditional:Npnn - { \prg_generate_conditional_parm_aux:NNpnn \cs_set_protected:Npn } + { \__prg_generate_conditional_parm:nnNpnn { set } { _protected } } \cs_set_protected_nopar:Npn \prg_new_protected_conditional:Npnn - { \prg_generate_conditional_parm_aux:NNpnn \cs_new_protected:Npn } -\cs_set_protected:Npn \prg_generate_conditional_parm_aux:NNpnn #1#2#3# + { \__prg_generate_conditional_parm:nnNpnn { new } { _protected } } +\cs_set_protected:Npn \__prg_generate_conditional_parm:nnNpnn #1#2#3#4# { - \cs_split_function:NN #2 \prg_generate_conditional_aux:nnNNnnnn - #1 { parm } {#3} + \__cs_split_function:NN #3 \__prg_generate_conditional:nnNnnnnn + {#1} {#2} {#4} } \cs_set_protected_nopar:Npn \prg_set_conditional:Nnn - { \prg_generate_conditional_count_aux:NNnn \cs_set:Npn } + { \__prg_generate_conditional_count:nnNnn { set } { } } \cs_set_protected_nopar:Npn \prg_new_conditional:Nnn - { \prg_generate_conditional_count_aux:NNnn \cs_new:Npn } + { \__prg_generate_conditional_count:nnNnn { new } { } } \cs_set_protected_nopar:Npn \prg_set_protected_conditional:Nnn - { \prg_generate_conditional_count_aux:NNnn \cs_set_protected:Npn } + { \__prg_generate_conditional_count:nnNnn { set } { _protected } } \cs_set_protected_nopar:Npn \prg_new_protected_conditional:Nnn - { \prg_generate_conditional_count_aux:NNnn \cs_new_protected:Npn } -\cs_set_protected:Npn \prg_generate_conditional_count_aux:NNnn #1#2 + { \__prg_generate_conditional_count:nnNnn { new } { _protected } } +\cs_set_protected:Npn \__prg_generate_conditional_count:nnNnn #1#2#3 { - \exp_args:Nnf \use:n - { - \cs_split_function:NN #2 \prg_generate_conditional_aux:nnNNnnnn - #1 { count } - } - { \cs_get_arg_count_from_signature:N #2 } + \__cs_split_function:NN #3 \__prg_generate_conditional_count:nnNnnnn + {#1} {#2} } -\cs_set_protected:Npn \prg_set_eq_conditional:NNn #1#2#3 - { \prg_set_eq_conditional_aux:NNNn \cs_set_eq:cc #1#2 {#3} } -\cs_set_protected:Npn \prg_new_eq_conditional:NNn #1#2#3 - { \prg_set_eq_conditional_aux:NNNn \cs_new_eq:cc #1#2 {#3} } -\cs_set_protected:Npn \prg_generate_conditional_aux:nnNNnnnn #1#2#3#4#5#6#7#8 +\cs_set_protected:Npn \__prg_generate_conditional_count:nnNnnnn #1#2#3#4#5 { - \prg_generate_conditional_aux:nnw {#5} + \__cs_parm_from_arg_count:nnF + { \__prg_generate_conditional:nnNnnnnn {#1} {#2} #3 {#4} {#5} } + { \tl_count:n {#2} } { - #4 {#1} {#2} {#6} {#8} + \__msg_kernel_error:nnxx { kernel } { bad-number-of-arguments } + { \token_to_str:c { #1 : #2 } } + { \tl_count:n {#2} } + \use_none:nn } - #7 , ? , \q_recursion_stop } -\cs_set_protected:Npn \prg_generate_conditional_aux:nnw #1#2#3 , +\cs_set_protected:Npn \__prg_generate_conditional:nnNnnnnn #1#2#3#4#5#6#7#8 { - \if:w ?#3 - \exp_after:wN \use_none_delimit_by_q_recursion_stop:w + \if_meaning:w \c_true_bool #3 + \exp_after:wN \use_i:nn + \else: + \exp_after:wN \use_ii:nn \fi: - \use:c { prg_generate_#3_form_#1:Nnnnn } #2 - \prg_generate_conditional_aux:nnw {#1} {#2} + { + \__prg_generate_conditional:nnnnnnw + {#4} {#5} {#1} {#2} {#6} {#8} + #7 , , \q_recursion_stop + } + { + \__msg_kernel_error:nnx { kernel } { missing-colon } + { \token_to_str:c {#1} } + } } -\cs_set_protected:Npn \prg_generate_p_form_parm:Nnnnn #1#2#3#4#5 +\cs_set_protected:Npn \__prg_generate_conditional:nnnnnnw #1#2#3#4#5#6#7 , { - \exp_args:Nc #1 { #2 _p: #3 } #4 + \if_catcode:w \scan_stop: \etex_detokenize:D {#7} \scan_stop: + \exp_after:wN \use_none_delimit_by_q_recursion_stop:w + \fi: + \use:c { __prg_generate_ \etex_detokenize:D {#7} _form:wnnnnnn } + \__msg_kernel_error:nnxx + { kernel } { conditional-form-unknown } + { \tl_to_str:n {#7} } { \token_to_str:c { #3 : #4 } } + \use_none:nnnnnnn + \q_stop + {#1} {#2} {#3} {#4} {#5} {#6} + \__prg_generate_conditional:nnnnnnw {#1} {#2} {#3} {#4} {#5} {#6} + } +\cs_set_protected:Npn \__prg_generate_p_form:wnnnnnn #1 \q_stop #2#3#4#5#6#7 + { + \if_meaning:w \scan_stop: #3 \scan_stop: + \exp_after:wN \use_i:nn + \else: + \exp_after:wN \use_ii:nn + \fi: { - #5 \c_zero - \c_true_bool \c_false_bool + \exp_args:Nc \exp_args:Nc { cs_ #2 #3 :Npn } { #4 _p: #5 } #6 + { #7 \c_zero \c_true_bool \c_false_bool } } - } -\cs_set_protected:Npn \prg_generate_T_form_parm:Nnnnn #1#2#3#4#5 - { - \exp_args:Nc #1 { #2 : #3 T } #4 { - #5 \c_zero - \use:n \use_none:n + \__msg_kernel_error:nnx { kernel } { protected-predicate } + { \token_to_str:c { #4 _p: #5 } } } } -\cs_set_protected:Npn \prg_generate_F_form_parm:Nnnnn #1#2#3#4#5 +\cs_set_protected:Npn \__prg_generate_T_form:wnnnnnn #1 \q_stop #2#3#4#5#6#7 { - \exp_args:Nc #1 { #2 : #3 F } #4 - { - #5 \c_zero - { } - } + \exp_args:Nc \exp_args:Nc { cs_ #2 #3 :Npn } { #4 : #5 T } #6 + { #7 \c_zero \use:n \use_none:n } } -\cs_set_protected:Npn \prg_generate_TF_form_parm:Nnnnn #1#2#3#4#5 +\cs_set_protected:Npn \__prg_generate_F_form:wnnnnnn #1 \q_stop #2#3#4#5#6#7 { - \exp_args:Nc #1 { #2 : #3 TF } #4 - { #5 \c_zero } + \exp_args:Nc \exp_args:Nc { cs_ #2 #3 :Npn } { #4 : #5 F } #6 + { #7 \c_zero { } } } -\cs_set_protected:Npn \prg_generate_p_form_count:Nnnnn #1#2#3#4#5 +\cs_set_protected:Npn \__prg_generate_TF_form:wnnnnnn #1 \q_stop #2#3#4#5#6#7 { - \cs_generate_from_arg_count:cNnn { #2 _p: #3 } #1 {#4} - { - #5 \c_zero - \c_true_bool \c_false_bool - } + \exp_args:Nc \exp_args:Nc { cs_ #2 #3 :Npn } { #4 : #5 TF } #6 + { #7 \c_zero } } -\cs_set_protected:Npn \prg_generate_T_form_count:Nnnnn #1#2#3#4#5 +\cs_set_protected:Npn \prg_set_eq_conditional:NNn #1#2 { - \cs_generate_from_arg_count:cNnn { #2 : #3 T } #1 {#4} - { - #5 \c_zero - \use:n \use_none:n - } + \__cs_split_function:NN #2 \__prg_set_eq_conditional:nnNNNn + \cs_set_eq:cc #1 } -\cs_set_protected:Npn \prg_generate_F_form_count:Nnnnn #1#2#3#4#5 +\cs_set_protected:Npn \prg_new_eq_conditional:NNn #1#2 { - \cs_generate_from_arg_count:cNnn { #2 : #3 F } #1 {#4} - { - #5 \c_zero - { } - } + \__cs_split_function:NN #2 \__prg_set_eq_conditional:nnNNNn + \cs_new_eq:cc #1 } -\cs_set_protected:Npn \prg_generate_TF_form_count:Nnnnn #1#2#3#4#5 +\cs_set_protected:Npn \__prg_set_eq_conditional:nnNNNn #1#2#3#4#5#6 { - \cs_generate_from_arg_count:cNnn { #2 : #3 TF } #1 {#4} - { #5 \c_zero } + \__cs_split_function:NN #5 \__prg_set_eq_conditional:nnNnnNNw + {#1} {#2} #3 #4 + #6 , \scan_stop: , \q_recursion_stop + } +\cs_set_protected:Npn \__prg_set_eq_conditional:nnNnnNNw #1#2#3#4#5#6 + { + \if_meaning:w \c_false_bool #3 + \__msg_kernel_error:nnx { kernel } { missing-colon } + { \token_to_str:c {#1} } + \exp_after:wN \use_none_delimit_by_q_recursion_stop:w + \fi: + \if_meaning:w \c_false_bool #6 + \__msg_kernel_error:nnx { kernel } { missing-colon } + { \token_to_str:c {#4} } + \exp_after:wN \use_none_delimit_by_q_recursion_stop:w + \fi: + \__prg_set_eq_conditional_loop:nnnnNw {#1} {#2} {#4} {#5} } -\cs_set_protected:Npn \prg_set_eq_conditional_aux:NNNn #1#2#3#4 - { \prg_set_eq_conditional_aux:NNNw #1#2#3#4 , ? , \q_recursion_stop } -\cs_set_protected:Npn \prg_set_eq_conditional_aux:NNNw #1#2#3#4 , +\cs_set_protected:Npn \__prg_set_eq_conditional_loop:nnnnNw #1#2#3#4#5#6 , { - \if:w ? #4 \scan_stop: + \if_meaning:w \scan_stop: #6 \scan_stop: \exp_after:wN \use_none_delimit_by_q_recursion_stop:w \fi: - #1 - { \exp_args:NNc \cs_split_function:NN #2 { prg_conditional_form_#4:nnn } } - { \exp_args:NNc \cs_split_function:NN #3 { prg_conditional_form_#4:nnn } } - \prg_set_eq_conditional_aux:NNNw #1 {#2} {#3} - } -\cs_set:Npn \prg_conditional_form_p:nnn #1#2#3 { #1 _p : #2 } -\cs_set:Npn \prg_conditional_form_TF:nnn #1#2#3 { #1 : #2 TF } -\cs_set:Npn \prg_conditional_form_T:nnn #1#2#3 { #1 : #2 T } -\cs_set:Npn \prg_conditional_form_F:nnn #1#2#3 { #1 : #2 F } -\tex_chardef:D \c_true_bool = 1~ -\tex_chardef:D \c_false_bool = 0~ + \cs_if_exist:cTF + { \use:c { __prg_conditional_ #6 _form:nn } {#3} {#4} } + { + #5 + { \use:c { __prg_conditional_ #6 _form:nn } {#1} {#2} } + { \use:c { __prg_conditional_ #6 _form:nn } {#3} {#4} } + } + { + \__msg_kernel_error:nnx { kernel } { command-not-defined } + { + \token_to_str:c + { \use:c { __prg_conditional_ #6 _form:nn } {#3} {#4} } + } + } + \__prg_set_eq_conditional_loop:nnnnNw {#1} {#2} {#3} {#4} #5 + } +\cs_set:Npn \__prg_conditional_p_form:nn #1#2 { #1 _p : #2 } +\cs_set:Npn \__prg_conditional_TF_form:nn #1#2 { #1 : #2 TF } +\cs_set:Npn \__prg_conditional_T_form:nn #1#2 { #1 : #2 T } +\cs_set:Npn \__prg_conditional_F_form:nn #1#2 { #1 : #2 F } +\tex_chardef:D \c_true_bool = 1 ~ +\tex_chardef:D \c_false_bool = 0 ~ \cs_set_nopar:Npn \cs_to_str:N { - \int_to_roman:w - \if:w \token_to_str:N \ \cs_to_str_aux:w \fi: - \exp_after:wN \cs_to_str_aux:N \token_to_str:N + \__int_to_roman:w + \if:w \token_to_str:N \ \__cs_to_str:w \fi: + \exp_after:wN \__cs_to_str:N \token_to_str:N } -\cs_set:Npn \cs_to_str_aux:N #1 { \c_zero } -\cs_set:Npn \cs_to_str_aux:w #1 \cs_to_str_aux:N - { - \int_value:w \fi: \exp_after:wN \c_zero } +\cs_set:Npn \__cs_to_str:N #1 { \c_zero } +\cs_set:Npn \__cs_to_str:w #1 \__cs_to_str:N + { - \__int_value:w \fi: \exp_after:wN \c_zero } \group_begin: - \tex_lccode:D `\@ = `\: \scan_stop: - \tex_catcode:D `\@ = 12~ +\tex_lccode:D `\@ = `\: \scan_stop: +\tex_catcode:D `\@ = 12 ~ \tex_lowercase:D { \group_end: - \cs_set:Npn \cs_split_function:NN #1#2 + \cs_set:Npn \__cs_split_function:NN #1 { \exp_after:wN \exp_after:wN - \exp_after:wN \cs_split_function_aux:w - \cs_to_str:N #1 @ a \q_stop #2 + \exp_after:wN \__cs_split_function_i:w + \cs_to_str:N #1 \q_mark \c_true_bool + @ \q_mark \c_false_bool + \q_stop } - \cs_set:Npn \cs_split_function_aux:w #1 @ #2#3 \q_stop #4 - { - \if_meaning:w a #2 - \exp_after:wN \use_i:nn - \else: - \exp_after:wN\use_ii:nn - \fi: - { #4 {#1} { } \c_false_bool } - { \cs_split_function_auxii:w #2#3 \q_stop #4 {#1} } - } - \cs_set:Npn \cs_split_function_auxii:w #1 @a \q_stop #2#3 - { #2{#3}{#1}\c_true_bool } - } -\cs_set:Npn \cs_get_function_name:N #1 - { \cs_split_function:NN #1 \use_i:nnn } -\cs_set:Npn \cs_get_function_signature:N #1 - { \cs_split_function:NN #1 \use_ii:nnn } + \cs_set:Npn \__cs_split_function_i:w #1 @ #2 \q_mark #3#4 \q_stop #5 + { \__cs_split_function_ii:w #5 #1 \q_mark \q_stop {#2} #3 } + \cs_set:Npn \__cs_split_function_ii:w #1#2 \q_mark #3 \q_stop + { #1 {#2} } + } +\cs_set:Npn \__cs_get_function_name:N #1 + { \__cs_split_function:NN #1 \use_i:nnn } +\cs_set:Npn \__cs_get_function_signature:N #1 + { \__cs_split_function:NN #1 \use_ii:nnn } \prg_set_conditional:Npnn \cs_if_exist:N #1 { p , T , F , TF } { \if_meaning:w #1 \scan_stop: @@ -417,7 +439,7 @@ { \tex_immediate:D \tex_write:D \c_minus_one } \cs_set_protected_nopar:Npn \iow_term:x { \tex_immediate:D \tex_write:D \c_sixteen } -\cs_set_protected:Npn \msg_kernel_error:nnxx #1#2#3#4 +\cs_set_protected:Npn \__msg_kernel_error:nnxx #1#2#3#4 { \tex_errmessage:D { @@ -429,85 +451,85 @@ } \tex_end:D } -\cs_set_protected:Npn \msg_kernel_error:nnx #1#2#3 - { \msg_kernel_error:nnxx {#1} {#2} {#3} { } } -\cs_set_protected:Npn \msg_kernel_error:nn #1#2 - { \msg_kernel_error:nnxx {#1} {#2} { } { } } +\cs_set_protected:Npn \__msg_kernel_error:nnx #1#2#3 + { \__msg_kernel_error:nnxx {#1} {#2} {#3} { } } +\cs_set_protected:Npn \__msg_kernel_error:nn #1#2 + { \__msg_kernel_error:nnxx {#1} {#2} { } { } } \cs_set_nopar:Npn \msg_line_context: - { on~line~\tex_the:D \tex_inputlineno:D } -\cs_set_protected:Npn \chk_if_free_cs:N #1 + { on~line~ \tex_the:D \tex_inputlineno:D } +\cs_set_protected:Npn \__chk_if_free_cs:N #1 { \cs_if_free:NF #1 { - \msg_kernel_error:nnxx { kernel } { command-already-defined } + \__msg_kernel_error:nnxx { kernel } { command-already-defined } { \token_to_str:N #1 } { \token_to_meaning:N #1 } } } \tex_ifodd:D \l@expl@log@functions@bool - \cs_set_protected:Npn \chk_if_free_cs:N #1 + \cs_set_protected:Npn \__chk_if_free_cs:N #1 { \cs_if_free:NF #1 { - \msg_kernel_error:nnxx { kernel } { command-already-defined } + \__msg_kernel_error:nnxx { kernel } { command-already-defined } { \token_to_str:N #1 } { \token_to_meaning:N #1 } } \iow_log:x { Defining~\token_to_str:N #1~ \msg_line_context: } } \fi: -\cs_set_protected_nopar:Npn \chk_if_free_cs:c - { \exp_args:Nc \chk_if_free_cs:N } -\cs_set_protected:Npn \chk_if_exist_cs:N #1 +\cs_set_protected_nopar:Npn \__chk_if_free_cs:c + { \exp_args:Nc \__chk_if_free_cs:N } +\cs_set_protected:Npn \__chk_if_exist_cs:N #1 { \cs_if_exist:NF #1 { - \msg_kernel_error:nnxx { kernel } { command-not-defined } - { \token_to_str:N #1 } { \token_to_meaning:N #1 } + \__msg_kernel_error:nnx { kernel } { command-not-defined } + { \token_to_str:N #1 } } } -\cs_set_protected_nopar:Npn \chk_if_exist_cs:c - { \exp_args:Nc \chk_if_exist_cs:N } -\cs_set:Npn \cs_tmp:w #1#2 +\cs_set_protected_nopar:Npn \__chk_if_exist_cs:c + { \exp_args:Nc \__chk_if_exist_cs:N } +\cs_set:Npn \__cs_tmp:w #1#2 { \cs_set_protected:Npn #1 ##1 { - \chk_if_free_cs:N ##1 + \__chk_if_free_cs:N ##1 #2 ##1 } } -\cs_tmp:w \cs_new_nopar:Npn \cs_gset_nopar:Npn -\cs_tmp:w \cs_new_nopar:Npx \cs_gset_nopar:Npx -\cs_tmp:w \cs_new:Npn \cs_gset:Npn -\cs_tmp:w \cs_new:Npx \cs_gset:Npx -\cs_tmp:w \cs_new_protected_nopar:Npn \cs_gset_protected_nopar:Npn -\cs_tmp:w \cs_new_protected_nopar:Npx \cs_gset_protected_nopar:Npx -\cs_tmp:w \cs_new_protected:Npn \cs_gset_protected:Npn -\cs_tmp:w \cs_new_protected:Npx \cs_gset_protected:Npx -\cs_set:Npn \cs_tmp:w #1#2 +\__cs_tmp:w \cs_new_nopar:Npn \cs_gset_nopar:Npn +\__cs_tmp:w \cs_new_nopar:Npx \cs_gset_nopar:Npx +\__cs_tmp:w \cs_new:Npn \cs_gset:Npn +\__cs_tmp:w \cs_new:Npx \cs_gset:Npx +\__cs_tmp:w \cs_new_protected_nopar:Npn \cs_gset_protected_nopar:Npn +\__cs_tmp:w \cs_new_protected_nopar:Npx \cs_gset_protected_nopar:Npx +\__cs_tmp:w \cs_new_protected:Npn \cs_gset_protected:Npn +\__cs_tmp:w \cs_new_protected:Npx \cs_gset_protected:Npx +\cs_set:Npn \__cs_tmp:w #1#2 { \cs_new_protected_nopar:Npn #1 { \exp_args:Nc #2 } } -\cs_tmp:w \cs_set_nopar:cpn \cs_set_nopar:Npn -\cs_tmp:w \cs_set_nopar:cpx \cs_set_nopar:Npx -\cs_tmp:w \cs_gset_nopar:cpn \cs_gset_nopar:Npn -\cs_tmp:w \cs_gset_nopar:cpx \cs_gset_nopar:Npx -\cs_tmp:w \cs_new_nopar:cpn \cs_new_nopar:Npn -\cs_tmp:w \cs_new_nopar:cpx \cs_new_nopar:Npx -\cs_tmp:w \cs_set:cpn \cs_set:Npn -\cs_tmp:w \cs_set:cpx \cs_set:Npx -\cs_tmp:w \cs_gset:cpn \cs_gset:Npn -\cs_tmp:w \cs_gset:cpx \cs_gset:Npx -\cs_tmp:w \cs_new:cpn \cs_new:Npn -\cs_tmp:w \cs_new:cpx \cs_new:Npx -\cs_tmp:w \cs_set_protected_nopar:cpn \cs_set_protected_nopar:Npn -\cs_tmp:w \cs_set_protected_nopar:cpx \cs_set_protected_nopar:Npx -\cs_tmp:w \cs_gset_protected_nopar:cpn \cs_gset_protected_nopar:Npn -\cs_tmp:w \cs_gset_protected_nopar:cpx \cs_gset_protected_nopar:Npx -\cs_tmp:w \cs_new_protected_nopar:cpn \cs_new_protected_nopar:Npn -\cs_tmp:w \cs_new_protected_nopar:cpx \cs_new_protected_nopar:Npx -\cs_tmp:w \cs_set_protected:cpn \cs_set_protected:Npn -\cs_tmp:w \cs_set_protected:cpx \cs_set_protected:Npx -\cs_tmp:w \cs_gset_protected:cpn \cs_gset_protected:Npn -\cs_tmp:w \cs_gset_protected:cpx \cs_gset_protected:Npx -\cs_tmp:w \cs_new_protected:cpn \cs_new_protected:Npn -\cs_tmp:w \cs_new_protected:cpx \cs_new_protected:Npx +\__cs_tmp:w \cs_set_nopar:cpn \cs_set_nopar:Npn +\__cs_tmp:w \cs_set_nopar:cpx \cs_set_nopar:Npx +\__cs_tmp:w \cs_gset_nopar:cpn \cs_gset_nopar:Npn +\__cs_tmp:w \cs_gset_nopar:cpx \cs_gset_nopar:Npx +\__cs_tmp:w \cs_new_nopar:cpn \cs_new_nopar:Npn +\__cs_tmp:w \cs_new_nopar:cpx \cs_new_nopar:Npx +\__cs_tmp:w \cs_set:cpn \cs_set:Npn +\__cs_tmp:w \cs_set:cpx \cs_set:Npx +\__cs_tmp:w \cs_gset:cpn \cs_gset:Npn +\__cs_tmp:w \cs_gset:cpx \cs_gset:Npx +\__cs_tmp:w \cs_new:cpn \cs_new:Npn +\__cs_tmp:w \cs_new:cpx \cs_new:Npx +\__cs_tmp:w \cs_set_protected_nopar:cpn \cs_set_protected_nopar:Npn +\__cs_tmp:w \cs_set_protected_nopar:cpx \cs_set_protected_nopar:Npx +\__cs_tmp:w \cs_gset_protected_nopar:cpn \cs_gset_protected_nopar:Npn +\__cs_tmp:w \cs_gset_protected_nopar:cpx \cs_gset_protected_nopar:Npx +\__cs_tmp:w \cs_new_protected_nopar:cpn \cs_new_protected_nopar:Npn +\__cs_tmp:w \cs_new_protected_nopar:cpx \cs_new_protected_nopar:Npx +\__cs_tmp:w \cs_set_protected:cpn \cs_set_protected:Npn +\__cs_tmp:w \cs_set_protected:cpx \cs_set_protected:Npx +\__cs_tmp:w \cs_gset_protected:cpn \cs_gset_protected:Npn +\__cs_tmp:w \cs_gset_protected:cpx \cs_gset_protected:Npx +\__cs_tmp:w \cs_new_protected:cpn \cs_new_protected:Npn +\__cs_tmp:w \cs_new_protected:cpx \cs_new_protected:Npx \cs_new_protected:Npn \cs_set_eq:NN #1 { \tex_let:D #1 =~ } \cs_new_protected_nopar:Npn \cs_set_eq:cN { \exp_args:Nc \cs_set_eq:NN } \cs_new_protected_nopar:Npn \cs_set_eq:Nc { \exp_args:NNc \cs_set_eq:NN } @@ -518,7 +540,7 @@ \cs_new_protected_nopar:Npn \cs_gset_eq:cc { \exp_args:Ncc \cs_gset_eq:NN } \cs_new_protected:Npn \cs_new_eq:NN #1 { - \chk_if_free_cs:N #1 + \__chk_if_free_cs:N #1 \tex_global:D \cs_set_eq:NN #1 } \cs_new_protected_nopar:Npn \cs_new_eq:cN { \exp_args:Nc \cs_new_eq:NN } @@ -535,122 +557,142 @@ \fi: { \cs_gset_eq:cN {#1} \c_undefined:D } } -\cs_new:Npn \cs_get_arg_count_from_signature:N #1 - { \cs_split_function:NN #1 \cs_get_arg_count_from_signature_aux:nnN } -\cs_new:Npn \cs_get_arg_count_from_signature_aux:nnN #1#2#3 +\cs_set_protected:Npn \__cs_parm_from_arg_count:nnF #1#2 { - \if_meaning:w \c_true_bool #3 - \exp_after:wN \use_i:nn + \exp_args:Nx \__cs_parm_from_arg_count_test:nnF + { + \exp_after:wN \exp_not:n + \if_case:w \__int_eval:w #2 \__int_eval_end: + { } + \or: { ##1 } + \or: { ##1##2 } + \or: { ##1##2##3 } + \or: { ##1##2##3##4 } + \or: { ##1##2##3##4##5 } + \or: { ##1##2##3##4##5##6 } + \or: { ##1##2##3##4##5##6##7 } + \or: { ##1##2##3##4##5##6##7##8 } + \or: { ##1##2##3##4##5##6##7##8##9 } + \else: { \c_false_bool } + \fi: + } + {#1} + } +\cs_set_protected:Npn \__cs_parm_from_arg_count_test:nnF #1#2 + { + \if_meaning:w \c_false_bool #1 + \exp_after:wN \use_ii:nn \else: - \exp_after:wN\use_ii:nn + \exp_after:wN \use_i:nn \fi: - { - \exp_after:wN \cs_get_arg_count_from_signature_auxii:w - \use_none:nnnnnnnnn #2 9876543210 \q_stop - } - { -1 } -} -\cs_new:Npn \cs_get_arg_count_from_signature_auxii:w #1#2 \q_stop {#1} -\cs_new_nopar:Npn \cs_get_arg_count_from_signature:c - { \exp_args:Nc \cs_get_arg_count_from_signature:N } -\cs_new_protected:Npn \cs_generate_from_arg_count:NNnn #1#2#3#4 + { #2 {#1} } + } +\cs_new:Npn \__cs_count_signature:N #1 + { \int_eval:n { \__cs_split_function:NN #1 \__cs_count_signature:nnN } } +\cs_new:Npn \__cs_count_signature:nnN #1#2#3 { - \if_case:w \int_eval:w #3 \int_eval_end: - \cs_generate_from_arg_count_aux:nwn {} - \or: \cs_generate_from_arg_count_aux:nwn {##1} - \or: \cs_generate_from_arg_count_aux:nwn {##1##2} - \or: \cs_generate_from_arg_count_aux:nwn {##1##2##3} - \or: \cs_generate_from_arg_count_aux:nwn {##1##2##3##4} - \or: \cs_generate_from_arg_count_aux:nwn {##1##2##3##4##5} - \or: \cs_generate_from_arg_count_aux:nwn {##1##2##3##4##5##6} - \or: \cs_generate_from_arg_count_aux:nwn {##1##2##3##4##5##6##7} - \or: \cs_generate_from_arg_count_aux:nwn {##1##2##3##4##5##6##7##8} - \or: \cs_generate_from_arg_count_aux:nwn {##1##2##3##4##5##6##7##8##9} + \if_meaning:w \c_true_bool #3 + \tl_count:n {#2} \else: - \cs_generate_from_arg_count_error_msg:Nn #1 {#3} - \use_i:nnn + \c_minus_one \fi: - {#2#1} - {#4} } -\cs_new_protected:Npn - \cs_generate_from_arg_count_aux:nwn #1 #2 \fi: #3 - { \fi: #3 #1 } +\cs_new_nopar:Npn \__cs_count_signature:c + { \exp_args:Nc \__cs_count_signature:N } +\cs_new_protected:Npn \cs_generate_from_arg_count:NNnn #1#2#3#4 + { + \__cs_parm_from_arg_count:nnF { \use:nnn #2 #1 } {#3} + { + \__msg_kernel_error:nnxx { kernel } { bad-number-of-arguments } + { \token_to_str:N #1 } { \int_eval:n {#3} } + } + {#4} + } \cs_new_protected_nopar:Npn \cs_generate_from_arg_count:cNnn { \exp_args:Nc \cs_generate_from_arg_count:NNnn } \cs_new_protected_nopar:Npn \cs_generate_from_arg_count:Ncnn { \exp_args:NNc \cs_generate_from_arg_count:NNnn } -\cs_new_protected:Npn \cs_generate_from_arg_count_error_msg:Nn #1#2 +\cs_set:Npn \__cs_tmp:w #1#2#3 + { + \cs_new_protected_nopar:cpx { cs_ #1 : #2 } + { + \exp_not:N \__cs_generate_from_signature:NNn + \exp_after:wN \exp_not:N \cs:w cs_ #1 : #3 \cs_end: + } + } +\cs_new_protected:Npn \__cs_generate_from_signature:NNn #1#2 { - \msg_kernel_error:nnxx { kernel } { bad-number-of-arguments } - { \token_to_str:N #1 } { \int_eval:n {#2} } + \__cs_split_function:NN #2 \__cs_generate_from_signature:nnNNNn + #1 #2 } -\cs_set:Npn \cs_tmp:w #1#2#3 +\cs_new_protected:Npn \__cs_generate_from_signature:nnNNNn #1#2#3#4#5#6 { - \cs_new_protected:cpx { cs_ #1 : #2 } ##1##2 + \bool_if:NTF #3 + { + \cs_generate_from_arg_count:NNnn + #5 #4 { \tl_count:n {#2} } {#6} + } { - \exp_not:N \cs_generate_from_arg_count:NNnn ##1 - \exp_after:wN \exp_not:N \cs:w cs_#1 : #3 \cs_end: - { \exp_not:N \cs_get_arg_count_from_signature:N ##1 }{##2} + \__msg_kernel_error:nnx { kernel } { missing-colon } + { \token_to_str:N #5 } } } -\cs_tmp:w { set } { Nn } { Npn } -\cs_tmp:w { set } { Nx } { Npx } -\cs_tmp:w { set_nopar } { Nn } { Npn } -\cs_tmp:w { set_nopar } { Nx } { Npx } -\cs_tmp:w { set_protected } { Nn } { Npn } -\cs_tmp:w { set_protected } { Nx } { Npx } -\cs_tmp:w { set_protected_nopar } { Nn } { Npn } -\cs_tmp:w { set_protected_nopar } { Nx } { Npx } -\cs_tmp:w { gset } { Nn } { Npn } -\cs_tmp:w { gset } { Nx } { Npx } -\cs_tmp:w { gset_nopar } { Nn } { Npn } -\cs_tmp:w { gset_nopar } { Nx } { Npx } -\cs_tmp:w { gset_protected } { Nn } { Npn } -\cs_tmp:w { gset_protected } { Nx } { Npx } -\cs_tmp:w { gset_protected_nopar } { Nn } { Npn } -\cs_tmp:w { gset_protected_nopar } { Nx } { Npx } -\cs_tmp:w { new } { Nn } { Npn } -\cs_tmp:w { new } { Nx } { Npx } -\cs_tmp:w { new_nopar } { Nn } { Npn } -\cs_tmp:w { new_nopar } { Nx } { Npx } -\cs_tmp:w { new_protected } { Nn } { Npn } -\cs_tmp:w { new_protected } { Nx } { Npx } -\cs_tmp:w { new_protected_nopar } { Nn } { Npn } -\cs_tmp:w { new_protected_nopar } { Nx } { Npx } -\cs_set:Npn \cs_tmp:w #1#2#3 - { - \cs_new_protected:cpx {cs_#1:#2} ##1##2 +\__cs_tmp:w { set } { Nn } { Npn } +\__cs_tmp:w { set } { Nx } { Npx } +\__cs_tmp:w { set_nopar } { Nn } { Npn } +\__cs_tmp:w { set_nopar } { Nx } { Npx } +\__cs_tmp:w { set_protected } { Nn } { Npn } +\__cs_tmp:w { set_protected } { Nx } { Npx } +\__cs_tmp:w { set_protected_nopar } { Nn } { Npn } +\__cs_tmp:w { set_protected_nopar } { Nx } { Npx } +\__cs_tmp:w { gset } { Nn } { Npn } +\__cs_tmp:w { gset } { Nx } { Npx } +\__cs_tmp:w { gset_nopar } { Nn } { Npn } +\__cs_tmp:w { gset_nopar } { Nx } { Npx } +\__cs_tmp:w { gset_protected } { Nn } { Npn } +\__cs_tmp:w { gset_protected } { Nx } { Npx } +\__cs_tmp:w { gset_protected_nopar } { Nn } { Npn } +\__cs_tmp:w { gset_protected_nopar } { Nx } { Npx } +\__cs_tmp:w { new } { Nn } { Npn } +\__cs_tmp:w { new } { Nx } { Npx } +\__cs_tmp:w { new_nopar } { Nn } { Npn } +\__cs_tmp:w { new_nopar } { Nx } { Npx } +\__cs_tmp:w { new_protected } { Nn } { Npn } +\__cs_tmp:w { new_protected } { Nx } { Npx } +\__cs_tmp:w { new_protected_nopar } { Nn } { Npn } +\__cs_tmp:w { new_protected_nopar } { Nx } { Npx } +\cs_set:Npn \__cs_tmp:w #1#2 + { + \cs_new_protected_nopar:cpx { cs_ #1 : c #2 } { - \exp_not:N \cs_generate_from_arg_count:cNnn {##1} - \exp_after:wN \exp_not:N \cs:w cs_#1:#3 \cs_end: - { \exp_not:N \cs_get_arg_count_from_signature:c {##1} } {##2} + \exp_not:N \exp_args:Nc + \exp_after:wN \exp_not:N \cs:w cs_ #1 : N #2 \cs_end: } } -\cs_tmp:w { set } { cn } { Npn } -\cs_tmp:w { set } { cx } { Npx } -\cs_tmp:w { set_nopar } { cn } { Npn } -\cs_tmp:w { set_nopar } { cx } { Npx } -\cs_tmp:w { set_protected } { cn } { Npn } -\cs_tmp:w { set_protected } { cx } { Npx } -\cs_tmp:w { set_protected_nopar } { cn } { Npn } -\cs_tmp:w { set_protected_nopar } { cx } { Npx } -\cs_tmp:w { gset } { cn } { Npn } -\cs_tmp:w { gset } { cx } { Npx } -\cs_tmp:w { gset_nopar } { cn } { Npn } -\cs_tmp:w { gset_nopar } { cx } { Npx } -\cs_tmp:w { gset_protected } { cn } { Npn } -\cs_tmp:w { gset_protected } { cx } { Npx } -\cs_tmp:w { gset_protected_nopar } { cn } { Npn } -\cs_tmp:w { gset_protected_nopar } { cx } { Npx } -\cs_tmp:w { new } { cn } { Npn } -\cs_tmp:w { new } { cx } { Npx } -\cs_tmp:w { new_nopar } { cn } { Npn } -\cs_tmp:w { new_nopar } { cx } { Npx } -\cs_tmp:w { new_protected } { cn } { Npn } -\cs_tmp:w { new_protected } { cx } { Npx } -\cs_tmp:w { new_protected_nopar } { cn } { Npn } -\cs_tmp:w { new_protected_nopar } { cx } { Npx } +\__cs_tmp:w { set } { n } +\__cs_tmp:w { set } { x } +\__cs_tmp:w { set_nopar } { n } +\__cs_tmp:w { set_nopar } { x } +\__cs_tmp:w { set_protected } { n } +\__cs_tmp:w { set_protected } { x } +\__cs_tmp:w { set_protected_nopar } { n } +\__cs_tmp:w { set_protected_nopar } { x } +\__cs_tmp:w { gset } { n } +\__cs_tmp:w { gset } { x } +\__cs_tmp:w { gset_nopar } { n } +\__cs_tmp:w { gset_nopar } { x } +\__cs_tmp:w { gset_protected } { n } +\__cs_tmp:w { gset_protected } { x } +\__cs_tmp:w { gset_protected_nopar } { n } +\__cs_tmp:w { gset_protected_nopar } { x } +\__cs_tmp:w { new } { n } +\__cs_tmp:w { new } { x } +\__cs_tmp:w { new_nopar } { n } +\__cs_tmp:w { new_nopar } { x } +\__cs_tmp:w { new_protected } { n } +\__cs_tmp:w { new_protected } { x } +\__cs_tmp:w { new_protected_nopar } { n } +\__cs_tmp:w { new_protected_nopar } { x } \prg_new_conditional:Npnn \cs_if_eq:NN #1#2 { p , T , F , TF } { \if_meaning:w #1#2 @@ -668,17 +710,17 @@ \cs_new_nopar:Npn \cs_if_eq:ccTF { \exp_args:Ncc \cs_if_eq:NNTF } \cs_new_nopar:Npn \cs_if_eq:ccT { \exp_args:Ncc \cs_if_eq:NNT } \cs_new_nopar:Npn \cs_if_eq:ccF { \exp_args:Ncc \cs_if_eq:NNF } -\cs_new:Npn \kernel_register_show:N #1 +\cs_new_protected:Npn \__kernel_register_show:N #1 { \cs_if_exist:NTF #1 { \tex_showthe:D \use:n {#1} } { - \msg_kernel_error:nnx { kernel } { variable-not-defined } + \__msg_kernel_error:nnx { kernel } { variable-not-defined } { \token_to_str:N #1 } } } -\cs_new_nopar:Npn \kernel_register_show:c - { \exp_args:Nc \kernel_register_show:N } +\cs_new_protected_nopar:Npn \__kernel_register_show:c + { \exp_args:Nc \__kernel_register_show:N } \cs_new_eq:NN \luatex_if_engine:T \use_none:n \cs_new_eq:NN \luatex_if_engine:F \use:n \cs_new_eq:NN \luatex_if_engine:TF \use_ii:nn @@ -720,14 +762,57 @@ = \c_zero \prg_return_true: \else: \prg_return_false: \fi: } -\prg_new_conditional:Npnn \str_if_eq:xx #1#2 { p , T , F , TF } +\prg_new_conditional:Npnn \str_if_eq_x:nn #1#2 { p , T , F , TF } { \if_int_compare:w \pdftex_strcmp:D {#1} {#2} = \c_zero \prg_return_true: \else: \prg_return_false: \fi: } -\cs_new_eq:NN \prg_break_point:n \use:n -\cs_new:Npn \prg_map_break: #1 \prg_break_point:n #2 { #2 } -\cs_new:Npn \prg_map_break:n #1 #2 \prg_break_point:n #3 { #3 #1 } +\cs_new:Npn \__str_if_eq_x_return:nn #1 #2 + { + \if_int_compare:w \pdftex_strcmp:D {#1} {#2} = \c_zero + \prg_return_true: + \else: + \prg_return_false: + \fi: + } +\cs_new:Npn \str_case:nnn #1#2#3 + { + \tex_romannumeral:D + \__str_case:nw {#1} #2 {#1} {#3} \q_recursion_stop + } +\cs_new:Npn \__str_case:nw #1#2#3 + { + \str_if_eq:nnTF {#1} {#2} + { \__str_case_end:nw {#3} } + { \__str_case:nw {#1} } + } +\cs_new:Npn \str_case_x:nnn #1#2#3 + { + \tex_romannumeral:D + \__str_case_x:nw {#1} #2 {#1} {#3} \q_recursion_stop + } +\cs_new:Npn \__str_case_x:nw #1#2#3 + { + \str_if_eq_x:nnTF {#1} {#2} + { \__str_case_end:nw {#3} } + { \__str_case_x:nw {#1} } + } +\cs_new:Npn \__prg_case_end:nw #1#2 \q_recursion_stop { \c_zero #1 } +\cs_new_eq:NN \__str_case_end:nw \__prg_case_end:nw +\cs_new_eq:NN \__prg_break_point:Nn \use_ii:nn +\cs_new:Npn \__prg_map_break:Nn #1#2#3 \__prg_break_point:Nn #4#5 + { + #5 + \if_meaning:w #1 #4 + \exp_after:wN \use_iii:nnn + \fi: + \__prg_map_break:Nn #1 {#2} + } +\cs_new_eq:NN \str_if_eq_p:xx \str_if_eq_x_p:nn +\cs_new_eq:NN \str_if_eq:xxT \str_if_eq_x:nnT +\cs_new_eq:NN \str_if_eq:xxF \str_if_eq_x:nnF +\cs_new_eq:NN \str_if_eq:xxTF \str_if_eq_x:nnTF +\cs_new_eq:NN \chk_if_free_cs:N \__chk_if_free_cs:N %% %% %% End of file `l3basics.sty'. |