如果字符串缺失，则可扩展命令会将字符串添加到参数中

Question

我想编写一个可扩展的命令，如果 S2 不是以 S1 开头，则在另一个字符串 S2 的开头添加一个字符串 S1，以确保我的字符串始终以 S1 开头。

我目前有这个依赖于 xstring 包的代码

\NewDocumentCommand\forcebeginwith{m m}{%
    \edef\expandedstring{#1}%
    \edef\expandedbeginning{#2}%
    \IfBeginWith{
        \expandedstring % String
    }{
        \expandedbeginning % Beginning
    }{
        \expandedstring % String
    }{
        \expandedbeginning\expandedstring % Beginning + String
    }
}

例如 ：

\forcebeginwith{fancycolor}{fancy} % fancycolor
\forcebeginwith{color}{fancy} % fancycolor

问题：我想将这个命令转换成一个可扩展的命令NewExpandableDocumentCommand，但我不知道如何做到这一点（我希望生成的代码可以在 5 年前的乳胶版本上运行，所以我想避免使用超级近期的命令/包）。

Answer 1

命令\forcebeginwith用 定义\NewExpandableDocumentCommand。测试用 执行\str_if_eq:eeTF。命令\forcebeginwith可以在内部使用\edef，如下例所示。

\documentclass[border=6pt,varwidth]{standalone}
\ExplSyntaxOn
\NewExpandableDocumentCommand { \forcebeginwith } { m m }
  {
    \str_if_eq:eeTF {#2} { \str_range:nnn {#1} { 1 } { \str_count:n {#2} } }
      {#1}
      { #2#1 }
  }
\ExplSyntaxOff
\begin{document}
\forcebeginwith{fancycolor}{fancy}\\% fancycolor
\forcebeginwith{color}{fancy}\\% fancycolor
\edef\testA{\forcebeginwith{LaTeX}{La}}\testA\\
\edef\testB{\forcebeginwith{TeX}{La}}\testB
\end{document}

Answer 2

如果你使用pdflatex，那么你可以这样做

\documentclass{article}

\newcommand{\forcebeginwith}[2]{%
  \ifnum\pdfmatch{^#2}{#1}=0 #2\fi#1%
}

\begin{document}

\forcebeginwith{fancycolor}{fancy}% fancycolor

\forcebeginwith{color}{fancy}% fancycolor

\edef\testA{\forcebeginwith{LaTeX}{La}}\testA

\edef\testB{\forcebeginwith{TeX}{La}}\testB

\end{document}

我已经在 TeX Live 2012 上对其进行了测试。

Answer 3

仅使用 TeX 原语，代码应如下所示：

\def\forcebeginwith#1#2{\fbwA .#1\end .#2\end{#1}{#2}}
\def\fbwA #1#2\end #3#4\end #5#6{%
   \ifx #1#3%
      \ifx \end#4\end #5% S2 is included at the start of S1, print S1 only
      \else 
          \ifx \end#2\end {#5} shorter than {#6}, something wrong%
          \else \fbwB {#2\end #4\end {#5}{#6}}%
          \fi
      \fi
   \else #6#5% S2 isn't inluded at the start of S1, print S2S1.
   \fi
}
\def\fbwB #1\fi\fi#2\fi{\fi\fi\fi \fbwA #1}

% test:

\message{\forcebeginwith{fancycolor}{fancy}}

\message{\forcebeginwith{color}{fancy}}

\bye

请注意，TeX 不能处理“字符串”，只有标记列表。

Answer 4

以下基于 LuaLaTeX 的解决方案定义了一个名为 的用户宏\forcebeginwith。它应该适用于十多年前的 LaTeX 内核版本，因为 \directlua原语的属性自首次出现以来并没有真正改变。因为\directlua是可扩展的，所以 也是可扩展的\forcebeginwith。请注意， 的参数\forcebeginwith不需要是 ASCII 编码的；相反，它们可以是 UTF8 编码的。

% !TEX program = lualatex
\documentclass{article} % or some other suitable document class
\directlua{% Define the Lua function 'forcebeginwith':

   function forcebeginwith ( s1 , s2 )
      if unicode.utf8.sub ( s1 , 1 , unicode.utf8.len ( s2 ) ) == s2 then
         return ( s1 )
      else
         return ( s2..s1 )
      end
   end

}
\newcommand\forcebeginwith[2]{%
   \directlua{ tex.sprint ( forcebeginwith ( "#1" , "#2" ) ) }}

\newcommand\Za{color}
\newcommand\Zb{fancy}

\begin{document}
\obeylines % just for this document
\forcebeginwith{fancycolor}{fancy}
\forcebeginwith{color}{fancy}

\smallskip
% Demonstrate that '\forcebeginwith' is expandable
\forcebeginwith{\Zb\Za}{\Zb}
\forcebeginwith{\Za}{\Zb}
\end{document}