summaryrefslogtreecommitdiff
path: root/biblio/bibtex/bibtex-x/tests/testname.bst
blob: d9addb41d034b51981be4e71996a32e3c89a6152 (plain)
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
% BibTeX test style file
% Copyright 2022 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
% You may freely use, modify and/or distribute this file.

ENTRY {author}{}{}

STRINGS { s }

INTEGERS { nameptr namesleft numnames }

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

FUNCTION {output_entry} {
  "\item "    author * write$ newline$
    author format.names
}

FUNCTION {book} {output_entry}

READ

FUNCTION {set_sort_key} {
  author 'sort.key$ :=
}

ITERATE {set_sort_key}

SORT

FUNCTION {output_bgn} {
  "\section*{Test result}" write$ newline$
  "\begin{itemize}" write$ newline$
}

FUNCTION {output_end} {
  "\end{itemize}" write$ newline$
  "\endinput" write$ newline$
}

EXECUTE {output_bgn}

ITERATE {call.type$}

EXECUTE {output_end}