summaryrefslogtreecommitdiff
path: root/Build/source/texk/bibtex-x/tests/testsubstr.bst
blob: 146bd94bfb6e54fe981763cbebd3eafe31e1290a (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
ENTRY {field}{}{}

FUNCTION {output_entry} {
  "\item[orig] " field * write$ newline$
  "\item[1 1] " field #1 #1 substring$ * write$ newline$
  "\item[1 2] " field #1 #2 substring$ * write$ newline$
  "\item[1 3] " field #1 #3 substring$ * write$ newline$
  "\item[1 4] " field #1 #4 substring$ * write$ newline$
  "\item[1 5] " field #1 #5 substring$ * write$ newline$
  "\item[1 6] " field #1 #6 substring$ * write$ newline$
  "\item[1 7] " field #1 #7 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[6 1] " field #6 #1 substring$ * write$ newline$
  "\item[7 1] " field #7 #1 substring$ * write$ newline$
  "\item[1 7] " field #1 #7 substring$ * write$ newline$
  "\item[2 6] " field #2 #6 substring$ * write$ newline$
  "\item[3 5] " field #3 #5 substring$ * write$ newline$
  "\item[4 4] " field #4 #4 substring$ * write$ newline$
  "\item[5 3] " field #5 #3 substring$ * write$ newline$
  "\item[6 2] " field #6 #2 substring$ * write$ newline$
  "\item[7 1] " field #7 #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 1] " field #-1 #1 substring$ * write$ newline$
  "\item[-1 2] " field #-1 #2 substring$ * write$ newline$
  "\item[-1 3] " field #-1 #3 substring$ * write$ newline$
  "\item[-1 4] " field #-1 #4 substring$ * write$ newline$
  "\item[-1 5] " field #-1 #5 substring$ * write$ newline$
  "\item[-1 6] " field #-1 #6 substring$ * write$ newline$
  "\item[-1 7] " field #-1 #7 substring$ * write$ newline$
  "\item[-2 7] " field #-2 #7 substring$ * write$ newline$
  "\item[-3 7] " field #-3 #7 substring$ * write$ newline$
  "\item[-4 7] " field #-4 #7 substring$ * write$ newline$
  "\item[-5 7] " field #-5 #7 substring$ * write$ newline$
  "\item[-6 7] " field #-6 #7 substring$ * write$ newline$
  "\item[-7 7] " field #-7 #7 substring$ * write$ newline$
  "\item[-1 7] " field #-1 #7 substring$ * write$ newline$
  "\item[-2 6] " field #-2 #6 substring$ * write$ newline$
  "\item[-3 5] " field #-3 #5 substring$ * write$ newline$
  "\item[-4 4] " field #-4 #4 substring$ * write$ newline$
  "\item[-5 3] " field #-5 #3 substring$ * write$ newline$
  "\item[-6 2] " field #-6 #2 substring$ * write$ newline$
  "\item[-7 1] " field #-7 #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_sortkey} {
  field 'sort.key$ :=
}

ITERATE {set_sortkey}

SORT

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

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

EXECUTE {output_beg}

ITERATE {call.type$}

EXECUTE {output_end}