summaryrefslogtreecommitdiff
path: root/biblio/bibtex/bibtex-x/tests/testsubstr.bst
blob: a332f82a0008eedfaa7f3b21abc29a55956fcfc6 (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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
% 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 {field}{}{}

FUNCTION {output_entry} {
  "\item[orig] " field * write$ newline$
  "\item[1 5] " field #1 #5 substring$ * write$ newline$
  "\item[1 4] " field #1 #4 substring$ * write$ newline$
  "\item[1 3] " field #1 #3 substring$ * write$ newline$
  "\item[1 2] " field #1 #2 substring$ * write$ newline$
  "\item[1 1] " field #1 #1 substring$ * write$ newline$
  "\item[2 1] " field #2 #1 substring$ * write$ newline$
  "\item[3 1] " field #3 #1 substring$ * write$ newline$
  "\item[4 1] " field #4 #1 substring$ * write$ newline$
  "\item[5 1] " field #5 #1 substring$ * write$ newline$
  "\item[1 5] " field #1 #5 substring$ * write$ newline$
  "\item[2 5] " field #2 #5 substring$ * write$ newline$
  "\item[3 5] " field #3 #5 substring$ * write$ newline$
  "\item[4 5] " field #4 #5 substring$ * write$ newline$
  "\item[5 5] " field #5 #5 substring$ * write$ newline$
  "\item[1 5] " field #1 #5 substring$ * write$ newline$
  "\item[2 4] " field #2 #4 substring$ * write$ newline$
  "\item[3 3] " field #3 #3 substring$ * write$ newline$
  "\item[4 2] " field #4 #2 substring$ * write$ newline$
  "\item[5 1] " field #5 #1 substring$ * write$ newline$
  "\item[1 8] " field #1 #8 substring$ * write$ newline$
  "\item[2 7] " field #2 #7 substring$ * write$ newline$
  "\item[3 6] " field #3 #6 substring$ * write$ newline$
  "\item[4 5] " field #4 #5 substring$ * write$ newline$
  "\item[5 4] " field #5 #4 substring$ * write$ newline$
  "\item[6 3] " field #6 #3 substring$ * write$ newline$
  "\item[7 2] " field #7 #2 substring$ * write$ newline$
  "\item[8 1] " field #8 #1 substring$ * write$ newline$
  "\item[-1 5] " field #-1 #5 substring$ * write$ newline$
  "\item[-1 4] " field #-1 #4 substring$ * write$ newline$
  "\item[-1 3] " field #-1 #3 substring$ * write$ newline$
  "\item[-1 2] " field #-1 #2 substring$ * write$ newline$
  "\item[-1 1] " field #-1 #1 substring$ * write$ newline$
  "\item[-2 1] " field #-2 #1 substring$ * write$ newline$
  "\item[-3 1] " field #-3 #1 substring$ * write$ newline$
  "\item[-4 1] " field #-4 #1 substring$ * write$ newline$
  "\item[-5 1] " field #-5 #1 substring$ * write$ newline$
  "\item[-1 5] " field #-1 #5 substring$ * write$ newline$
  "\item[-2 5] " field #-2 #5 substring$ * write$ newline$
  "\item[-3 5] " field #-3 #5 substring$ * write$ newline$
  "\item[-4 5] " field #-4 #5 substring$ * write$ newline$
  "\item[-5 5] " field #-5 #5 substring$ * write$ newline$
  "\item[-1 5] " field #-1 #5 substring$ * write$ newline$
  "\item[-2 4] " field #-2 #4 substring$ * write$ newline$
  "\item[-3 3] " field #-3 #3 substring$ * write$ newline$
  "\item[-4 2] " field #-4 #2 substring$ * write$ newline$
  "\item[-5 1] " field #-5 #1 substring$ * write$ newline$
  "\item[-1 8] " field #-1 #8 substring$ * write$ newline$
  "\item[-2 7] " field #-2 #7 substring$ * write$ newline$
  "\item[-3 6] " field #-3 #6 substring$ * write$ newline$
  "\item[-4 5] " field #-4 #5 substring$ * write$ newline$
  "\item[-5 4] " field #-5 #4 substring$ * write$ newline$
  "\item[-6 3] " field #-6 #3 substring$ * write$ newline$
  "\item[-7 2] " field #-7 #2 substring$ * write$ newline$
  "\item[-8 1] " field #-8 #1 substring$ * write$ newline$
}

FUNCTION {type} {output_entry}

READ

FUNCTION {set_sort_key} {
  field '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}