testdata/names.bst


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

ENTRY
  {
    author
  }
  {}
  { label }

INTEGERS { nameptr namesleft numnames }

STRINGS { s t }

FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
  { namesleft #0 > }
    {
      s nameptr "{ff}|{vv}|{ll}|{jj}" format.name$ write$ newline$
      s nameptr "{f}|{v}|{l}|{j}" format.name$ write$ newline$
      s nameptr "{ff~}{vv~}{ll}{, jj}" format.name$ write$ newline$
      s nameptr "{f~}{vv~}{ll}{, jj}" format.name$ write$ newline$
      namesleft #1 - 'namesleft :=
      nameptr #1 + 'nameptr :=
    }
  while$
}

FUNCTION {format.authors}
{ author empty$
    { "" }
    { author format.names }
  if$
}

READ

ITERATE {format.authors}