summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/bibtex/bst/bath-bst/bath.bst
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/bibtex/bst/bath-bst/bath.bst')
-rw-r--r--Master/texmf-dist/bibtex/bst/bath-bst/bath.bst236
1 files changed, 126 insertions, 110 deletions
diff --git a/Master/texmf-dist/bibtex/bst/bath-bst/bath.bst b/Master/texmf-dist/bibtex/bst/bath-bst/bath.bst
index e4fec7b7dcf..d28ef0717e8 100644
--- a/Master/texmf-dist/bibtex/bst/bath-bst/bath.bst
+++ b/Master/texmf-dist/bibtex/bst/bath-bst/bath.bst
@@ -407,6 +407,10 @@ FUNCTION {eng.ord}
}
if$
}
+ FUNCTION {word.in}
+{ bbl.in capitalize
+ ":" *
+ " " * }
INTEGERS { nameptr namesleft numnames }
STRINGS { bibinfo }
@@ -703,19 +707,27 @@ FUNCTION {format.version}
}
if$
}
-FUNCTION {get.title.online}
-{ online.shown
+FUNCTION {print.labeltitle.addenda}
+{ continue.clause
+ online.shown
'skip$
- { continue.clause
+ { format.version output
+ continue.clause
format.titleaddon output
#1 'online.shown :=
}
if$
}
-FUNCTION {get.title.addenda}
+FUNCTION {print.title.addenda}
{ continue.clause
- format.version output
- get.title.online
+ online.shown
+ 'skip$
+ { format.version output
+ continue.clause
+ format.titleaddon output
+ #1 'online.shown :=
+ }
+ if$
continue.clause
type$ "reference" =
{ format.byeditors output }
@@ -723,10 +735,6 @@ FUNCTION {get.title.addenda}
if$
format.translators output
}
-FUNCTION {word.in}
-{ bbl.in capitalize
- ":" *
- " " * }
FUNCTION {format.label.booktitle}
{ booktitle
duplicate$ empty$ 'skip$
@@ -1199,7 +1207,7 @@ FUNCTION {format.note}
}
if$
}
-FUNCTION {format.org.or.pub}
+FUNCTION {prepend.address}
{ 't :=
""
address empty$ t empty$ and
@@ -1218,12 +1226,12 @@ FUNCTION {format.org.or.pub}
if$
}
FUNCTION {format.publisher.address}
-{ publisher "publisher" bibinfo.warn format.org.or.pub
+{ publisher "publisher" bibinfo.warn prepend.address
}
FUNCTION {format.organization.address}
{ publisher empty$
- { organization "organization" bibinfo.check format.org.or.pub }
- { publisher "publisher" bibinfo.warn format.org.or.pub
+ { organization "organization" bibinfo.check prepend.address }
+ { publisher "publisher" bibinfo.warn prepend.address
organization duplicate$ empty$
'pop$
{ "organization" bibinfo.check ". " * swap$ * }
@@ -1233,8 +1241,8 @@ FUNCTION {format.organization.address}
}
FUNCTION {format.institution.address}
{ publisher empty$
- { institution "institution" bibinfo.check format.org.or.pub }
- { publisher "publisher" bibinfo.warn format.org.or.pub
+ { institution "institution" bibinfo.check prepend.address }
+ { publisher "publisher" bibinfo.warn prepend.address
institution duplicate$ empty$
'pop$
{ "institution" bibinfo.check ". " * swap$ * }
@@ -1247,34 +1255,24 @@ FUNCTION {format.library}
emphasize
}
FUNCTION {format.img.library}
+{ library "library" bibinfo.check
+}
+FUNCTION {format.img.library.address}
{ library duplicate$ empty$
- { pop$ "" }
- { "library" bibinfo.check
- "At: " swap$ *
+ { pop$
+ institution duplicate$ empty$
+ 'skip$
+ { "institution" bibinfo.check }
+ if$
}
+ { "library" bibinfo.check }
if$
-}
-FUNCTION {format.img.library.address}
-{ address empty$ library empty$ and institution empty$ and
- { "" }
- { "At: "
- address "address" bibinfo.check *
- library duplicate$ empty$
- { institution duplicate$ empty$
- { pop$ "" }
- { address empty$
- 'skip$
- { ". " swap$ }
- if$
- "institution" bibinfo.check * *
- }
- if$
- }
- { address empty$
- 'skip$
- { ". " swap$ }
- if$
- "library" bibinfo.check * *
+ duplicate$ empty$
+ { address "address" bibinfo.check * }
+ { address duplicate$ empty$
+ 'pop$
+ { "address" bibinfo.check
+ swap$ ", " * swap$ *
}
if$
}
@@ -1288,7 +1286,7 @@ FUNCTION {format.pub.org.lib.address}
format.img.library.address }
{ "organization" bibinfo.check
library empty$
- { format.org.or.pub }
+ { prepend.address }
{ ". " *
format.img.library.address *
}
@@ -1296,7 +1294,7 @@ FUNCTION {format.pub.org.lib.address}
}
if$
}
- { "publisher" bibinfo.warn format.org.or.pub
+ { "publisher" bibinfo.warn prepend.address
library empty$
'skip$
{ ". " *
@@ -1584,7 +1582,7 @@ FUNCTION {article}
format.date "year" output.check
date.block
format.title "title" output.check
- get.title.addenda
+ print.title.addenda
new.block
crossref missing$
{ journal "t" change.case$
@@ -1614,16 +1612,16 @@ FUNCTION {book}
{ format.title "title" output.check }
{ format.btitle "title" output.check }
if$
- get.title.online
+ print.labeltitle.addenda
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
- get.title.addenda
+ print.title.addenda
}
{ format.editors "author and editor" output.check
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
}
@@ -1635,15 +1633,20 @@ FUNCTION {book}
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
format.bvolume output
format.number.series output
new.block
format.edition output
+ new.block
+ format.note output
crossref missing$
- { new.sentence
+ { keywords field.or.null "uksi" =
+ { mid.sentence 'output.state := }
+ { new.sentence }
+ if$
format.publisher.address output
}
{ new.block
@@ -1651,8 +1654,6 @@ FUNCTION {book}
}
if$
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -1661,17 +1662,17 @@ FUNCTION {booklet}
{ output.bibitem
author empty$
{ format.avtitle "title" output.check
- get.title.online
+ print.labeltitle.addenda
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
format.date "year" output.check
date.block
format.avtitle "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
new.block
@@ -1707,9 +1708,12 @@ FUNCTION {inbook}
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
new.block
format.edition output
+ new.block
+ format.note output
+ new.block
crossref missing$
{ format.publisher.address output
format.bvolume output
@@ -1724,8 +1728,6 @@ FUNCTION {inbook}
}
if$
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -1736,21 +1738,21 @@ FUNCTION {incollection}
{ type$ "inreference" =
{ format.label.booktitle output}
{ format.title "title" output.check
- get.title.online
+ print.labeltitle.addenda
}
if$
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
type$ "inreference" =
'skip$
- { get.title.addenda }
+ { print.title.addenda }
if$
}
{ format.authors output.nonnull
format.date "year" output.check
date.block
format.title "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
new.block
@@ -1768,23 +1770,25 @@ FUNCTION {incollection}
author empty$
and
{ format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
new.block
}
'skip$
if$
+ format.note output
+ new.block
format.publisher.address output
format.bvolume output
format.number.series output
format.chapter.pages output
}
- { format.incoll.inproc.crossref output.nonnull
+ { format.note output
+ new.block
+ format.incoll.inproc.crossref output.nonnull
format.chapter.pages output
}
if$
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -1796,12 +1800,13 @@ FUNCTION {inproceedings}
format.date "year" output.check
date.block
format.title "title" output.check
- get.title.addenda
+ print.title.addenda
new.block
crossref missing$
{ format.in.ed.booktitle "booktitle" output.check
eventyear output
venue output
+ format.note output
new.sentence
publisher empty$
{ format.organization.address output }
@@ -1813,13 +1818,13 @@ FUNCTION {inproceedings}
format.number.series output
format.pages output
}
- { format.incoll.inproc.crossref output.nonnull
+ { format.note output
+ new.block
+ format.incoll.inproc.crossref output.nonnull
format.pages output
}
if$
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -1837,10 +1842,10 @@ FUNCTION {jurisdiction}
'new.sentence
'continue.clause
if$
- get.title.online
+ print.labeltitle.addenda
format.jur.date "year" output.check
year empty$ 'skip$ { eu.case.check } if$
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
@@ -1848,7 +1853,8 @@ FUNCTION {jurisdiction}
date.block
continue.clause
format.btitle "title" output.check
- get.title.addenda
+ print.labeltitle.addenda
+ print.title.addenda
}
if$
eu.case.check
@@ -1874,9 +1880,10 @@ FUNCTION {uklegislation}
{ output.bibitem
author empty$
{ format.btitle "title" output.check
+ print.labeltitle.addenda
continue.clause
format.date emphasize "year" output.check
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
@@ -1884,7 +1891,8 @@ FUNCTION {uklegislation}
date.block
continue.clause
format.btitle "title" output.check
- get.title.addenda
+ print.labeltitle.addenda
+ print.title.addenda
}
if$
entrysubtype field.or.null "secondary" =
@@ -1930,9 +1938,10 @@ FUNCTION {eulegislation}
{ output.bibitem
author empty$
{ format.title "title" output.check
+ print.labeltitle.addenda
continue.clause
format.eu.date "year" output.check
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
@@ -1940,7 +1949,8 @@ FUNCTION {eulegislation}
date.block
continue.clause
format.title "title" output.check
- get.title.addenda
+ print.labeltitle.addenda
+ print.title.addenda
}
if$
eu.case.check
@@ -1972,17 +1982,17 @@ FUNCTION {manual}
{ output.bibitem
author empty$
{ format.btitle "title" output.check
- get.title.online
+ print.labeltitle.addenda
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
month "month" bibinfo.check output
@@ -1990,12 +2000,12 @@ FUNCTION {manual}
new.block
format.manual.number output
new.block
+ format.note output
+ new.block
format.library output
organization address new.block.checkb
format.organization.address output
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -2004,27 +2014,27 @@ FUNCTION {image}
{ output.bibitem
author empty$
{ format.btitle "title" output.check
- get.title.online
+ print.labeltitle.addenda
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
format.edition output
new.block
+ format.note output
+ new.block
format.manual.number output
new.block
format.pub.org.lib.address output
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -2036,15 +2046,15 @@ FUNCTION {mastersthesis}
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
+ new.block
+ format.note output
new.block
bbl.mthesis format.thesis.type output.nonnull
new.block
school "school" bibinfo.warn output
address "address" bibinfo.check output
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -2053,17 +2063,17 @@ FUNCTION {misc}
{ output.bibitem
author empty$
{ format.title "title" output.check
- get.title.online
+ print.labeltitle.addenda
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
format.date "year" output.check
date.block
format.title "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
new.block
@@ -2082,15 +2092,15 @@ FUNCTION {phdthesis}
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
+ new.block
+ format.note output
new.block
bbl.phdthesis format.thesis.type output.nonnull
new.block
school "school" bibinfo.warn output
address "address" bibinfo.check output
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -2099,21 +2109,22 @@ FUNCTION {proceedings}
{ output.bibitem
editor empty$
{ format.btitle "title" output.check
- get.title.online
+ print.labeltitle.addenda
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
- get.title.addenda
+ print.title.addenda
}
{ format.editors output
editor format.key output
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
format.bvolume output
format.number.series output
+ format.note output
new.sentence
publisher empty$
{ format.organization.address output }
@@ -2122,8 +2133,6 @@ FUNCTION {proceedings}
}
if$
new.block
- format.note output
- new.block
format.eprint output
format.url output
fin.entry
@@ -2132,22 +2141,28 @@ FUNCTION {techreport}
{ output.bibitem
author empty$
{ format.btitle "title" output.check
- get.title.online
+ print.labeltitle.addenda
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
format.date "year" output.check
date.block
format.btitle "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
new.block
format.tr.number output
new.block
+ library empty$
+ 'skip$
+ { format.note output
+ new.block
+ }
+ if$
publisher empty$
{ format.institution.address output }
{ institution "institution" bibinfo.check output
@@ -2155,9 +2170,10 @@ FUNCTION {techreport}
}
if$
new.block
- format.library output
- new.block
- format.note output
+ library empty$
+ { format.note output }
+ { format.library output }
+ if$
new.block
format.eprint output
format.url output
@@ -2167,17 +2183,17 @@ FUNCTION {unpublished}
{ output.bibitem
author empty$
{ booktitle empty$ 'format.btitle 'format.title if$ "title" output.check
- get.title.online
+ print.labeltitle.addenda
format.date "year" output.check
year empty$ 'skip$ { date.block } if$
- get.title.addenda
+ print.title.addenda
}
{ format.authors output
author format.key output
format.date "year" output.check
date.block
booktitle empty$ 'format.btitle 'format.title if$ "title" output.check
- get.title.addenda
+ print.title.addenda
}
if$
new.block
@@ -2185,10 +2201,10 @@ FUNCTION {unpublished}
new.block
howpublished "howpublished" bibinfo.check output
new.block
- bbl.unpublished output
- new.block
format.note output
new.block
+ bbl.unpublished output
+ new.block
format.eprint output
format.url output
fin.entry