MIME-Version: 1.0
References: <905C5ED0-6639-4DEB-95AC-A2FCB2C4491D@gmail.com>
            <AANLkTinSd4KS9gbk_cBPseFjbTFfSmSJUgYJUUP_vpBZ@mail.gmail.com>
            <E8A13BAD-6790-4966-9BAF-379E21DD249C@gmail.com>
            <AANLkTin1PWjtDuxug+ZjGKKg=VBbuz7Pf12rCkAo9+ex@mail.gmail.com>
            <AANLkTinh=zgNFCYWuGwO4mCsL6a7Yezxec264DmWwabk@mail.gmail.com>
            <935A1EA2-C971-4A3A-8DF4-6F890E0CFB32@gmail.com>
            <5256FD2C-CD53-4FF0-A405-5B8B2781E5EC@gmail.com>
Content-Type: text/plain; charset=ISO-8859-1
Message-ID:  <AANLkTinfC5YVmG57GhGsFAddi1jy7PiZ+6cjV1Wx7KCD@mail.gmail.com>
Date:         Sun, 13 Mar 2011 19:18:35 -0400
Reply-To: Mailing list for the LaTeX3 project
              <LATEX-L@listserv.uni-heidelberg.de>
Sender: Mailing list for the LaTeX3 project <LATEX-L@listserv.uni-heidelberg.de>
From: Bruno Le Floch <blflatex@GMAIL.COM>
Subject: Re: expl3's seq_pop_right etc.
To: LATEX-L@listserv.uni-heidelberg.de
In-Reply-To:  <5256FD2C-CD53-4FF0-A405-5B8B2781E5EC@gmail.com>
Precedence: list
Status: R

>> So I'm generally in favour of this suggestion. But I wonder if there is
>> some downside to using braces that I'm not experienced enough to see. (I
>> can't think off the top of my head of another stack-like data structures
>> in TeX that uses braces.) Can anyone comment further on this?
>
> Well, to answer my own question, here's a function I'm currently using in an
> expl3 translation of the NFSS: (sorry for the long-ish code chunk)

It is very easy to convert from the braced to the delimited version using

    \cs_set:Npn \seq_elt:n #1 {\seq_elt:w #1 \seq_elt_end:}

See code below for the full code corresponding to what you wrote.


\RequirePackage{expl3}
\ExplSyntaxOn
% Assuming seqs of the form
\tl_new:Nn \l_foo_Seq {\seq_elt:n {a/b-c} \seq_elt:n {A/BC-DE}}

% We can always convert back to the old form using
\cs_new:Npn \seq_elt_new_to_old:n #1 {\seq_elt:w #1 \seq_elt_end:}

% "\Seq_map_inline:Npn" <seq> <params> <function definition>
\cs_new_protected_nopar:Npn \Seq_map_inline:Npn #1#2# {
  \Seq_map_inline_aux:Nnn #1 {#2}
}
\cs_new:Npn \Seq_map_inline_aux:Nnn #1#2#3 {
  \cs_set_eq:NN \seq_elt:n \seq_elt_new_to_old:n
  \cs_set:Npn \seq_elt:w #2 \seq_elt_end: {#3}
  #1
  \use_none:nnn \seq_elt_end: \q_break {} % break in the "new" way.
  \cs_set_eq:NN \seq_elt:w \ERROR
  \cs_set_eq:NN \seq_elt:n \ERROR
}

% Example
\tl_set:Nn \l_foo_Seq {\seq_elt:n {a/b-c} \seq_elt:n {A/BC-DE}}
\Seq_map_inline:Npn \l_foo_Seq #1/#2-#3 {\tl_show:n {#1|#2|#3}}


-- Bruno