Eu gostaria de gerar um ambiente que mudasse um pouco de acordo com um argumento apresentado. O motivo é ter localidades diferentes no documento. Eu defini um comando EmitLanguageStrque determina o argumento de otherlanguageacordo com o argumento que foi passado. Por exemplo, \EmitLanguageStr[en] -> english. Veja estas perguntas para obter mais contexto: [1,2]. Aqui está o ambiente despojado.
\renewenvironment{abstract}[1][en]{%
\section*{\EmitAbstractStr[#1]}
\begin{otherlanguage}{\EmitLanguageStr[#1]}
\@author\par
\textbf{\EmitTitle[#1]}\par
}{%
\end{otherlanguage}
}
Acontece que outras pessoas tiveram o mesmo problema (P), mas a solução não funcionou para mim. A resposta sugere que envolver o ambiente de uma das duas maneiras permitiria que o argumento fosse expandido:
% Create a macro
\newcommand\testlang{english}
% Expand the argument once:
\newenvironment{Otherlanguage}[1]{%
\expandafter\otherlanguage\expandafter{#1}%
}{\endotherlanguage}
% Alternative: argument is fully expanded
\newenvironment{Otherlanguage}[1]{%
\begingroup
\edef\temp{\endgroup\noexpand\otherlanguage{#1}}%
\temp
}{\endotherlanguage}
% usage
\begin{Otherlanguage}{\testlang}
...
\end{Otherlangauge}
Primeiro, sem esses wrappers, o babel fornece uma mensagem de erro informando que a linguagem EmitLanguageStr[en]não está definida. Isso foi abordado na pergunta vinculada. Contudo, as soluções apresentadas produzem outro tipo de erro: Use of \EmitLanguageStr doesn't match its definition.
Como o comando pode ser expandido adequadamente?
Aqui está um exemplo completo da situação. Isso funciona, mas ao mudar o argumento Otherlanguagepara aquele no comentário, o erro descrito é gerado.
\documentclass[a4paper,12pt]{article}
\usepackage{ifthen}
\usepackage{pgffor}
\makeatletter
\newcommand\SetDefaultValue[2]{%
\global\@namedef{#2:#1}{%
{\scriptsize (Use {\tt\textbackslash #2[#1]} to replace this text.)}%
}%
}
\newcommand\MakeLocaleVar[2][en,fi]{%
\foreach \n in {#1}{%
\expandafter\SetDefaultValue\expandafter{\n}{#2}
}%
\expandafter\newcommand\csname #2\endcsname[2][]{%
\ifthenelse{\equal{##1}{}}{%
\foreach \n in {#1}{%
\global\@namedef{#2:\n}{##2}%
}%
}{%
\global\@namedef{#2:##1}{##2}%
}%
}%
\expandafter\newcommand\csname Emit#2\endcsname[1][en]{\@nameuse{#2:##1}}%
}
% Variables set in document
\MakeLocaleVar{Title}
\MakeLocaleVar{Year}
%\newenvironment{Otherlanguage}[1]{%
% \expandafter\otherlanguage\expandafter{#1}%
%}{\endotherlanguage}
\newenvironment{Otherlanguage}[1]{%
\begingroup
\edef\temp{\endgroup\noexpand\otherlanguage{#1}}%
\temp
}{\endotherlanguage}
\MakeLocaleVar{AbstractStr}
\AbstractStr[en]{ABSTRACT}
\AbstractStr[fi]{TIIVISTELMÄ}
\MakeLocaleVar{LanguageStr}
\LanguageStr[en]{english}
\LanguageStr[fi]{finnish}
\renewenvironment{abstract}[1][en]{%
\section*{\EmitAbstractStr[#1]}
\begin{Otherlanguage}{english}%\EmitLanguageStr[#1]
\@author\par
\textbf{\EmitTitle[#1]}\par
\EmitYear\par
\par
}{%
\end{Otherlanguage}
}
\makeatother
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[finnish, english]{babel}
\author{Handsome Devil}
\Year{2019}
\Title[en]{Title in English}
\Title[fi]{Otsikko suomeksi}
\begin{document}
\selectlanguage{english}
\begin{abstract}
Abstract environment in English.
\end{abstract}
\begin{abstract}[fi]
Abstract environment in Finnish.
\end{abstract}
\end{document}
Responder1
\MakeLocaleVar{LanguageStr}faz com \EmitLanguageStrque seja definido como:
\newcommand\EmitLanguageStr[1][en]{\@nameuse{LanguageStr:#1}}%
\EmitLanguageStrprocessa um argumento opcional.
Se você olhar \EmitLanguageStrvia \show\EmitLanguageStr, encontrará:
> \EmitLanguageStr=macro:
->\@protected@testopt \EmitLanguageStr \\EmitLanguageStr {en}.
Olhando para \@protected@testoptos rendimentos:
> \@protected@testopt=macro:
#1->\ifx \protect \@typeset@protect \expandafter \@testopt \else \@x@protect #1
\fi .
Olhando para \@testoptos rendimentos:
> \@testopt=\long macro:
#1#2->\kernel@ifnextchar [{#1}{#1[{#2}]}.
Olhando para \kernel@ifnextcharos rendimentos:
> \kernel@ifnextchar=\long macro:
#1#2#3->\let \reserved@d =#1\def \reserved@a {#2}\def \reserved@b {#3}\futurele
t \@let@token \@ifnch .
Olhando para \@ifnchos rendimentos:
> \@ifnch=macro:
->\ifx \@let@token \@sptoken \let \reserved@c \@xifnch \else \ifx \@let@token \
reserved@d \let \reserved@c \reserved@a \else \let \reserved@c \reserved@b \fi
\fi \reserved@c .
Olhando para \@xifnchos rendimentos:
> \@xifnch=macro:
->\futurelet \@let@token \@ifnch .
Como você pode ver, muitas brincadeiras com atribuições \let- e \futurelet- não expansíveis estão envolvidas na verificação da presença do argumento opcional via \kernel@ifnextchar [.
Portanto, \EmitLanguageStrnão entrega apenas os tokens de caracteres que formam o nome do idioma. Ele também produz muitos tokens de atribuição não expansíveis, como \lete \futureletpara verificar a presença do argumento opcional.
Esses tokens não desaparecerão dentro de um contexto de expansão pura, enquanto obter o nome da linguagem para passá-lo como argumento para um ambiente seria um contexto de expansão puro. Após a expansão, esses tokens de atribuição não expansíveis permanecem no token-stream porque enquanto a expansão ocorre na "garganta" do (La)TeX, a realização das atribuições ocorre no "estômago" do (La)TeX.
Resumindo:
Contanto que \EmitLanguageStrprocesse um argumento opcional pelo qual as técnicas para detectar a presença de um argumento opcional envolvam tokens de atribuição não expansíveis que não desaparecem durante a expansão, você não pode usar \EmitLanguageStrem contextos de expansão pura para obter apenas esses tokens que formam o nome do idioma.
Mas você pode, por exemplo, criar uma variante \EmitLanguageStrcom um argumento adicional contendo tokens para os quais a string emitida será passada como argumento. Eu chamo essa macro \PassLanguageStrTo:
\documentclass[a4paper,12pt]{article}
\usepackage{ifthen}
\usepackage{pgffor}
\makeatletter
\newcommand\SetDefaultValue[2]{%
\global\@namedef{#2:#1}{%
{\scriptsize (Use {\tt\textbackslash #2[#1]} to replace this text.)}%
}%
}
\newcommand\PassFirstToSecond[2]{#2{#1}}%
\newcommand\MakeLocaleVar[2][en,fi]{%
\foreach \n in {#1}{%
\expandafter\SetDefaultValue\expandafter{\n}{#2}%%%%
}%
\expandafter\newcommand\csname #2\endcsname[2][]{%
\ifthenelse{\equal{##1}{}}{%
\foreach \n in {#1}{%
\global\@namedef{#2:\n}{##2}%
}%
}{%
\global\@namedef{#2:##1}{##2}%
}%
}%
\expandafter\newcommand\csname Emit#2\endcsname[1][en]{\@nameuse{#2:##1}}%
\expandafter\newcommand\csname Pass#2To\endcsname[2][en]{%
\expandafter\expandafter\expandafter\PassFirstToSecond
\expandafter\expandafter\expandafter{\csname#2:##1\endcsname}{##2}%
}%
}
% Variables set in document
\MakeLocaleVar{Title}
\MakeLocaleVar{Year}
\MakeLocaleVar{AbstractStr}
\AbstractStr[en]{ABSTRACT}
\AbstractStr[fi]{TIIVISTELMÄ}
\MakeLocaleVar{LanguageStr}
\LanguageStr[en]{english}
\LanguageStr[fi]{finnish}
\renewenvironment{abstract}[1][en]{%
\section*{\EmitAbstractStr[{#1}]}%%%%
\PassLanguageStrTo[{#1}]{\begin{otherlanguage}}%
\@author\par
\textbf{\EmitTitle[{#1}]}\par
\EmitYear\par
\par
}{%
\end{otherlanguage}%%%%
}
\makeatother
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[finnish, english]{babel}
\author{Handsome Devil}
\Year{2019}
\Title[en]{Title in English}
\Title[fi]{Otsikko suomeksi}
\begin{document}
\selectlanguage{english}
\begin{abstract}
Abstract environment in English.
\end{abstract}
\begin{abstract}[fi]
Abstract environment in Finnish.
\end{abstract}
\end{document}