platexで文字の置換をexpl3でやる

replace-char.tex

% platexで文字の置換 https://ja.stackoverflow.com/questions/53898/platex%E3%81%A7%E6%96%87%E5%AD%97%E3%81%AE%E7%BD%AE%E6%8F%9B をexpl3でやってみる。
% おそらくenvironの制限で、この書き方だとinstead環境のネストには対応していない。
% xparseの新しい引数指定オプションbを使うと環境の本体がとれて、これだとうまくいくかもしれない。

\documentclass[uplatex]{jsarticle}
\usepackage{xparse}
\usepackage{environ}

\ExplSyntaxOn

\tl_new:N \g__body_tl
\tl_new:N \g__outer_body_tl
\cs_new:Nn \set_the_body:n {
  \tl_if_empty:NTF \g__body_tl
     {  }
     { \tl_set_eq:NN \g__outer_body_tl \g__body_tl }
  \tl_set:Nx \g__body_tl { #1 }
}

\makeatletter
\NewDocumentEnvironment{instead}{m m}{%
  \Collect@Body \set_the_body:n
}{
  \tl_replace_all:Nnn \g__body_tl { #1 } { #2 }
  \tl_use:N \g__body_tl \par
}

\makeatother

\ExplSyntaxOff

\begin{document}

\def\い{い}

\begin{instead}{い}{あ}
  い←「あ」と出力させた\い い
\end{instead}

\end{document}