%% %% This is file `l3seq.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% l3seq.dtx (with options: `package,trace') %% %% %% EXPERIMENTAL CODE %% %% Do not distribute this file without also distributing the %% source files specified above. %% %% Do not distribute a modified version of this file. %% %% %% File: l3seq.dtx Copyright (C) 1990-2006 LaTeX3 project %% %% It may be distributed and/or modified under the conditions of the %% LaTeX Project Public License (LPPL), either version 1.3c of this %% license or (at your option) any later version. The latest version %% of this license is in the file %% %% http://www.latex-project.org/lppl.txt %% %% This file is part of the ``expl3 bundle'' (The Work in LPPL) %% and all files in that bundle must be distributed together. %% %% The released version of this bundle is available from CTAN. %% %% ----------------------------------------------------------------------- %% %% The development version of the bundle can be found at %% %% http://www.latex-project.org/cgi-bin/cvsweb.cgi/ %% %% for those people who are interested. %% %%%%%%%%%%% %% NOTE: %% %%%%%%%%%%% %% %% Snapshots taken from the repository represent work in progress and may %% not work or may contain conflicting material! We therefore ask %% people _not_ to put them into distributions, archives, etc. without %% prior consultation with the LaTeX Project Team. %% %% ----------------------------------------------------------------------- \RequirePackage{l3names} \GetIdInfo$Id: l3seq.dtx 621 2007-09-01 20:14:19Z morten $ {L3 Experimental sequences and stacks} \ProvidesExplPackage {\filename}{\filedate}{\fileversion}{\filedescription} \RequirePackage{l3quark} \RequirePackage{l3tlp} \RequirePackage{l3expan} \let_new:NN \seq_elt:w \ERROR \let_new:NN \seq_elt_end: \ERROR \def_new:Npn \seq_new:N #1{\tlp_new:Nn #1{}} \def_new:Npn \seq_new:c {\exp_args:Nc \seq_new:N} \let_new:NN \seq_clear:N \tlp_clear:N \let_new:NN \seq_clear:c \tlp_clear:c \let_new:NN \seq_gclear:N \tlp_gclear:N \let_new:NN \seq_gclear:c \tlp_gclear:c \let_new:NN \seq_clear_new:N \tlp_clear_new:N \let_new:NN \seq_clear_new:c \tlp_clear_new:c \let_new:NN \seq_gclear_new:N \tlp_gclear_new:N \let_new:NN \seq_gclear_new:c \tlp_gclear_new:c \let_new:NN \seq_if_empty_p:N \tlp_if_empty_p:N \let_new:NN \seq_if_empty:NTF \tlp_if_empty:NTF \def_new:Npn \seq_if_empty:cTF {\exp_args:Nc\seq_if_empty:NTF} \let_new:NN \seq_if_empty:NF \tlp_if_empty:NF \def_new:Npn \seq_if_empty:cF {\exp_args:Nc\seq_if_empty:NF} \def_new:Npn \seq_if_empty_err:N #1{\if_meaning:NN#1\c_empty_tlp \tlp_clear:N \l_testa_tlp % catch prefixes \err_latex_bug:x{Empty~sequence~`\token_to_string:N#1'}\fi:} \def_new:Npn \seq_get:NN #1{ \seq_if_empty_err:N #1 \exp_after:NN\seq_get_aux:w #1\q_stop} \def_new:Npn \seq_get_aux:w \seq_elt:w #1\seq_elt_end: #2\q_stop #3{\tlp_set:Nn #3{#1}} \def_new:Npn \seq_get:cN {\exp_args:Nc \seq_get:NN} \def_new:Npn \seq_pop_aux:nnNN #1#2#3{ \seq_if_empty_err:N #3 \exp_after:NN\seq_pop_aux:w #3\q_stop #1#2#3} \def_new:Npn \seq_pop_aux:w \seq_elt:w #1\seq_elt_end: #2\q_stop #3#4#5#6{#3#5{#2}#4#6{#1}} \def_new:Npn \seq_put_aux:Nnn #1{ \exp_after:NN\seq_put_aux:w #1\q_stop #1} \def_new:Npn \seq_put_aux:w #1\q_stop #2#3#4{\tlp_set:Nn #2{#3#1#4}} \def_new:Npn \seq_put_left:Nn #1#2{ \seq_put_aux:Nnn #1{\seq_elt:w #2\seq_elt_end:}{}} \def_new:Npn \seq_put_left:cn {\exp_args:Nc\seq_put_left:Nn} \def_new:Npn \seq_put_left:No {\exp_args:NNo\seq_put_left:Nn} \def_new:Npn \seq_put_left:Nx {\exp_args:Nnx\seq_put_left:Nn} \def_new:Npn \seq_put_right:Nn #1#2{ \seq_put_aux:Nnn #1{}{\seq_elt:w #2\seq_elt_end:}} \def_new:Npn \seq_put_right:No {\exp_args:NNo\seq_put_right:Nn} \def_new:Npn \seq_put_right:Nx {\exp_args:NNx\seq_put_right:Nn} \def_new:Npn \seq_gput_left:Nn { \pref_global:D \seq_put_left:Nn} \def_new:Npn \seq_gput_right:Nn { \pref_global:D \seq_put_right:Nn} \def_new:Npn \seq_gput_right:No {\exp_args:NNo \seq_gput_right:Nn} \def_new:Npn \seq_gput_right:Nc {\exp_args:NNc \seq_gput_right:Nn} \def_new:Npn \seq_gput_right:cn {\exp_args:Nc \seq_gput_right:Nn} \def_new:Npn \seq_gput_right:co {\exp_args:Nco \seq_gput_right:Nn} \def_new:Npn \seq_gput_right:cc {\exp_args:Ncc \seq_gput_right:Nn} \def_new:Npn \seq_map_variable_aux:Nnw #1#2\seq_elt:w#3\seq_elt_end:{ \tlp_set:Nn #1{#3} \quark_if_nil:NT #1 \seq_map_break:w #2 \seq_map_variable_aux:Nnw #1{#2} } \def_new:Npn \seq_map_variable:NNn #1#2#3{ \tlp_set:Nx #2 {\exp_not:n{\seq_map_variable_aux:Nnw #2{#3}}} \exp_after:NN #2 #1 \seq_elt:w \q_nil\seq_elt_end: \q_stop } \def_new:Npn \seq_map_variable:cNn{\exp_args:Nc\seq_map_variable:Nn} \let_new:NN \seq_map_break:w \use_none_delimit_by_q_stop:w \def_new:Npn \seq_map:NN #1#2{ \def:Npn \seq_elt:w ##1\seq_elt_end: {#2{##1}}#1 \let:NN \seq_elt:w \ERROR } \def_new:Npn \seq_map_inline:Nn #1#2{ \def:Npn \seq_elt:w ##1\seq_elt_end: {#2}#1 \let:NN \seq_elt:w \ERROR } \def_new:Npn \seq_map_inline:cn{\exp_args:Nc\seq_map_inline:Nn} \let_new:NN \seq_set_eq:NN \let:NN \def_new:Npn \seq_set_eq:Nc {\exp_args:NNc \seq_set_eq:NN} \let_new:NN \seq_gset_eq:NN \glet:NN \def_new:Npn \seq_gset_eq:cN {\exp_args:Nc \seq_gset_eq:NN} \def_new:Npn \seq_gset_eq:Nc {\exp_args:NNc \seq_gset_eq:NN} \def_new:Npn \seq_gset_eq:cc {\exp_args:Ncc \seq_gset_eq:NN} \def_new:Npn \seq_gconcat:NNN #1#2#3{ \tlp_gset:Nx #1 {\exp_not:o{#2}\exp_not:o{#3}} } \def_new:Npn \seq_gconcat:ccc{\exp_args:Nccc\seq_gconcat:NNN} \def_new:Npn \seq_if_in:NnTF #1#2{ \def:Npn\tmp:w ##1\seq_elt:w #2\seq_elt_end: ##2##3\q_stop{ \if_meaning:NN\q_no_value##2 \exp_after:NN\use_arg_ii:nn \else: \exp_after:NN\use_arg_i:nn \fi: } \exp_after:NN \tmp:w #1\seq_elt:w #2\seq_elt_end: \q_no_value \q_stop} \def_new:Npn \seq_if_in:coTF {\exp_args:Nco \seq_if_in:NnTF} \def_new:Npn \seq_if_in:cnTF {\exp_args:Nc \seq_if_in:NnTF} \def_new:Npn \seq_if_in:cxTF {\exp_args:Ncx \seq_if_in:NnTF} \def_new:Npn \seq_if_in:NnF #1#2 { \seq_if_in:NnTF #1{#2}\use_noop: } \def_new:Npn \seq_if_in:cnF {\exp_args:Nc \seq_if_in:NnF} \let_new:NN \seq_push:Nn \seq_put_left:Nn \let_new:NN \seq_push:No \seq_put_left:No \let_new:NN \seq_push:cn \seq_put_left:cn \def_new:Npn \seq_pop:NN {\seq_pop_aux:nnNN \tlp_set:Nn \tlp_set:Nn} \def_new:Npn \seq_pop:cN {\exp_args:Nc \seq_pop:NN} \let_new:NN \seq_gpush:Nn \seq_gput_left:Nn \def_new:Npn \seq_gpush:No {\exp_args:NNo \seq_gpush:Nn} \def_new:Npn \seq_gpush:cn {\exp_args:Nc \seq_gpush:Nn} \def_new:Npn \seq_gpush:NC {\exp_args:NNC \seq_gpush:Nn} \def_new:Npn \seq_gpop:NN {\seq_pop_aux:nnNN \tlp_gset:Nn \tlp_set:Nn} \def_new:Npn \seq_gpop:cN {\exp_args:Nc \seq_gpop:NN} \let_new:NN \seq_top:NN \seq_get:NN \let_new:NN \seq_top:cN \seq_get:cN %% %% %% End of file `l3seq.sty'.