
Eu tenho um arquivo bst que encurta entradas com mais de 5 autores parae outros. mas gostaria de modificá-lo para fazê-lo para mais de 4 autores. Acredito que este seja o trecho de código relevante, mas como posso alterá-lo para obter o comportamento modificado?
Esta questão é semelhante aAlterando a função "format.names" do BibTeX no arquivo .bst para forçar "et al." citações para entradas com mais de 3 autoresmas como este arquivo bst já executa com sucesso uma função semelhante, talvez a probabilidade desta pergunta obter uma resposta seja maior.
Essa sintaxe é realmente uma Besta... Se alguém pudesse me explicar o que está acontecendo aqui, eu agradeceria muito.
FUNCTION {format.names}
{ 'bibinfo :=
duplicate$ empty$ 'skip$ {
's :=
"" 't :=
#1 'nameptr :=
s num.names$ 'numnames :=
numnames 'namesleft :=
{ namesleft #0 > }
{ s nameptr
"{vv~}{ll}{, f.}{, jj}"
format.name$
bibinfo bibinfo.check
't :=
nameptr #1 >
{
nameptr #1
#1 + =
numnames #5
> and
{ "others" 't :=
#1 'namesleft := }
'skip$
if$
namesleft #1 >
{ ", " * t * }
{
s nameptr "{ll}" format.name$ duplicate$ "others" =
{ 't := }
{ pop$ }
if$
t "others" =
{
" " * bbl.etal emphasize *
}
{
"\&"
space.word * t *
}
if$
}
if$
}
't
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
}
while$
} if$
}
Fonte:http://mirror.unl.edu/ctan/macros/latex/contrib/nature/naturemag.bst
Responder1
Por razões que não são totalmente claras para mim, mudar o número 5 para o número 3 funciona. Parece que os números 5 e 4 têm o mesmo comportamento... Aceitaria com prazer uma resposta que explicasse o que está acontecendo aqui.
FUNCTION {format.names}
{ 'bibinfo :=
duplicate$ empty$ 'skip$ {
's :=
"" 't :=
#1 'nameptr :=
s num.names$ 'numnames :=
numnames 'namesleft :=
{ namesleft #0 > }
{ s nameptr
"{vv~}{ll}{, f.}{, jj}"
format.name$
bibinfo bibinfo.check
't :=
nameptr #1 >
{
nameptr #1
#1 + =
numnames #3
> and
{ "others" 't :=
#1 'namesleft := }
'skip$
if$
namesleft #1 >
{ ", " * t * }
{
s nameptr "{ll}" format.name$ duplicate$ "others" =
{ 't := }
{ pop$ }
if$
t "others" =
{
" " * bbl.etal emphasize *
}
{
"\&"
space.word * t *
}
if$
}
if$
}
't
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
}
while$
} if$
}