☰

在 BibTeX 中间接调用函数（使用字符串）

tag-icon • tag-icon bibtex conditionals programming strings
在 BibTeX 中间接调用函数（使用字符串）

是否可以在 BibTeX 样式中进行间接函数调用，即从.bib？中的字段获取函数名称EXECUTE可以做到这一点，但这些语句在函数中不起作用（？）。

我目前的解决方法是获取字段名称，将其与字符串文字进行比较，如果匹配则调用相应的函数。这可行但很糟糕（所以可能是正确的，因为它是一个.bst？:)
例如：

FUNCTION {format.thesis.type}
{ this.to.prev.status
  this.status.std
  type empty$
    {
      % Leave warnings to callers
      ""
    }
    {
      type "bthesis" =
      {
        bbl.bthesis
      }
      {
        type "mthesis" =
        {
          bbl.mthesis
        }
        {
          type "phdthesis" =
          {
            bbl.phdthesis
          }
          {
            type "Unknown thesis type " swap$ * ", printing it verbatim" * warning$
            type
          }
        if$
        }
      if$
      }
    if$
    }
  if$
  cap.status.std
}

答案1

正如您所猜测的，您不能。

BibTeX 与 TeX 一样，将函数保存在哈希表中。TeX 必须\csname<control-sequence>\endcsname获取与字符串文字相对应的哈希表条目<control-sequence>。BibTeX
则不需要 :-)

为了实现这一点，您需要将该功能添加到 BibTeX 本身（这可能不是最有趣的任务）。

作为安慰奖，这里有一项strcase功能可能会让您的任务不那么无聊。

语法是：

{ Other cases } "{OTHERWISE}"
{ Case n } <string n>
...
{ Case 2 } <string 2>
{ Case 1 } <string 1>
<string> strcase

该函数strcase将比较<string>和 中的每一个<string n>（从1到n：这是逆波兰表示法，因此它将反向读取项目），一旦找到匹配项，Case n就会执行 的代码，其余的将被丢弃（即使多个字符串匹配）。如果没有找到匹配项，则Other cases执行代码。您可以{ Case n } <string n>根据需要使用任意数量的对，但最后一个{ Other cases } "{OTHERWISE}"是必需的，以便函数知道在哪里停止。

你的情况可以写成（事先检查type missing$：

FUNCTION {format.thesis.type}
{ this.to.prev.status
  this.status.std
  type missing$
    {
      % Do something when type is not given
    }
    {
      { "Unknown thesis type "  type ", printing it verbatim" * * warning$ }
                        "{OTHERWISE}"
      { bbl.bthesis }   "bthesis"
      { bbl.mthesis }   "mthesis"
      { bbl.phdthesis } "phdthesis"
      type strcase
    }
  if$
  cap.status.std
}

以下是可编译的示例代码.bst：

\begin{filecontents*}{test.bst}
ENTRY { type name } { } { }
INTEGERS { strcase.next } % the code requires an integer
STRINGS { s t } % and two strings
FUNCTION { not }
  {   { #0 }
      { #1 }
    if$
  }
FUNCTION { pop.next } { swap$ pop$ }
FUNCTION { strcase.end }
  { #0 'strcase.next :=
    #1
      swap$
      'skip$
    if$
  }
FUNCTION { strcase }
  { #1 'strcase.next :=
      { strcase.next }
      { 's :=
        't :=
        s t =
          {   { swap$ "{OTHERWISE}" = not }
              { pop.next }
            while$
            pop.next
            strcase.end
          }
          { "{OTHERWISE}" t =
              { strcase.end }
              { pop$ s }
            if$
          }
        if$
      }
    while$
  }
FUNCTION { thesis }
  {
    type missing$
      { "Type missing for entry " cite$ * warning$ }
      {
        { "Unknown thesis type "  type ", printing it verbatim" * * warning$ }
          "{OTHERWISE}"
        { "This is a bachelor thesis" warning$ } "bthesis"
        { "This is a master thesis" warning$ }   "mthesis"
        { "This is a doctor thesis" warning$ } "phdthesis"
        type strcase
      }
    if$
  }
READ
ITERATE {call.type$}
\end{filecontents*}
\begin{filecontents*}{test.bib}
@thesis{bach, type = {bthesis}}
@thesis{mast, type = {mthesis}}
@thesis{doct, type = {phdthesis}}
@thesis{unkn, type = {unknown}}
@thesis{void, name = {me}}
\end{filecontents*}
\documentclass{article}
\begin{document}
\nocite*
\bibliography{test}
\bibliographystyle{test}
\end{document}

相关内容