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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
# $Id: babelbst.perl,v 1.2 1998/08/06 14:50:28 UW Exp $
# babelbst.perl - LaTeX2HTML support for the merlin \bbl*** commands
# (default English style) for use with Patrick Daly's natbib.sty
# Ross Moore, 29.6.1998 (ross@mpce.mq.edu.au)
# using information supplied by Uli Wortmann
sub do_cmd_bbland { $bbland . @_[0] }
$bbland = 'and' unless ($bbland);
sub do_cmd_bbleditor { $bbleditor . @_[0] }
sub do_cmd_bbled { $bbled . @_[0] }
sub do_cmd_bbleditors { $bbleditors . @_[0] }
sub do_cmd_bbleds { $bbleds . @_[0] }
sub do_cmd_bbledby { $bbledby . @_[0] }
sub do_cmd_bbledition { $bbledition . @_[0] }
sub do_cmd_bbledn { $bbledn . @_[0] }
$bbleditor = 'editor' unless ($bbleditor);
$bbled = 'ed.' unless ($bbled);
$bbleditors = 'editors' unless ($bbleditors);
$bbleds = 'eds.' unless ($bbleds);
$bbledby = 'edited by' unless ($bbledby);
$bbledition = 'edition' unless ($bbledition);
$bbledn = 'edn.' unless ($bbledn);
sub do_cmd_bblVolume { $bblVolume . @_[0] }
sub do_cmd_bblVol { $bblVol . @_[0] }
sub do_cmd_bblvolume { $bblvolume . @_[0] }
sub do_cmd_bblvol { $bblvol . @_[0] }
$bblVolume = 'Volume' unless ($bblVolume);
$bblVol = 'Vol.' unless ($bblVol);
$bblvolume = 'volume' unless ($bblvolume);
$bblvol = 'vol.' unless ($bblvol);
sub do_cmd_bblof { $bblof . @_[0] }
$bblof = '' unless ($bblof);
sub do_cmd_bblNumber { $bblNumber . @_[0] }
sub do_cmd_bblNo { $bblNo . @_[0] }
sub do_cmd_bblnumber { $bblnumber . @_[0] }
sub do_cmd_bblno { $bblno . @_[0] }
$bblNumber = 'Number' unless ($bblNumber);
$bblnumber = 'number' unless ($bblnumber);
$bblNo = 'No.' unless ($bblNo);
$bblno = 'no.' unless ($bblno);
sub do_cmd_bblIn { $bblIn . @_[0] }
sub do_cmd_bblin { $bblin . @_[0] }
$bblIn = 'In' unless ($bblIn);
$bblin = 'in' unless ($bblin);
sub do_cmd_bblpages { $bblpages . @_[0] }
sub do_cmd_bblpage { $bblpage . @_[0] }
sub do_cmd_bblpp { $bblpp . @_[0] }
sub do_cmd_bblp { $bblp . @_[0] }
$bblpages = 'pages' unless ($bblpages);
$bblpage = 'page' unless ($bblpage);
$bblpp = 'p' unless ($bblpp);
$bblp = 'p.' unless ($bblp);
sub do_cmd_bblchapter { $bblchapter . @_[0] }
sub do_cmd_bblchap { $bblchap . @_[0] }
$bblchapter = 'chapter' unless ($bblchapter);
$bblchap = 'chap' unless ($bblchap);
sub do_cmd_bbltechreport { $bbltechreport . @_[0] }
sub do_cmd_bbltechrep { $bbltechrep . @_[0] }
$bbltechreport = 'Technical Report' unless ($bbltechreport);
$bbltechrep = 'Tech. Rep.' unless ($bbltechrep);
sub do_cmd_bblmthesis { $bblmthesis . @_[0] }
$bblmthesis = "Master's thesis" unless ($bblmthesis);
sub do_cmd_bblphdthesis { $bblphdthesis . @_[0] }
$bblphdthesis = 'Ph.D. thesis' unless ($bblphdthesis);
sub do_cmd_bblfirst { $bblfirst. @_[0] }
sub do_cmd_bblfirsto { $bblfirsto. @_[0] }
$bblfirst = 'First' unless ($bblfirst);
$bblfirsto = '1st' unless ($bblfirsto);
sub do_cmd_bblsecond { $bblsecond . @_[0] }
sub do_cmd_bblsecondo { $bblsecondo . @_[0] }
$bblsecond = 'Second' unless ($bblsecond);
$bblsecondo = '2nd' unless ($bblsecondo);
sub do_cmd_bblthird { $bblthird . @_[0] }
sub do_cmd_bblthirdo { $bblthirdo . @_[0] }
$bblthird = 'Third' unless ($bblthird);
$bblthirdo = '3rd' unless ($bblthirdo);
sub do_cmd_bblfourth { $bblfourth . @_[0] }
sub do_cmd_bblfourtho { $bblfourtho . @_[0] }
$bblfourth = 'Fourth' unless ($bblfourth);
$bblfourtho = '4th' unless ($bblfourtho);
sub do_cmd_bblfifth { $bblfifth . @_[0] }
sub do_cmd_bblfiftho { $bblfiftho . @_[0] }
$bblfifth = 'Fifth' unless ($bblfifth);
$bblfiftho = '5th' unless ($bblfiftho);
sub do_cmd_bblst { $bblst . @_[0] }
$bblst = 'st' unless ($bblst);
sub do_cmd_bblnd { $bblnd . @_[0] }
$bblnd = 'nd' unless ($bblnd);
sub do_cmd_bblrd { $bblrd . @_[0] }
$bblrd = 'rd' unless ($bblrd);
sub do_cmd_bblth { $bblth . @_[0] }
$bblth = 'th' unless ($bblth);
sub do_cmd_bbljan { $bbljan . @_[0] }
$bbljan = 'January' unless ($bbljan);
sub do_cmd_bblfeb { $bblfeb . @_[0] }
$bblfeb = 'February' unless ($bblfeb);
sub do_cmd_bblmar { $bblmar . @_[0] }
$bblmar = 'March' unless ($bblmar);
sub do_cmd_bblapr { $bblapr . @_[0] }
$bblapr = 'April' unless ($bblapr);
sub do_cmd_bblmay { $bblmay . @_[0] }
$bblmay = 'May' unless ($bblmay);
sub do_cmd_bbljun { $bbljun . @_[0] }
$bbljun = 'June' unless ($bbljun);
sub do_cmd_bbljul { $bbljul . @_[0] }
$bbljul = 'July' unless ($bbljul);
sub do_cmd_bblaug { $bblaug . @_[0] }
$bblaug = 'August' unless ($bblaug);
sub do_cmd_bblsep { $bblsep . @_[0] }
$bblsep = 'September' unless ($bblsep);
sub do_cmd_bbloct { $bbloct . @_[0] }
$bbloct = 'October' unless ($bbloct);
sub do_cmd_bblnov { $bblnov . @_[0] }
$bblnov = 'November' unless ($bblnov);
sub do_cmd_bbldec { $bbldec . @_[0] }
$bbldec = 'December' unless ($bbldec);
1;
|
