为什么 babalpha 会删除破折号？

Question

这似乎是 BibTeX 名称格式化程序的一个怪癖。Q35btxFAQ似乎极其相关。

在格式化姓名时，它会在名字元素之间babalpha插入可自定义的宏。以下调用会发生这种情况\btxfnamespacelong

s nameptr "{ff{\btxfnamespacelong } }{vv~}" format.name$

显然，BibTeX 不仅会拆分用空格分隔的名称（例如）Rolph Johan，还会拆分用连字符连接的名称（例如），Ralph-Johan以便在名字元素之间插入内容，甚至会丢弃连字符，因此最终会得到Ralph\btxfnamespacelong Johan。

一个便宜的解决方法是

\newcommand*{\myhyphen}{-}

进而

author = {Ralph\myhyphen{}Johan Back},

对于 BibTeX 来说，Ralph\myhyphen{}Johan是一个不会被分成两个名字Ralph和的单位Johan，所以您最终会得到预期的输出。

另一个保持.bib内容合理的解决方法是简单地告诉.bst样式不要理会\btxfnamespacelong。由于\btxfnamespacelong在所有默认设置中都是正常空间，所以babelbib无论如何，删除这部分定义不会给您带来太大损失。

{ff{\btxfnamespacelong } }在中搜索.bst并将其替换为{ff }（应该有两个结果）。

如果要保留\btxfnamespacelong，则需要做额外的工作。本质上，我们需要手动完成自动执行的{ff }操作{ff{\btxfnamespacelong } }。

执行此操作的代码是从中窃取的biblatex.bst。我们使用进行格式化{ff}，然后手动将和替换~为\btxfnamespacelong。理论上，这可能会导致非大括号级别的空格出现问题0，但我想人们可以忍受。

不同之处babalpha-fl-gs-sort.bst在于

--- babalpha-fl-gs-sort.bst 2019-03-28 09:19:33.293644400 +0100
+++ babalpha-fl-gs-sort-dash.bst    2019-03-28 09:25:55.925628100 +0100
@@ -1,3 +1,12 @@
+%%%%%%%% `babalpha-fl-gs-sort-dash.bst'
+%%%%%%%% even more tweaks for `babalpha-fl-gs-sort.bst'
+%%%%%%%% for https://tex.stackexchange.com/q/481557/35864
+%%%%%%%% this time we need to emulate {ff{\btxfnamespacelong } }
+%%%%%%%% most code stolen from biblatex.bst
+%%%%%%%% 2019-03-28 MW
+%%%%%%%%
+%%%%%%%% header of older versions follow
+%%%%%%%%
 %%%%%% `babalpha-fl-gs-sort.bst'
 %%%%%% babalpha-fl-gs with tweaked sorting
 %%%%%% for https://tex.stackexchange.com/q/472951/35864
@@ -76,6 +85,7 @@
     after.sentence
     after.block
     before.title
+    resvctra
   }

 STRINGS
@@ -84,6 +94,7 @@
     language.state
     change.temp
     isbn.command
+    resvstrga resvstrgb resvstrgc
   }

 FUNCTION {init.state.consts}
@@ -382,6 +393,35 @@

 INTEGERS { nameptr namesleft numnames }

+% from biblatex.bst
+FUNCTION {str:length} {
+  #1 'resvctra :=
+  { duplicate$ duplicate$ #1 resvctra substring$ = not }
+    { resvctra #1 + 'resvctra := }
+  while$
+  pop$
+  resvctra
+}
+
+FUNCTION {str:replace} {
+  'resvstrga :=
+  'resvstrgb :=
+  'resvstrgc :=
+  resvstrgb str:length 'resvctra :=
+  ""
+  { resvstrgc empty$ not }
+    { resvstrgc #1 resvctra substring$ resvstrgb =
+        { resvstrga *
+          resvstrgc #1 resvctra + global.max$ substring$ 'resvstrgc :=
+        }
+        { resvstrgc #1 #1 substring$ *
+          resvstrgc #2 global.max$ substring$ 'resvstrgc :=
+        }
+      if$
+    }
+  while$
+}
+
 FUNCTION {format.names}
 { 's :=
   #1 'nameptr :=
@@ -390,7 +430,11 @@
     { namesleft #0 > }
     { nameptr #1 >
       {
-        s nameptr "{ff{\btxfnamespacelong } }{vv~}" format.name$
+        s nameptr "{ff}" format.name$
+          " " "\btxfnamespacelong " str:replace
+          "~" "\btxfnamespacelong " str:replace
+        duplicate$ empty$ 'skip$ { " " * } if$
+        s nameptr "{vv~}" format.name$ *
         s nameptr "{ll}" format.name$ lastnamefont *
         s nameptr "{, jj}" format.name$ *
         't :=
@@ -408,7 +452,11 @@
           if$
         }
         {
-          s nameptr "{ff{\btxfnamespacelong } }{vv~}" format.name$
+          s nameptr "{ff}" format.name$
+            " " "\btxfnamespacelong " str:replace
+            "~" "\btxfnamespacelong " str:replace
+          duplicate$ empty$ 'skip$ { " " * } if$
+          s nameptr "{vv~}" format.name$ *
           s nameptr "{ll}" format.name$ lastnamefont *
           s nameptr "{,~jj}" format.name$ * namefont
         }

修改后的文件babalpha-fl-gs-sort-dash.bst可以在以下网址下载：https://gist.github.com/moewew/db4ea9fd7a76b74ed3a12ec0802c49c0

\documentclass{article}
\usepackage[british,swedish,ngerman]{babel}
\usepackage{filecontents}
\begin{filecontents}{\jobname.bib}
@phdthesis{Back-OnTheCorrectnessOfRefinementStepsInProgramDevelopment,
  author   = {Ralph-Johan Back and Ralph Johan Bock},
  title    = {On the correctness of refinement steps in program development},
  school   = {\foreignlanguage{swedish}{Åbo Akademi}, Department of Computer Science},
  year     = 1978,
  address  = {Helsinki, Finland},
  note     = {Report A--1978--4},
  language = {british},
}
\end{filecontents}
\usepackage{babelbib}

\begin{document}
\cite{Back-OnTheCorrectnessOfRefinementStepsInProgramDevelopment}
\bibliographystyle{babalpha-fl-gs-sort-dash}
\bibliography{\jobname}
\end{document}

Answer 1