diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/expl3/l3prg.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/expl3/l3prg.sty | 32 |
1 files changed, 31 insertions, 1 deletions
diff --git a/Master/texmf-dist/tex/latex/expl3/l3prg.sty b/Master/texmf-dist/tex/latex/expl3/l3prg.sty index de730887e82..d81bd2095b1 100644 --- a/Master/texmf-dist/tex/latex/expl3/l3prg.sty +++ b/Master/texmf-dist/tex/latex/expl3/l3prg.sty @@ -48,7 +48,7 @@ %% %% ----------------------------------------------------------------------- \RequirePackage{l3names} -\GetIdInfo$Id: l3prg.dtx 1451 2009-08-08 06:33:34Z joseph $ +\GetIdInfo$Id: l3prg.dtx 1541 2009-09-17 07:31:55Z joseph $ {L3 Experimental control structures} \ProvidesExplPackage {\filename}{\filedate}{\fileversion}{\filedescription} @@ -427,6 +427,36 @@ \prg_define_quicksort:nnn {prg}{}{} \cs_set:Npn \prg_quicksort_function:n {\ERROR} \cs_set:Npn \prg_quicksort_compare:nnTF {\ERROR} +\group_begin: + \tex_lccode:D `\& = `\g \tex_relax:D + \tex_catcode:D \& = \c_twelve \tex_relax:D +\tl_to_lowercase:n { + \group_end: + \cs_new_nopar:Nn \prg_variable_get_scope:N { + \exp_last_unbraced:Nf \prg_variable_get_scope_aux:w + { \cs_to_str:N #1 \exp_stop_f: \q_nil } + } + \cs_new_nopar:Npn \prg_variable_get_scope_aux:w #1#2 \q_nil { + \token_if_eq_meaning:NNT & #1 {g} + } +} +\group_begin: + \tex_lccode:D `\& = `\_ \tex_relax:D + \tex_catcode:D \& = \c_twelve \tex_relax:D +\tl_to_lowercase:n { + \group_end: + \cs_new_nopar:Nn \prg_variable_get_type:N { + \exp_after:wN \p;rg_variable_get_type_aux:w + \token_to_str:N #1 & a \q_nil + } + \cs_new_nopar:Npn \prg_variable_get_type_aux:w #1 & #2#3 \q_nil { + \token_if_eq_meaning:NNTF a #2 { + #1 + }{ + \prg_variable_get_type_aux:w #2#3 \q_nil + } + } +} %% %% %% End of file `l3prg.sty'. |