Fábrica de macros y argumento pasado al llamar (parte 2)

Question

Estoy haciendo una macro de fábrica (A) que produce otra macro (B). La macro B consiste en afectar lo que recibe como parámetros de las variables cuando se llama. Actualmente puedo hacer todo esto sin A, pero esto no es escalable porque requiere mucha reescritura.

VerFábrica de macros y argumento pasado al llamar para todo el contexto.

Siguiendo las respuestas a la pregunta anterior (Fábrica de macros y argumento pasado al llamar), podría crear un nuevo MWE con algunos puntos aún abiertos:

• punto 1: puse comas \clist_map_inlinepara delimitar artificialmente cada argumento
• punto 2: pongo la lista de argumentos en la definición (los 3 m):\NewDocumentCommand{\DefinitionVariables}{ m m m }%
• punto 3: pongo todos los argumentos en la \clist_map_inlinefunción:\clist_map_inline:nn { #1, #2, #3}%

Entonces las preguntas que siguen a estos cambios son:

• Punto 1: ¿Cómo puedo no tener que poner comas? Supongo que tiene que ver con la \clist_map_inlinefunción, ya que la coma es un delimitador incorporado. Plantea un problema cuando hay una coma dentro de un argumento, ya que la función lo cortará porque lo considera un delimitador. Estaba pensando en tener una especie de \foreach argument in {all the arguments}. Existe tal cosa ?
• Punto 2: ¿Cómo puedo hacer que esto sea dinámico? Por dinámica quiero decir: a veces, la función puede tomar 3 argumentos, pero a veces pueden ser 7 o 9 (entre 1 y 9). Algo comonumberOfArgument * m

• Punto 3: Está relacionado con el punto anterior, ¿cómo puedo hacer que esto también sea dinámico y no codificado? ( \foreach argument in {all the arguments}lo solucionaría).

  \documentclass[twoside]{article}
  % package pour utiliser une macro nested ac ses propres args
  \usepackage{xparse}
  \errorcontextlines32
  \begin{document}
  %==================================================================================
  %     Prerequisite : lines of code to define variableI to variableXVI
  %==================================================================================
  
  \iffalse
  \fi
  \newcommand{\DefinitVariable}[1]{%
      \expandafter\newcommand\csname variable\Roman{#1}\endcsname{}%
      }%
  %    Loop for defining all the variable
  \newcounter{ctr}
  \loop
      \stepcounter{ctr}
      \expandafter\DefinitVariable{ctr}%
  \ifnum\thectr<16
  \repeat
  %==================================================================================
  % Automation trial 5  : utilise la syntaxe expl3
  \iftrue
  %\iffalse
  
  \ExplSyntaxOn
  \NewDocumentCommand{\DefinitionVariables}{ m m m }%     <=== point 2 : there is as much 'm' as there is arguments
   {
    \int_zero:N \l_tmpa_int
    %\clist_map_inline:nn { #1 }
    \clist_map_inline:nn { #1, #2, #3}%         <=== point 3 : allows not to put comas in the arguments, but rise the pb if there is comas inside the argument // 
     {
      \int_incr:N \l_tmpa_int
      \tl_clear_new:c { variable \int_to_Roman:n { \l_tmpa_int } } 
      \tl_set:cn { variable \int_to_Roman:n { \l_tmpa_int } } { ##1 }
     }
   }
  \ExplSyntaxOff
  
  \DefinitionVariables{Laetitia, 8 }{Pierre, 10}{Cedric}%        <=== point 1 : coma inside the argument will be considered as a delimiter, so the mapping of variable will be wrong
  La variable 2 est : \variableII  \\  FIN\\
  La variable 1 est : \variableI  \\  FIN\\
  La variable 3 est : \variableIII  \\  FIN\\
  La variable 1 est : \variableI  \\  FIN\\
  \fi
  

¡Cualquier ayuda es muy apreciada!

Answer 1

Una versión de desarrollo del código anterior; el nuevo \DefinitionVariablesacepta dos argumentos opcionales, el nombre fijo y el delimitador; este último es (casi) completamente arbitrario, simplemente elige un carácter (o una combinación de ellos) que no aparezca en los valores que deseas dar a las variables.

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn
\NewDocumentCommand{\DefinitionVariables}{O{variable}mO{,}}
 {
  \aline_df:nnn { #1 } { #2 } { #3 }
 }

\int_new:N \l_aline_df_int
\seq_new:N \l_aline_df_values_seq

\cs_new_protected:Nn \aline_df:nnn
 {
  \int_zero:N \l_aline_df_int
  \seq_set_split:Nnn \l_aline_df_values_seq { #3 } { #2 }
  \seq_map_inline:Nn \l_aline_df_values_seq
   {
    \int_incr:N \l_aline_df_int
    \tl_clear_new:c { #1 \int_to_Roman:n { \l_aline_df_int } } 
    \tl_set:cn { #1 \int_to_Roman:n { \l_aline_df_int } } { ##1 }
   }
 }
\ExplSyntaxOff

\begin{document}

\DefinitionVariables{
  Laetitia, 8; Patrick, 10; Cedric
}[;]

\noindent
La variable 1 est : \variableI\\
La variable 2 est : \variableII\\
La variable 3 est : \variableIII\\
FIN

\bigskip

\DefinitionVariables[var]{A,B,C}

\noindent
La var 1 est : \varI\\
La var 2 est : \varII\\
La var 3 est : \varIII\\
FIN

\end{document}

Una rutina diferente basada en una recursividad para permitir que los argumentos estén delimitados por llaves. Mientras siga una llave abierta, se define una nueva variable.

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn
\NewDocumentCommand{\DefinitionVariables}{O{variable}}
 {% pass control to an inner function
  % #1 is the "name part", default "variable"
  \aline_df:n { #1 }
 }

% define an integer variable
\int_new:N \l_aline_df_int

\cs_new_protected:Nn \aline_df:n
 {
  % the integer variable assigns the trailing roman number
  \int_zero:N \l_aline_df_int
  % start the recursion
  \__aline_df_peek:n { #1 }
 }
\cs_new_protected:Nn \__aline_df_peek:n
 {
  % check whether the next token is { (ignoring spaces)
  \peek_catcode_ignore_spaces:NT \c_group_begin_token
   {
    % if it is, increment the counter and call
    % \__aline_df_next:nn { #1 } { #2 }, where
    % { #2 } is the next braced group
    \int_incr:N \l_aline_df_int
    \__aline_df_next:nn { #1 }
   }
 }
\cs_new_protected:Nn \__aline_df_next:nn
 {
  % if the variable is already defined, clear it
  % otherwise create it
  \tl_clear_new:c { #1 \int_to_Roman:n { \l_aline_df_int } }
  % set the variable
  \tl_set:cn { #1 \int_to_Roman:n { \l_aline_df_int } } { #2 }
  % restart the recursion
  \__aline_df_peek:n { #1 }
 }
\ExplSyntaxOff

\begin{document}

\DefinitionVariables{Laetitia, 8}{Patrick, 10}{Cedric}

\noindent
La variable 1 est : \variableI\\
La variable 2 est : \variableII\\
La variable 3 est : \variableIII\\
FIN

\bigskip

\DefinitionVariables[var]{A}{B}{C}{D}{E}{F}{G}{H}{I}{J}{K}

\noindent
La var 1 est : \varI\\
La var 2 est : \varII\\
La var 3 est : \varIII\\
La var 11 est : \varXI\\
FIN

\end{document}