diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/l3experimental/l3str/l3flag.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/l3experimental/l3str/l3flag.sty | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/Master/texmf-dist/tex/latex/l3experimental/l3str/l3flag.sty b/Master/texmf-dist/tex/latex/l3experimental/l3str/l3flag.sty index b56100853ab..63970cdd45d 100644 --- a/Master/texmf-dist/tex/latex/l3experimental/l3str/l3flag.sty +++ b/Master/texmf-dist/tex/latex/l3experimental/l3str/l3flag.sty @@ -47,59 +47,59 @@ %% ----------------------------------------------------------------------- \RequirePackage{expl3} \GetIdInfo$Id: l3flag.dtx 3039 2011-12-08 09:22:35Z bruno $ - {L3 Experimental Flags} + {L3 Experimental flags} \ProvidesExplPackage {\ExplFileName}{\ExplFileDate}{\ExplFileVersion}{\ExplFileDescription} \cs_new_protected:Npn \flag_new:n #1 { - \cs_new:cpn { flag_trap_#1:w } ##1 ; - { \exp_after:wN \use_none:n \cs:w l_#1_##1_flag \cs_end: } + \cs_new:cpn { __flag_trap_#1:w } ##1 ; + { \exp_after:wN \use_none:n \cs:w __flag_#1_##1: \cs_end: } } \cs_new_protected:Npn \flag_clear:n #1 - { \flag_clear_aux:ww 0 ; #1 \q_stop } -\cs_new_protected:Npn \flag_clear_aux:ww #1 ; #2 \q_stop + { \__flag_clear:ww 0 ; #1 \q_stop } +\cs_new_protected:Npn \__flag_clear:ww #1 ; #2 \q_stop { - \if_cs_exist:w l_#2_#1_flag \cs_end: + \if_cs_exist:w __flag_#2_#1: \cs_end: \else: \exp_after:wN \use_none_delimit_by_q_stop:w \fi: - \cs_set_eq:cN { l_#2_#1_flag } \c_undefined:D - \exp_after:wN \flag_clear_aux:ww - \int_use:N \int_eval:w \c_one + #1 ; + \cs_set_eq:cN { __flag_#2_#1: } \c_undefined:D + \exp_after:wN \__flag_clear:ww + \int_use:N \__int_eval:w \c_one + #1 ; #2 \q_stop } \cs_new_protected:Npn \flag_clear_new:n #1 { \flag_if_exist:nTF {#1} { \flag_clear:n } { \flag_new:n } {#1} } \cs_new_protected:Npn \flag_set_trap:nn #1#2 - { \cs_set:cpn { flag_trap_#1:w } ##1 ; {#2} } + { \cs_set:cpn { __flag_trap_#1:w } ##1 ; {#2} } \prg_new_conditional:Npnn \flag_if_exist:n #1 { p , T , F , TF } { - \cs_if_exist:cTF { flag_trap_#1:w } + \cs_if_exist:cTF { __flag_trap_#1:w } { \prg_return_true: } { \prg_return_false: } } \prg_new_conditional:Npnn \flag_if_raised:n #1 { p , T , F , TF } { - \if_cs_exist:w l_#1_0_flag \cs_end: + \if_cs_exist:w __flag_#1_0: \cs_end: \prg_return_true: \else: \prg_return_false: \fi: } -\cs_new:Npn \flag_height:n #1 { \flag_height_loop:ww 0; #1 \q_stop } -\cs_new:Npn \flag_height_loop:ww #1 ; #2 \q_stop +\cs_new:Npn \flag_height:n #1 { \__flag_height_loop:ww 0; #1 \q_stop } +\cs_new:Npn \__flag_height_loop:ww #1 ; #2 \q_stop { - \if_cs_exist:w l_#2_#1_flag \cs_end: - \exp_after:wN \flag_height_loop:ww \int_use:N \int_eval:w \c_one + + \if_cs_exist:w __flag_#2_#1: \cs_end: + \exp_after:wN \__flag_height_loop:ww \int_use:N \__int_eval:w \c_one + \else: - \exp_after:wN \flag_height_end:ww + \exp_after:wN \__flag_height_end:ww \fi: #1 ; #2 \q_stop } -\cs_new:Npn \flag_height_end:ww #1 ; #2 \q_stop { #1 } +\cs_new:Npn \__flag_height_end:ww #1 ; #2 \q_stop { #1 } \cs_new:Npn \flag_raise:n #1 { - \cs:w flag_trap_#1:w \exp_after:wN \cs_end: - \int_value:w \flag_height:n {#1} ; + \cs:w __flag_trap_#1:w \exp_after:wN \cs_end: + \__int_value:w \flag_height:n {#1} ; } %% %% |