使用 \message 防止哈希值重复

Question 1

您可以搜索#并将其替换为 catcode 12 井号，然后显示它。

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn

\NewDocumentCommand{\hmessage}{m}
 {
  \tl_set:Nn \l__jewdokija_hmessage_tl { #1 }
  \regex_replace_all:nnN { \cP\# } { \cO\# } \l__jewdokija_hmessage_tl
  \iow_term:V \l__jewdokija_hmessage_tl
 }
\tl_new:N \l__jewdokija_hmessage_tl
\cs_generate_variant:Nn \iow_term:n { V }

\ExplSyntaxOff

\hmessage{#1#\relax#2}

终端将显示

> pdflatex jewdokija.tex
This is pdfTeX, Version 3.14159265-2.6-1.40.20 (TeX Live 2019) (preloaded format=pdflatex)
 restricted \write18 enabled.
entering extended mode
(./jewdokija.tex
LaTeX2e <2019-10-01> patch level 3
(/usr/local/texlive/2019/texmf-dist/tex/latex/base/article.cls
Document Class: article 2019/10/25 v1.4k Standard LaTeX document class
(/usr/local/texlive/2019/texmf-dist/tex/latex/base/size10.clo))
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3packages/xparse/xparse.sty
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3kernel/expl3-code.tex
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3kernel/l3deprecation.def))
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3backend/l3backend-pdfmode.def))
)
#1#\relax #2

Answer

您可以搜索#并将其替换为 catcode 12 井号，然后显示它。

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn

\NewDocumentCommand{\hmessage}{m}
 {
  \tl_set:Nn \l__jewdokija_hmessage_tl { #1 }
  \regex_replace_all:nnN { \cP\# } { \cO\# } \l__jewdokija_hmessage_tl
  \iow_term:V \l__jewdokija_hmessage_tl
 }
\tl_new:N \l__jewdokija_hmessage_tl
\cs_generate_variant:Nn \iow_term:n { V }

\ExplSyntaxOff

\hmessage{#1#\relax#2}

终端将显示

> pdflatex jewdokija.tex
This is pdfTeX, Version 3.14159265-2.6-1.40.20 (TeX Live 2019) (preloaded format=pdflatex)
 restricted \write18 enabled.
entering extended mode
(./jewdokija.tex
LaTeX2e <2019-10-01> patch level 3
(/usr/local/texlive/2019/texmf-dist/tex/latex/base/article.cls
Document Class: article 2019/10/25 v1.4k Standard LaTeX document class
(/usr/local/texlive/2019/texmf-dist/tex/latex/base/size10.clo))
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3packages/xparse/xparse.sty
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3kernel/expl3.sty
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3kernel/expl3-code.tex
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3kernel/l3deprecation.def))
(/usr/local/texlive/2019/texmf-dist/tex/latex/l3backend/l3backend-pdfmode.def))
)
#1#\relax #2

Question 2

您可以通过 Lua 往返来对字符串进行去标记化，而无需哈希加倍。如果您的字符串完全可扩展，那么这也可以完全扩展。

\documentclass{article}

\begin{document}

\message{\directlua{tex.sprint(-2, "\luaescapestring{#1#\relax#2}")}}

\end{document}

$ lualatex test.tex
This is LuaTeX, Version 1.11.2 (TeX Live 2020/dev) 
 restricted system commands enabled.
(./test.tex
LaTeX2e <2019-10-01> patch level 3

luaotfload | main : initialization completed in 0.140 seconds
(/opt/texlive/2019/texmf-dist/tex/latex/base/article.cls
Document Class: article 2019/10/25 v1.4k Standard LaTeX document class
(/opt/texlive/2019/texmf-dist/tex/latex/base/size10.clo)) (./test.aux)
#1#\relax #2 (./test.aux))
 384 words of node memory still in use:
   2 hlist, 1 vlist, 1 rule, 2 glue, 3 kern, 1 glyph, 5 attribute, 44 glue_spec
, 5 attribute_list, 2 write nodes
   avail lists: 2:7,3:1,4:1,5:4,7:1,9:1

warning  (pdf backend): no pages of output.
Transcript written on test.log.

Answer

您可以通过 Lua 往返来对字符串进行去标记化，而无需哈希加倍。如果您的字符串完全可扩展，那么这也可以完全扩展。

\documentclass{article}

\begin{document}

\message{\directlua{tex.sprint(-2, "\luaescapestring{#1#\relax#2}")}}

\end{document}

$ lualatex test.tex
This is LuaTeX, Version 1.11.2 (TeX Live 2020/dev) 
 restricted system commands enabled.
(./test.tex
LaTeX2e <2019-10-01> patch level 3

luaotfload | main : initialization completed in 0.140 seconds
(/opt/texlive/2019/texmf-dist/tex/latex/base/article.cls
Document Class: article 2019/10/25 v1.4k Standard LaTeX document class
(/opt/texlive/2019/texmf-dist/tex/latex/base/size10.clo)) (./test.aux)
#1#\relax #2 (./test.aux))
 384 words of node memory still in use:
   2 hlist, 1 vlist, 1 rule, 2 glue, 3 kern, 1 glyph, 5 attribute, 44 glue_spec
, 5 attribute_list, 2 write nodes
   avail lists: 2:7,3:1,4:1,5:4,7:1,9:1

warning  (pdf backend): no pages of output.
Transcript written on test.log.

Question 3

该tokcycle包根据用户定义的指令逐个处理其输入的 token。它具有环境形式和宏形式。无论哪种形式，#token 都被捕获为 cat-6，即\catSIXtrue设置一个标志，但它们会暂时转换为 cat-12 以供 Character 指令处理。

在这里，我将只告诉 character 指令输出它#获得的（现在是 cat-12 ）标记，而不管\catSIXtrue（这实际上是默认值）。

我介绍了三种使用这种技术的方法。第一种方法是，只需将命令\message作为参数应用于\tokcyclexpress宏。然后，重新整理标记列表\the\cytoks。

在第二种环境方法中，将\message{...}命令包装在\tokencyclexpress...\endtokencyclexpress。

最后，在第三种方法中，我定义了一个新tokcycle环境\msg...\endmsg，您只需在其中插入原本\message参数。

因为#现在令牌循环中处理的令牌是 cat-12，所以它们不会加倍。

\documentclass{article}
\usepackage{tokcycle}[2021/03/10]
\begin{document}
Direct Macro Method:
\tokcyclexpress{\message{#1#\relax#2}}
\the\cytoks

Direct Environment Method:
\tokencyclexpress\message{#1#\relax#2}\endtokencyclexpress

Special environment method:
\xtokcycleenvironment\msg
{\addcytoks{##1}}
{\processtoks{##1}}
{\addcytoks{##1}}
{\addcytoks{##1}}
{}
{\cytoks\expandafter{\expandafter\message\expandafter{\the\cytoks}}}

\msg #1#\relax#2\endmsg 
Now go check the log file.
\end{document}

日志文件的屏幕截图：

Answer