summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/expl3/l3prg.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/expl3/l3prg.sty')
-rw-r--r--Master/texmf-dist/tex/latex/expl3/l3prg.sty32
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'.