Como usar estruturas de dados no TikZ?

Question

Eu criei uma instrução foreach, usandoexpl3eTikZ/pgf:

\documentclass{article}
\usepackage{tikz}
\setlength{\parindent}{0cm}
\usepackage{expl3}
\ExplSyntaxOn
\cs_new:Npn \Counter #1 \Stopper { \tl_length:n {#1} }
\ExplSyntaxOff
\pgfmathdeclarefunction{countarray}{1}{\edef\pgfmathresult{\Counter#1\Stopper}}
\begin{document}
%array with names
\def\names{{"Katie","Frank","Laura"}}

%find the last element index
\pgfmathtruncatemacro{\Last}{countarray(\names) - 1}

%print all the elements of array
\foreach \i in {0,...,\Last} {%
  \i: \pgfmathparse{\names[\i]}\pgfmathresult\\
}
\end{document}

Imprime isto:

Suponha que eu queira usar cores diferentes para nomes diferentes (ou definir quaisquer outros parâmetros). Obtendo algo assim:

Katie\\
\textcolor{blue}{Frank}\\
Laura

Em Perl, eu teria feito algo assim:

my @data = (
  {"text" => "Katie"},
  {"text" => "Frank", "color" => "blue"},
  {"text" => "Laura"});

foreach(@data)
{
      if(defined($_->{color}))
      {
            print "\textcolor\{$_->{color}\}\{$_->{text}\}";
      }
      else
      {
            print $_->{text};
      }
      print "\\\\";
}

É possível implementar isso em expl3?

Answer 1

Não sei, expl3mas é possível dentro do TikZ, ou melhor, dentro do pgfkeys. Como existe um l3keyssubmódulo do LaTeX3, presumo que basicamente a mesma ideia funcione lá. Você pode criar sua estrutura de dados da mesma maneira que em Perl:

\pgfkeys{
 /names/.cd,
 make name/.style = {
  #1/color/.initial = black
 },
 make name/.list = {Katie, Frank, Laura},
 Frank/color = blue
}

Então você pode extrair a cor de um nome, digamos:

\newcommand\getcolor[1]{%
 \pgfkeysgetvalue{/names/#1/color}%
}

que é totalmente expansível e pode ser usado sempre que você precisar da cor de um nome. É claro que, para este exemplo, não há necessidade de uma subchave única Frank/color(você pode simplesmente definir Frank/.initial = blue), mas se quiser mais propriedades, você pode adicioná-las, fornecendo-lhes também suas próprias subchaves nomeadas.

Answer 2

Em última análise, isso não responde à pergunta:

É possível implementar isso em expl3?

portanto, é marcado como wiki da comunidade.

Além do aspecto interessante de lidar com expl3, este trabalho é perfeitamente realizável apenas com a sintaxe padrão do TikZ foreach em combinação comxstring:

\documentclass{article}
\usepackage{tikz} % won't work just with pgffor
\setlength{\parindent}{0cm}
\usepackage{xstring}
\begin{document}

\foreach \name [count=\i from 0]in{Katie,Frank=>blue,Laura=>red}{
   \IfSubStr{\name}{=>}{% true
     \StrCut{\name}{=>}\xname\namecol
     \i: \textcolor{\namecol}{\xname}\par%
   }{% false
     \i: \name\par%
   }
}

\end{document}

Isso fornece:

A ideia por trás é mais ou menos assim:

1. procure a string separadora ( =>no exemplo);
2. se houver corte o barbante em duas partes (nome e cor) e utilize-as;
3. se não estiver presente, use a sintaxe padrão.

Claro, é possível:

• alterar a string separadora;
• fazer coisas muito mais complicadas (ou seja, adicionar mais propriedades: apenas aninhar algumas condicionais ou, de uma maneira mais simples, definir uma string separadora por propriedade).

Answer 3

Suponha que queremos que nosso código suporte 2 propriedades de texto: cor e itálico. Primeiramente definimos os plists:

%plist1 definition
\prop_new:N \l_list_a_prop
\prop_put:Nnn \l_list_a_prop { text } {Katie}

%plist2 definition
\prop_new:N \l_list_b_prop
\prop_put:Nnn \l_list_b_prop { text } {Frank}
\prop_put:Nnn \l_list_b_prop { color } {red}

%plist3 definition
\prop_new:N \l_list_c_prop
\prop_put:Nnn \l_list_c_prop { text } {Laura}
\prop_put:Nnn \l_list_c_prop { color } {blue}
\prop_put:Nnn \l_list_c_prop { italic } {yes}

Lembre-se, que expl3 não suporta números nos nomes, é por isso que usei _a, _b, _c.

Em seguida, coloque todos os plists em uma sequência:

%putting plists to sequence
\seq_new:N \l_my_seq
\seq_push:Nn \l_my_seq { \l_list_c_prop }
\seq_push:Nn \l_my_seq { \l_list_b_prop }
\seq_push:Nn \l_my_seq { \l_list_a_prop }

Em seguida, percorremos a sequência e colocamos a marcação apropriada no texto, se necessário:

\tl_new:N \__text
\seq_map_inline:Nn \l_my_seq
{
  \prop_get:NnN #1 { text } \__text

  \prop_get:NnNT #1 { color } \color_tl
  {
    \protected@edef \__text {\textcolor{\color_tl}{\__text}}
  }

  \prop_get:NnNT #1 { italic } \italic_tl
  {
    \protected@edef \__text {\textit{\__text}}
  }

  \__text\\
}

Ao todo temos o seguinte código:

\documentclass{article}
\usepackage{expl3}
\usepackage{color}
\setlength\parindent{0pt}
\begin{document}
\makeatletter
\ExplSyntaxOn

%plist1 definition
\prop_new:N \l_list_a_prop
\prop_put:Nnn \l_list_a_prop { text } {Katie}

%plist2 definition
\prop_new:N \l_list_b_prop
\prop_put:Nnn \l_list_b_prop { text } {Frank}
\prop_put:Nnn \l_list_b_prop { color } {red}

%plist3 definition
\prop_new:N \l_list_c_prop
\prop_put:Nnn \l_list_c_prop { text } {Laura}
\prop_put:Nnn \l_list_c_prop { color } {blue}
\prop_put:Nnn \l_list_c_prop { italic } {yes}

%putting plists to sequence
\seq_new:N \l_my_seq
\seq_push:Nn \l_my_seq { \l_list_c_prop }
\seq_push:Nn \l_my_seq { \l_list_b_prop }
\seq_push:Nn \l_my_seq { \l_list_a_prop }

\tl_new:N \__text
\seq_map_inline:Nn \l_my_seq
{
  \prop_get:NnN #1 { text } \__text

  \prop_get:NnNT #1 { color } \color_tl
  {
    \protected@edef \__text {\textcolor{\color_tl}{\__text}}
  }

  \prop_get:NnNT #1 { italic } \italic_tl
  {
    \protected@edef \__text {\textit{\__text}}
  }

  \__text\\
}
\ExplSyntaxOff
\makeatother
\end{document}

Isso imprimirá: