测试宏参数的最佳/正确方法是什么？

Question 1

由于这些问题似乎希望在不使用的情况下找到解决方案expl3，我将采用我们现有的代码并以传统风格重新编写它来提供一个解决方案。这当然不是唯一的方法，但似乎为一个答案提供了足够的材料！（基于该解决方案的原因expl3是，无论您是否喜欢特定方法，其中都有很多很好的 TeX 编程思想。）

这里的想法是提供两个测试：

\CompareMacro\MacroName{%
  \ComparisonMacroOne{Code for case one}%
  \ComparisonMacroTwo{Code for case two}%
  ...
}{Code for case 'else}

和

\CompareString{test-string}{%
  {comparison-string-one}{Code for case one}%
  {comparison-string-two}{Code for case two}%
  ...
}{Code for case 'else}

两者都可以嵌套。显然，对于基于宏的比较，您需要存储要测试的值，然后存储要检查的每个可能的值。

作为宏进行比较意味着字符（'a'、'b' 等）及其类别代码（'字母'、'其他' 等）都经过检查，并且必须一致。另一方面，作为字符串进行测试意味着对字符进行比较。（在大多数其他语言中，只存在字符串测试：类别代码似乎是 TeX 自身拥有的东西！）作为字符串进行比较（很容易）需要一个原始函数，而 Knuth 编写的 TeX 中没有这个函数。pdfTeX 调用它\pdfstrcmp，而 XeTeX 只使用。（LuaTeX 用户可能会在这里使用 Lua，但您可以使用包最轻松地\strcmp模拟）。\pdfstrcmppdftexcmds

首先，让我们来看看比较函数本身。作为宏进行比较，代码如下：

\newcommand\CompareMacro[2]{% But needs three arguments!
  \compare@macro#1#2\compare@tail?\compare@stop
}
\newcommand\compare@macro[3]{%
  \compare@if@tail@do{#2}{\@firstofone}%
  \ifx#1#2
    \expandafter\@firstoftwo
  \else
    \expandafter\@secondoftwo
  \fi
    {\compare@end{#3}}%
    {\compare@macro#1}%
}

而对于字符串来说

\newcommand\CompareString[2]{% But needs three arguments!
  \compare@string{#1}#2\compare@tail?\compare@stop
}
\newcommand\compare@string[3]{%
  \compare@if@tail@do{#2}{\@firstofone}%
  \ifnum\pdfstrcmp{\unexpanded{#1}}{\unexpanded{#2}}%
    =\z@ % When two strings are equal \pdfstrcmp returns 0
    \expandafter\@firstoftwo
  \else
    \expandafter\@secondoftwo
  \fi
    {\compare@end{#3}}%
    {\compare@string{#1}}%
}

支撑材料对两者而言都是相同的：

\newcommand\compare@if@tail@do[2]{%
  \expandafter\ifx\compare@if@tail@do@aux#1?\@nil\compare@tail\compare@tail
    \expandafter\compare@do@after@stop
  \else
    \expandafter\@gobble
  \fi
  {#2}%
}
\newcommand\compare@if@tail@do@aux{}
\long\def\compare@if@tail@do@aux#1#2\@nil\compare@tail{#1}
\newcommand\compare@do@after@stop{}
\long\def\compare@do@after@stop#1#2\compare@stop{#1}
\newcommand*\compare@tail{\compare@tail}
\newcommand\compare@end{}
\long\def\compare@end#1#2\compare@stop#3{#1}

这通过循环第二个参数来实现\Compare...。两种情况下的第一个测试是查看我们是否击中了标记\compare@tail，如果是，则查找“其他”情况并执行。另一方面，对于任何其他循环值，都会进行比较。如果成功，则所有其他情况都将被丢弃（使用第二个标记\compare@stop），并使用“成功”代码。另一方面，如果测试失败，则会出现循环。

以这种方式实现的测试可以嵌套。例如，你可以这样做

\CompareString{Hello}{%
  {Hello}{%
    \CompareString{Joseph}{%
      {Fred}{Nice to see you, Fred}%
      {Jane}{Nice to meet you, Jane}%
      {Joseph}{Oh, it's you!}%
    }{OH NO!}%
  }%
  {Goodbye}{See you}%
}{HELP!}

结果将是正确的。其次，测试是可扩展的。这可能并不总是相关的，但能够将\edef案例放入其中非常方便\write，而不必进行测试、保存结果然后应用它。

（对于那些愿意使用的人expl3，我已经描述了功能\tl_case:Nnn和\str_case:nnn。您可以加载expl3和使用这些功能，而不必了解所有细节！）

Answer

由于这些问题似乎希望在不使用的情况下找到解决方案expl3，我将采用我们现有的代码并以传统风格重新编写它来提供一个解决方案。这当然不是唯一的方法，但似乎为一个答案提供了足够的材料！（基于该解决方案的原因expl3是，无论您是否喜欢特定方法，其中都有很多很好的 TeX 编程思想。）

这里的想法是提供两个测试：

\CompareMacro\MacroName{%
  \ComparisonMacroOne{Code for case one}%
  \ComparisonMacroTwo{Code for case two}%
  ...
}{Code for case 'else}

和

\CompareString{test-string}{%
  {comparison-string-one}{Code for case one}%
  {comparison-string-two}{Code for case two}%
  ...
}{Code for case 'else}