不同语言中的 bibliografy .bst 缩写

Question

有两个BST文件，一个是参考文献列表的顺序，另一个是不同语言的正确缩写。但我只需要第一作者。

这里仅给出一位作者：

FUNCTION {format.names}
{
  #1 "{vv~}{ll}{~jj}{,~ff}" format.name$
}

这里我们得到了几位作者，但给出的不同语言的缩写是正确的：

FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    {  s nameptr
       curlanguage "ukrainian" = curlanguage "russian" = or
       { "{vv~}{ll}{~jj}{~ff}" format.name$ 't := }
       { curlanguage "english" =
         { "{vv~}{ll}{~jj}{~f.}" format.name$ 't := }
         { "language is not defined: " language  "{vv~}{ll}{~jj}{~ff}" * * warning$ "{vv~}{ll}{~jj}{~ff}" }
        if$}
      if$
      nameptr #1 >
        {
          nameptr #4 =
          numnames #3 > and
            { "others" 't :=
              #1 'namesleft := }
            'skip$
          if$
          namesleft #1 >
            { ", " * t * }
            {
              t "others" =
              t "~others" =
              or
                { " " * bbl.etal * }
                { ", " * t * }
              if$
            }
          if$
        }
        't
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}

如何format.names根据语言获取仅有一位作者？