summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/texmf-dist/bibtex/bst/rsc/angew-mc.bst5
-rw-r--r--Master/texmf-dist/bibtex/bst/rsc/angew.bst6
-rw-r--r--Master/texmf-dist/bibtex/bst/rsc/angewnat.bst1250
-rw-r--r--Master/texmf-dist/bibtex/bst/rsc/rsc-mc.bst6
-rw-r--r--Master/texmf-dist/bibtex/bst/rsc/rsc.bst7
-rw-r--r--Master/texmf-dist/bibtex/bst/rsc/rscnat.bst1170
-rw-r--r--Master/texmf-dist/doc/latex/rsc/README10
-rw-r--r--Master/texmf-dist/doc/latex/rsc/rsc-template.tex13
-rw-r--r--Master/texmf-dist/doc/latex/rsc/rsc.pdfbin163772 -> 120766 bytes
-rw-r--r--Master/texmf-dist/source/latex/rsc/rsc.dtx1657
-rw-r--r--Master/texmf-dist/source/latex/rsc/rsc.ins4
-rw-r--r--Master/texmf-dist/tex/latex/rsc/rsc.sty146
12 files changed, 3225 insertions, 1049 deletions
diff --git a/Master/texmf-dist/bibtex/bst/rsc/angew-mc.bst b/Master/texmf-dist/bibtex/bst/rsc/angew-mc.bst
index dd9ba9be909..c8838f5b503 100644
--- a/Master/texmf-dist/bibtex/bst/rsc/angew-mc.bst
+++ b/Master/texmf-dist/bibtex/bst/rsc/angew-mc.bst
@@ -8,11 +8,12 @@
%% ----------------------------------------------------------------
%% The rsc package - BibTeX and macro support for Royal Society
%% of Chemistry and Wiley chemistry articles
-%% Maintained by Joseph A. Wright
+%% Maintained by Joseph Wright
%% E-mail: joseph.wright@morningstar2.co.uk
%% Released under the GNU General Public License
%% See http://www.gnu.org/licenses/gpl.txt
%% ----------------------------------------------------------------
+
ENTRY
{ address
author
@@ -112,6 +113,7 @@ FUNCTION {fin.entry}
"\relax" write$
}
+
FUNCTION {not}
{ { #0 }
{ #1 }
@@ -596,7 +598,6 @@ FUNCTION {format.pages}
if$
}
-
FUNCTION {format.pages.required}
{ pages empty$
{ ""
diff --git a/Master/texmf-dist/bibtex/bst/rsc/angew.bst b/Master/texmf-dist/bibtex/bst/rsc/angew.bst
index e27e111e04b..459ffa42129 100644
--- a/Master/texmf-dist/bibtex/bst/rsc/angew.bst
+++ b/Master/texmf-dist/bibtex/bst/rsc/angew.bst
@@ -8,11 +8,12 @@
%% ----------------------------------------------------------------
%% The rsc package - BibTeX and macro support for Royal Society
%% of Chemistry and Wiley chemistry articles
-%% Maintained by Joseph A. Wright
+%% Maintained by Joseph Wright
%% E-mail: joseph.wright@morningstar2.co.uk
%% Released under the GNU General Public License
%% See http://www.gnu.org/licenses/gpl.txt
%% ----------------------------------------------------------------
+
ENTRY
{ address
author
@@ -110,6 +111,8 @@ FUNCTION {fin.entry}
write$
newline$
}
+
+
FUNCTION {not}
{ { #0 }
{ #1 }
@@ -594,7 +597,6 @@ FUNCTION {format.pages}
if$
}
-
FUNCTION {format.pages.required}
{ pages empty$
{ ""
diff --git a/Master/texmf-dist/bibtex/bst/rsc/angewnat.bst b/Master/texmf-dist/bibtex/bst/rsc/angewnat.bst
new file mode 100644
index 00000000000..0c34a1fc8ff
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/rsc/angewnat.bst
@@ -0,0 +1,1250 @@
+%%
+%% This is file `angewnat.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% rsc.dtx (with options: `bib,angew,nat')
+%% ----------------------------------------------------------------
+%% The rsc package - BibTeX and macro support for Royal Society
+%% of Chemistry and Wiley chemistry articles
+%% Maintained by Joseph Wright
+%% E-mail: joseph.wright@morningstar2.co.uk
+%% Released under the GNU General Public License
+%% See http://www.gnu.org/licenses/gpl.txt
+%% ----------------------------------------------------------------
+
+ENTRY
+ { address
+ author
+ booktitle
+ chapter
+ doi
+ edition
+ editor
+ howpublished
+ institution
+ journal
+ key
+ note
+ number
+ organization
+ pages
+ publisher
+ school
+ series
+ title
+ type
+ volume
+ year
+ }
+ {}
+ { label
+ extra.label
+ short.list
+ }
+
+INTEGERS { output.state before.all mid.sentence after.sentence }
+INTEGERS { after.block after.item author.or.editor }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+ #1 'mid.sentence :=
+ #2 'after.sentence :=
+ #3 'after.block :=
+ #4 'after.item :=
+}
+
+FUNCTION {add.comma}
+{ ", " * }
+
+STRINGS { s t }
+
+FUNCTION {output.nonnull}
+{ 's :=
+ output.state mid.sentence =
+ { add.comma write$ }
+ { output.state after.block =
+ { add.comma write$
+ newline$
+ "\newblock " write$
+ }
+ { output.state before.all =
+ 'write$
+ { output.state after.item =
+ { " " * write$ }
+ { add.period$ " " * write$ }
+ if$
+ }
+ if$
+ }
+ if$
+ mid.sentence 'output.state :=
+ }
+ if$
+ s
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+ 'pop$
+ 'output.nonnull
+ if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+ duplicate$ empty$
+ { pop$ "Empty " t * " in " * cite$ * warning$ }
+ 'output.nonnull
+ if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+ write$
+ newline$
+}
+
+
+FUNCTION {not}
+{ { #0 }
+ { #1 }
+ if$
+}
+
+FUNCTION {and}
+{ 'skip$
+ { pop$ #0 }
+ if$
+}
+
+FUNCTION {or}
+{ { pop$ #1 }
+ 'skip$
+ if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+ { pop$ "" }
+ 'skip$
+ if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+ { pop$ "" }
+ { "\emph{" swap$ * "}" * }
+ if$
+}
+
+FUNCTION {boldface}
+{ duplicate$ empty$
+ { pop$ "" }
+ { "\textbf{" swap$ * "}" * }
+ if$
+}
+
+FUNCTION {paren}
+{ duplicate$ empty$
+ { pop$ "" }
+ { "(" swap$ * ")" * }
+ if$
+}
+
+FUNCTION {bbl.and}
+{ "and" }
+
+FUNCTION {bbl.chapter}
+{ "Chapter" }
+
+FUNCTION {bbl.editor}
+{ "Ed.:" }
+
+FUNCTION {bbl.editors}
+{ "Eds.:" }
+
+FUNCTION {bbl.edition}
+{ "ed." }
+
+FUNCTION {bbl.etal}
+{ "et~al." emphasize }
+
+FUNCTION {bbl.in}
+{ "in" }
+
+FUNCTION {bbl.inpress}
+{ "in press" }
+
+FUNCTION {bbl.msc}
+{ "MSc thesis" }
+
+FUNCTION {bbl.page}
+{ "p." }
+
+FUNCTION {bbl.pages}
+{ "pp." }
+
+FUNCTION {bbl.phd}
+{ "PhD thesis" }
+
+FUNCTION {bbl.submitted}
+{ "submitted for publication" }
+
+FUNCTION {bbl.techreport}
+{ "Technical Report" }
+
+FUNCTION {bbl.volume}
+{ "Vol." }
+
+FUNCTION {bbl.first}
+{ "1st" }
+
+FUNCTION {bbl.second}
+{ "2nd" }
+
+FUNCTION {bbl.third}
+{ "3rd" }
+
+FUNCTION {bbl.fourth}
+{ "4th" }
+
+FUNCTION {bbl.fifth}
+{ "5th" }
+
+FUNCTION {bbl.st}
+{ "st" }
+
+FUNCTION {bbl.nd}
+{ "nd" }
+
+FUNCTION {bbl.rd}
+{ "rd" }
+
+FUNCTION {bbl.th}
+{ "th" }
+
+FUNCTION {eng.ord}
+{ duplicate$ "1" swap$ *
+ #-2 #1 substring$ "1" =
+ { bbl.th * }
+ { duplicate$ #-1 #1 substring$
+ duplicate$ "1" =
+ { pop$ bbl.st * }
+ { duplicate$ "2" =
+ { pop$ bbl.nd * }
+ { "3" =
+ { bbl.rd * }
+ { bbl.th * }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+}
+
+INTEGERS{ l }
+
+FUNCTION{string.length}
+{ #1 'l :=
+ { duplicate$ duplicate$ #1 l substring$ = not }
+ { l #1 + 'l := }
+ while$
+ pop$ l
+}
+
+STRINGS{replace find text}
+
+INTEGERS{find_length}
+
+FUNCTION{find.replace}
+{ 'replace :=
+ 'find :=
+ 'text :=
+ find string.length 'find_length :=
+ ""
+ { text empty$ not }
+ { text #1 find_length substring$ find =
+ { replace *
+ text #1 find_length + global.max$ substring$ 'text :=
+ }
+ { text #1 #1 substring$ *
+ text #2 global.max$ substring$ 'text :=
+ }
+ if$
+ }
+ while$
+}
+
+FUNCTION{is.a.digit}
+{ duplicate$ "" =
+ {pop$ #0}
+ {chr.to.int$ #48 - duplicate$
+ #0 < swap$ #9 > or not}
+ if$
+}
+
+FUNCTION{is.a.number}
+{
+ { duplicate$ #1 #1 substring$ is.a.digit }
+ {#2 global.max$ substring$}
+ while$
+ "" =
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+ "" 's :=
+ { t empty$ not }
+ { t #1 #1 substring$
+ t #2 global.max$ substring$ 't :=
+ duplicate$ is.a.number
+ { s swap$ * 's := }
+ { pop$ "" 't := }
+ if$
+ }
+ while$
+ s empty$
+ 'skip$
+ { pop$ s }
+ if$
+}
+
+FUNCTION {bibinfo.check}
+{ swap$
+ duplicate$ missing$
+ { pop$ pop$
+ ""
+ }
+ { duplicate$ empty$
+ {
+ swap$ pop$
+ }
+ { swap$
+ pop$
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {convert.edition}
+{ extract.num "l" change.case$ 's :=
+ s "first" = s "1" = or
+ { bbl.first 't := }
+ { s "second" = s "2" = or
+ { bbl.second 't := }
+ { s "third" = s "3" = or
+ { bbl.third 't := }
+ { s "fourth" = s "4" = or
+ { bbl.fourth 't := }
+ { s "fifth" = s "5" = or
+ { bbl.fifth 't := }
+ { s #1 #1 substring$ is.a.number
+ { s eng.ord 't := }
+ { edition 't := }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+ t
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+ { "~" }
+ { " " }
+ if$
+ swap$ * *
+}
+
+FUNCTION {space.connect}
+{ " " swap$ * * }
+
+INTEGERS { nameptr namesleft numnames }
+
+FUNCTION {format.names}
+{ 's :=
+ #1 'nameptr :=
+ s num.names$ 'numnames :=
+ numnames 'namesleft :=
+ { namesleft #0 > }
+ { s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
+ nameptr #1 >
+ { namesleft #1 >
+ { add.comma t * }
+ { numnames #2 >
+ { "" * }
+ 'skip$
+ if$
+ t "others" =
+ { bbl.etal space.connect }
+ { add.comma t * }
+ if$
+ }
+ if$
+ }
+ 't
+ if$
+ nameptr #1 + 'nameptr :=
+ namesleft #1 - 'namesleft :=
+ }
+ while$
+}
+
+FUNCTION {format.authors}
+{ author empty$
+ { "" }
+ { #1 'author.or.editor :=
+ author format.names }
+ if$
+}
+
+FUNCTION {strip.comma}
+{ duplicate$
+ string.length 'find_length :=
+ duplicate$
+ find_length #1 - #1 substring$
+ "," =
+ { #1 find_length #2 - substring$
+ " " *
+ }
+ 'skip$
+ if$
+}
+
+FUNCTION {format.editors}
+{ editor empty$
+ { "" }
+ { #2 'author.or.editor :=
+ strip.comma
+ editor num.names$ #1 >
+ { bbl.editors }
+ { bbl.editor }
+ if$
+ " " *
+ editor format.names * paren
+ }
+ if$
+}
+
+FUNCTION {n.separate.multi}
+{ 't :=
+ ""
+ #0 'numnames :=
+ t text.length$ #4 > t is.a.number and
+ {
+ { t empty$ not }
+ { t #-1 #1 substring$ is.a.number
+ { numnames #1 + 'numnames := }
+ { #0 'numnames := }
+ if$
+ t #-1 #1 substring$ swap$ *
+ t #-2 global.max$ substring$ 't :=
+ numnames #4 =
+ { duplicate$ #1 #1 substring$ swap$
+ #2 global.max$ substring$
+ "\," swap$ * *
+ #1 'numnames :=
+ }
+ 'skip$
+ if$
+ }
+ while$
+ }
+ { t swap$ * }
+ if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+ { "" }
+ { bbl.volume volume tie.or.space.connect }
+ if$
+}
+
+FUNCTION {format.title.noemph}
+{ 't :=
+ t empty$
+ { "" }
+ { t }
+ if$
+}
+
+FUNCTION {format.title}
+{ 't :=
+ t empty$
+ { "" }
+ { t emphasize }
+ if$
+}
+
+FUNCTION {format.title.vol}
+{ 't :=
+ t empty$
+ { "" }
+ { t emphasize }
+ if$
+ volume empty$
+ 'skip$
+ { format.bvolume emphasize
+ swap$ add.comma swap$ *
+ }
+ if$
+ }
+
+FUNCTION {format.full.names}
+{'s :=
+ #1 'nameptr :=
+ s num.names$ 'numnames :=
+ numnames 'namesleft :=
+ { namesleft #0 > }
+ { s nameptr
+ "{vv~}{ll}" format.name$ 't :=
+ nameptr #1 >
+ {
+ namesleft #1 >
+ { ", " * t * }
+ {
+ numnames #2 >
+ { "," * }
+ 'skip$
+ if$
+ t "others" =
+ { bbl.etal * }
+ { bbl.and space.connect t space.connect }
+ if$
+ }
+ if$
+ }
+ 't
+ if$
+ nameptr #1 + 'nameptr :=
+ namesleft #1 - 'namesleft :=
+ }
+ while$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+ { editor empty$
+ { "" }
+ { editor format.full.names }
+ if$
+ }
+ { author format.full.names }
+ if$
+}
+
+FUNCTION {author.full}
+{ author empty$
+ { "" }
+ { author format.full.names }
+ if$
+}
+
+FUNCTION {editor.full}
+{ editor empty$
+ { "" }
+ { editor format.full.names }
+ if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+ type$ "inbook" =
+ or
+ 'author.editor.full
+ { type$ "proceedings" =
+ 'editor.full
+ 'author.full
+ if$
+ }
+ if$
+}
+
+FUNCTION {output.bibitem} { newline$
+ "\bibitem[" write$
+ label write$
+ ")" make.full.names duplicate$ short.list =
+ { pop$ }
+ { * }
+ if$
+ "]{" * write$
+ cite$ write$
+ "}" write$
+ newline$
+ ""
+ before.all 'output.state :=
+}
+
+FUNCTION {n.dashify} { 't :=
+ ""
+ { t empty$ not }
+ { t #1 #1 substring$ "-" =
+ { t #1 #2 substring$ "--" = not
+ { "--" *
+ t #2 global.max$ substring$ 't :=
+ }
+ { { t #1 #1 substring$ "-" = }
+ { "-" *
+ t #2 global.max$ substring$ 't :=
+ }
+ while$
+ }
+ if$
+ }
+ { t #1 #1 substring$ *
+ t #2 global.max$ substring$ 't :=
+ }
+ if$
+ }
+ while$
+}
+
+FUNCTION {format.date}
+{ year empty$
+ { "" }
+ { year boldface }
+ if$
+}
+
+FUNCTION {format.bdate}
+{ year empty$
+ { "There's no year in " cite$ * warning$ }
+ { year boldface }
+ if$
+}
+
+FUNCTION {either.or.check}
+{ empty$
+ 'pop$
+ { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
+ if$
+}
+
+FUNCTION {format.edition}
+{ edition duplicate$ empty$
+ 'skip$
+ { convert.edition
+ bbl.edition bibinfo.check
+ " " * bbl.edition *
+ }
+ if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+ #0 'multiresult :=
+ { multiresult not
+ t empty$ not
+ and
+ }
+ { t #1 #1 substring$
+ duplicate$ "-" =
+ swap$ duplicate$ "," =
+ swap$ "+" =
+ or or
+ { #1 'multiresult := }
+ { t #2 global.max$ substring$ 't := }
+ if$
+ }
+ while$
+ multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+ { "" }
+ { pages multi.page.check
+ { bbl.pages pages n.dashify tie.or.space.connect }
+ { bbl.page pages tie.or.space.connect }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.pages.required}
+{ pages empty$
+ { ""
+ "There are no page numbers for " cite$ * warning$
+ output
+ }
+ { pages multi.page.check
+ { bbl.pages pages n.dashify tie.or.space.connect }
+ { bbl.page pages tie.or.space.connect }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.pages.nopp}
+{ pages empty$
+ { ""
+ "There are no page numbers for " cite$ * warning$
+ output
+ }
+ { pages multi.page.check
+ { pages n.dashify space.connect }
+ { pages space.connect }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.pages.patent}
+{ pages empty$
+ { "There is no patent number for " cite$ * warning$ }
+ { pages multi.page.check
+ { pages n.dashify }
+ { pages }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.vol.pages}
+{ volume emphasize field.or.null
+ duplicate$ empty$
+ { pop$ format.pages.required }
+ { add.comma pages n.dashify * }
+ if$
+}
+
+FUNCTION {format.chapter.pages}
+{ chapter empty$
+ 'format.pages
+ { type empty$
+ { bbl.chapter }
+ { type "l" change.case$ }
+ if$
+ chapter tie.or.space.connect
+ pages empty$
+ 'skip$
+ { add.comma format.pages * }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.title.in}
+{ 's :=
+ after.item 'output.state :=
+ s empty$
+ { "" }
+ { editor empty$
+ { bbl.in s format.title space.connect }
+ { bbl.in s format.title space.connect
+ add.comma format.editors *
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.title.vol.in}
+{ 's :=
+ after.item 'output.state :=
+ s empty$
+ { "" }
+ { editor empty$
+ { bbl.in s format.title.vol space.connect }
+ { bbl.in s format.title.vol space.connect
+ add.comma format.editors *
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.pub.address}
+{ publisher empty$
+ { "" }
+ { address empty$
+ { publisher }
+ { publisher add.comma address *}
+ if$
+ }
+ if$
+}
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+ year empty$ note empty$
+ and and and and
+ { "all relevant fields are empty in " cite$ * warning$ }
+ 'skip$
+ if$
+}
+
+FUNCTION {empty.doi.note}
+{ doi empty$ note empty$ and
+ { "Need either a note or DOI for " cite$ * warning$ }
+ 'skip$
+ if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+ 'skip$
+ { pop$
+ type emphasize
+ }
+ if$
+}
+
+FUNCTION {article}
+{ output.bibitem
+ format.authors "author" output.check
+ journal "," "" find.replace emphasize
+ "journal" output.check
+ after.item 'output.state :=
+ format.date "year" output.check
+ volume empty$
+ { ""
+ format.pages.nopp output
+ }
+ { format.vol.pages output }
+ if$
+ fin.entry
+}
+
+FUNCTION {book}
+{ output.bibitem
+ author empty$
+ { title format.title.vol "title" output.check
+ editor empty$
+ { "Need either an author or editor for " cite$ * warning$ }
+ { "" format.editors * "editor" output.check }
+ if$
+ }
+ { format.authors output
+ "author and editor" editor either.or.check
+ title format.title.vol "title" output.check
+ }
+ if$
+ format.pub.address "publisher" output.check
+ format.edition output
+ format.bdate "year" output.check
+ pages empty$
+ 'skip$
+ { format.pages output }
+ if$
+ fin.entry
+}
+
+FUNCTION {booklet}
+{ output.bibitem
+ format.authors output
+ title format.title "title" output.check
+ howpublished output
+ address output
+ format.date output
+ fin.entry
+}
+
+FUNCTION {inbook}
+{ output.bibitem
+ author empty$
+ { title format.title.vol "title" output.check
+ editor empty$
+ { "Need at least an author or an editor for " cite$ * warning$ }
+ { "" format.editors * "editor" output.check }
+ if$
+ }
+ { format.authors output
+ title format.title.vol.in "title" output.check
+ }
+ if$
+ format.pub.address "publisher" output.check
+ format.edition output
+ format.bdate "year" output.check
+ format.chapter.pages "chapter and pages" output.check
+ fin.entry
+}
+
+FUNCTION {incollection}
+{ output.bibitem
+ author empty$
+ { booktitle format.title.vol "booktitle" output.check
+ editor empty$
+ { "Need at least an author or an editor for " cite$ * warning$ }
+ { "" format.editors * "editor" output.check }
+ if$
+ }
+ { format.authors output
+ booktitle format.title.vol.in "booktitle" output.check
+ }
+ if$
+ format.pub.address "publisher" output.check
+ format.edition output
+ format.bdate "year" output.check
+ format.chapter.pages "chapter and pages" output.check
+ fin.entry
+}
+
+FUNCTION {inpress}
+{ output.bibitem
+ format.authors "author" output.check
+ journal emphasize "journal" output.check
+ bbl.inpress output
+ fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+ format.authors "author" output.check
+ booktitle format.title "booktitle" output.check
+ address output
+ format.date "year" output.check
+ pages empty$
+ 'skip$
+ { format.pages output }
+ if$
+ fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+ author empty$
+ { organization empty$
+ 'skip$
+ { organization output
+ address output
+ }
+ if$
+ }
+ { format.authors output }
+ if$
+ title format.title.noemph "title" output.check
+ author empty$
+ { organization empty$
+ { address output }
+ 'skip$
+ if$
+ }
+ { organization output
+ address output
+ }
+ if$
+ format.edition output
+ format.date output
+ fin.entry
+}
+
+FUNCTION {mastersthesis}
+{ output.bibitem
+ format.authors "author" output.check
+ bbl.msc format.thesis.type output
+ school "school" output.check
+ address output
+ format.date "year" output.check
+ fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+ format.authors output
+ title format.title output
+ howpublished output
+ format.date output
+ note output
+ fin.entry
+ empty.misc.check
+}
+
+FUNCTION {patent}
+{ output.bibitem
+ organization empty$
+ { format.authors "author and organization" output.check }
+ { author empty$
+ { organization }
+ { format.authors organization paren space.connect }
+ if$
+ "author and organization" output.check
+ }
+ if$
+ journal emphasize "journal" output.check
+ format.pages.patent "pages" output.check
+ format.date "year" output.check
+ fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+ format.authors "author" output.check
+ bbl.phd format.thesis.type output
+ school "school" output.check
+ address output
+ format.date "year" output.check
+ fin.entry
+}
+
+FUNCTION {proceedings}
+{ output.bibitem
+ title format.title "title" output.check
+ address output
+ format.date "year" output.check
+ pages empty$
+ 'skip$
+ { format.pages output }
+ if$
+ fin.entry
+}
+
+FUNCTION {remark}
+{ output.bibitem
+ note "note" output.check
+ fin.entry
+}
+
+FUNCTION {submitted}
+{ output.bibitem
+ format.authors "author" output.check
+ bbl.submitted output
+ fin.entry
+}
+
+FUNCTION {techreport}
+{ output.bibitem
+ format.authors "author" output.check
+ title format.title "title" output.check
+ institution
+ type empty$
+ 'bbl.techreport
+ 'type
+ if$
+ space.connect
+ number empty$
+ { "t" change.case$ }
+ { number tie.or.space.connect }
+ if$
+ output
+ format.pub.address output
+ format.date "year" output.check
+ fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+ format.authors "author" output.check
+ journal empty$
+ 'skip$
+ { journal emphasize "journal" output.check }
+ if$
+ doi empty$
+ { note output }
+ { "DOI" doi tie.or.space.connect output }
+ if$
+ fin.entry
+ empty.doi.note
+}
+
+FUNCTION {conference} {inproceedings}
+
+FUNCTION {other} {patent}
+
+FUNCTION {default.type} {misc}
+
+MACRO {jan} {"January"}
+MACRO {feb} {"February"}
+MACRO {mar} {"March"}
+MACRO {apr} {"April"}
+MACRO {may} {"May"}
+MACRO {jun} {"June"}
+MACRO {jul} {"July"}
+MACRO {aug} {"August"}
+MACRO {sep} {"September"}
+MACRO {oct} {"October"}
+MACRO {nov} {"November"}
+MACRO {dec} {"December"}
+
+READ
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+ 'len :=
+ s #1 len substring$ =
+ { s len #1 + global.max$ substring$ }
+ 's
+ if$
+}
+
+FUNCTION {format.lab.names}
+{ 's :=
+ s #1 "{vv~}{ll}" format.name$
+ s num.names$ duplicate$
+ #2 >
+ { pop$ bbl.etal space.connect }
+ { #2 <
+ 'skip$
+ { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+ { bbl.etal space.connect }
+ { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
+ if$
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {author.key.label}
+{ author empty$
+ { key empty$
+ { cite$ #1 #3 substring$ }
+ 'key
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+ { editor empty$
+ { key empty$
+ { cite$ #1 #3 substring$ }
+ 'key
+ if$
+ }
+ { editor format.lab.names }
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+ { key empty$
+ { organization empty$
+ { cite$ #1 #3 substring$ }
+ { "The " #4 organization chop.word #3 text.prefix$ }
+ if$
+ }
+ 'key
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+ { key empty$
+ { organization empty$
+ { cite$ #1 #3 substring$ }
+ { "The " #4 organization chop.word #3 text.prefix$ }
+ if$
+ }
+ 'key
+ if$
+ }
+ { editor format.lab.names }
+ if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+ type$ "inbook" =
+ or
+ 'author.editor.key.label
+ { type$ "proceedings" =
+ 'editor.key.organization.label
+ { type$ "manual" =
+ 'author.key.organization.label
+ 'author.key.label
+ if$
+ }
+ if$
+ }
+ if$
+ 'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+ short.list
+ "("
+ *
+ year duplicate$ empty$
+ short.list key field.or.null = or
+ { pop$ "" }
+ 'skip$
+ if$
+ *
+ 'label :=
+}
+
+ITERATE {calc.label}
+
+STRINGS { longest.label last.label next.extra }
+
+INTEGERS { longest.label.width last.extra.num number.label }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+ #0 int.to.chr$ 'last.label :=
+ "" 'next.extra :=
+ #0 'longest.label.width :=
+ #0 'last.extra.num :=
+ #0 'number.label :=
+}
+
+FUNCTION {forward.pass}
+{ last.label label =
+ { last.extra.num #1 + 'last.extra.num :=
+ last.extra.num int.to.chr$ 'extra.label :=
+ }
+ { "a" chr.to.int$ 'last.extra.num :=
+ "" 'extra.label :=
+ label 'last.label :=
+ }
+ if$
+ number.label #1 + 'number.label :=
+}
+
+EXECUTE {initialize.longest.label}
+
+ITERATE {forward.pass}
+
+FUNCTION {begin.bib}
+{ preamble$ empty$
+ 'skip$
+ { preamble$ write$ newline$ }
+ if$
+ "\begin{thebibliography}{" number.label int.to.str$ * "}" *
+ write$ newline$
+ "\providecommand{\natexlab}[1]{#1}"
+ write$ newline$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+ "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+%%
+%%
+%% End of file `angewnat.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/rsc/rsc-mc.bst b/Master/texmf-dist/bibtex/bst/rsc/rsc-mc.bst
index db2b025c32e..35bac3725ca 100644
--- a/Master/texmf-dist/bibtex/bst/rsc/rsc-mc.bst
+++ b/Master/texmf-dist/bibtex/bst/rsc/rsc-mc.bst
@@ -8,11 +8,12 @@
%% ----------------------------------------------------------------
%% The rsc package - BibTeX and macro support for Royal Society
%% of Chemistry and Wiley chemistry articles
-%% Maintained by Joseph A. Wright
+%% Maintained by Joseph Wright
%% E-mail: joseph.wright@morningstar2.co.uk
%% Released under the GNU General Public License
%% See http://www.gnu.org/licenses/gpl.txt
%% ----------------------------------------------------------------
+
ENTRY
{ address
author
@@ -112,6 +113,7 @@ FUNCTION {fin.entry}
"\relax" write$
}
+
FUNCTION {not}
{ { #0 }
{ #1 }
@@ -167,6 +169,7 @@ FUNCTION {bbl.chapter}
FUNCTION {bbl.editor}
{ "ed." }
+
FUNCTION {bbl.edition}
{ "edn." }
@@ -528,7 +531,6 @@ FUNCTION {format.pages}
if$
}
-
FUNCTION {format.pages.required}
{ pages empty$
{ ""
diff --git a/Master/texmf-dist/bibtex/bst/rsc/rsc.bst b/Master/texmf-dist/bibtex/bst/rsc/rsc.bst
index 012d9609d01..b7f65ed489b 100644
--- a/Master/texmf-dist/bibtex/bst/rsc/rsc.bst
+++ b/Master/texmf-dist/bibtex/bst/rsc/rsc.bst
@@ -8,11 +8,12 @@
%% ----------------------------------------------------------------
%% The rsc package - BibTeX and macro support for Royal Society
%% of Chemistry and Wiley chemistry articles
-%% Maintained by Joseph A. Wright
+%% Maintained by Joseph Wright
%% E-mail: joseph.wright@morningstar2.co.uk
%% Released under the GNU General Public License
%% See http://www.gnu.org/licenses/gpl.txt
%% ----------------------------------------------------------------
+
ENTRY
{ address
author
@@ -110,6 +111,8 @@ FUNCTION {fin.entry}
write$
newline$
}
+
+
FUNCTION {not}
{ { #0 }
{ #1 }
@@ -165,6 +168,7 @@ FUNCTION {bbl.chapter}
FUNCTION {bbl.editor}
{ "ed." }
+
FUNCTION {bbl.edition}
{ "edn." }
@@ -526,7 +530,6 @@ FUNCTION {format.pages}
if$
}
-
FUNCTION {format.pages.required}
{ pages empty$
{ ""
diff --git a/Master/texmf-dist/bibtex/bst/rsc/rscnat.bst b/Master/texmf-dist/bibtex/bst/rsc/rscnat.bst
new file mode 100644
index 00000000000..caa6b896eec
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/rsc/rscnat.bst
@@ -0,0 +1,1170 @@
+%%
+%% This is file `rscnat.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% rsc.dtx (with options: `bib,rsc,nat')
+%% ----------------------------------------------------------------
+%% The rsc package - BibTeX and macro support for Royal Society
+%% of Chemistry and Wiley chemistry articles
+%% Maintained by Joseph Wright
+%% E-mail: joseph.wright@morningstar2.co.uk
+%% Released under the GNU General Public License
+%% See http://www.gnu.org/licenses/gpl.txt
+%% ----------------------------------------------------------------
+
+ENTRY
+ { address
+ author
+ booktitle
+ chapter
+ doi
+ edition
+ editor
+ howpublished
+ institution
+ journal
+ key
+ note
+ number
+ organization
+ pages
+ publisher
+ school
+ series
+ title
+ type
+ volume
+ year
+ }
+ {}
+ { label
+ extra.label
+ short.list
+ }
+
+INTEGERS { output.state before.all mid.sentence after.sentence }
+INTEGERS { after.block after.item author.or.editor }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+ #1 'mid.sentence :=
+ #2 'after.sentence :=
+ #3 'after.block :=
+ #4 'after.item :=
+}
+
+FUNCTION {add.comma}
+{ ", " * }
+
+STRINGS { s t }
+
+FUNCTION {output.nonnull}
+{ 's :=
+ output.state mid.sentence =
+ { add.comma write$ }
+ { output.state after.block =
+ { add.comma write$
+ newline$
+ "\newblock " write$
+ }
+ { output.state before.all =
+ 'write$
+ { output.state after.item =
+ { " " * write$ }
+ { add.period$ " " * write$ }
+ if$
+ }
+ if$
+ }
+ if$
+ mid.sentence 'output.state :=
+ }
+ if$
+ s
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+ 'pop$
+ 'output.nonnull
+ if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+ duplicate$ empty$
+ { pop$ "Empty " t * " in " * cite$ * warning$ }
+ 'output.nonnull
+ if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+ write$
+ newline$
+}
+
+
+FUNCTION {not}
+{ { #0 }
+ { #1 }
+ if$
+}
+
+FUNCTION {and}
+{ 'skip$
+ { pop$ #0 }
+ if$
+}
+
+FUNCTION {or}
+{ { pop$ #1 }
+ 'skip$
+ if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+ { pop$ "" }
+ 'skip$
+ if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+ { pop$ "" }
+ { "\emph{" swap$ * "}" * }
+ if$
+}
+
+FUNCTION {boldface}
+{ duplicate$ empty$
+ { pop$ "" }
+ { "\textbf{" swap$ * "}" * }
+ if$
+}
+
+FUNCTION {paren}
+{ duplicate$ empty$
+ { pop$ "" }
+ { "(" swap$ * ")" * }
+ if$
+}
+
+FUNCTION {bbl.and}
+{ "and" }
+
+FUNCTION {bbl.chapter}
+{ "ch." }
+
+FUNCTION {bbl.editor}
+{ "ed." }
+
+
+FUNCTION {bbl.edition}
+{ "edn." }
+
+FUNCTION {bbl.etal}
+{ "et~al." emphasize }
+
+FUNCTION {bbl.in}
+{ "in" }
+
+FUNCTION {bbl.inpress}
+{ "in press" }
+
+FUNCTION {bbl.msc}
+{ "M.Sc. thesis" }
+
+FUNCTION {bbl.page}
+{ "p." }
+
+FUNCTION {bbl.pages}
+{ "pp." }
+
+FUNCTION {bbl.phd}
+{ "Ph.D. thesis" }
+
+FUNCTION {bbl.submitted}
+{ "submitted for publication" }
+
+FUNCTION {bbl.techreport}
+{ "Technical Report" }
+
+FUNCTION {bbl.volume}
+{ "vol." }
+
+FUNCTION {bbl.first}
+{ "1st" }
+
+FUNCTION {bbl.second}
+{ "2nd" }
+
+FUNCTION {bbl.third}
+{ "3rd" }
+
+FUNCTION {bbl.fourth}
+{ "4th" }
+
+FUNCTION {bbl.fifth}
+{ "5th" }
+
+FUNCTION {bbl.st}
+{ "st" }
+
+FUNCTION {bbl.nd}
+{ "nd" }
+
+FUNCTION {bbl.rd}
+{ "rd" }
+
+FUNCTION {bbl.th}
+{ "th" }
+
+FUNCTION {eng.ord}
+{ duplicate$ "1" swap$ *
+ #-2 #1 substring$ "1" =
+ { bbl.th * }
+ { duplicate$ #-1 #1 substring$
+ duplicate$ "1" =
+ { pop$ bbl.st * }
+ { duplicate$ "2" =
+ { pop$ bbl.nd * }
+ { "3" =
+ { bbl.rd * }
+ { bbl.th * }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION{is.a.digit}
+{ duplicate$ "" =
+ {pop$ #0}
+ {chr.to.int$ #48 - duplicate$
+ #0 < swap$ #9 > or not}
+ if$
+}
+
+FUNCTION{is.a.number}
+{
+ { duplicate$ #1 #1 substring$ is.a.digit }
+ {#2 global.max$ substring$}
+ while$
+ "" =
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+ "" 's :=
+ { t empty$ not }
+ { t #1 #1 substring$
+ t #2 global.max$ substring$ 't :=
+ duplicate$ is.a.number
+ { s swap$ * 's := }
+ { pop$ "" 't := }
+ if$
+ }
+ while$
+ s empty$
+ 'skip$
+ { pop$ s }
+ if$
+}
+
+FUNCTION {bibinfo.check}
+{ swap$
+ duplicate$ missing$
+ { pop$ pop$
+ ""
+ }
+ { duplicate$ empty$
+ {
+ swap$ pop$
+ }
+ { swap$
+ pop$
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {convert.edition}
+{ extract.num "l" change.case$ 's :=
+ s "first" = s "1" = or
+ { bbl.first 't := }
+ { s "second" = s "2" = or
+ { bbl.second 't := }
+ { s "third" = s "3" = or
+ { bbl.third 't := }
+ { s "fourth" = s "4" = or
+ { bbl.fourth 't := }
+ { s "fifth" = s "5" = or
+ { bbl.fifth 't := }
+ { s #1 #1 substring$ is.a.number
+ { s eng.ord 't := }
+ { edition 't := }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+ t
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+ { "~" }
+ { " " }
+ if$
+ swap$ * *
+}
+
+FUNCTION {space.connect}
+{ " " swap$ * * }
+
+INTEGERS { nameptr namesleft numnames }
+
+FUNCTION {format.names}
+{ 's :=
+ #1 'nameptr :=
+ s num.names$ 'numnames :=
+ numnames 'namesleft :=
+ { namesleft #0 > }
+ { s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
+ nameptr #1 >
+ { namesleft #1 >
+ { add.comma t * }
+ { numnames #2 >
+ { "" * }
+ 'skip$
+ if$
+ t "others" =
+ { bbl.etal space.connect }
+ { bbl.and space.connect t space.connect }
+ if$
+ }
+ if$
+ }
+ 't
+ if$
+ nameptr #1 + 'nameptr :=
+ namesleft #1 - 'namesleft :=
+ }
+ while$
+}
+
+FUNCTION {format.authors}
+{ author empty$
+ { "" }
+ { #1 'author.or.editor :=
+ author format.names }
+ if$
+}
+
+FUNCTION {format.editors}
+{ editor empty$
+ { "" }
+ { #2 'author.or.editor :=
+ bbl.editor " " * *
+ editor format.names
+ }
+ if$
+}
+
+FUNCTION {n.separate.multi}
+{ 't :=
+ ""
+ #0 'numnames :=
+ t text.length$ #4 > t is.a.number and
+ {
+ { t empty$ not }
+ { t #-1 #1 substring$ is.a.number
+ { numnames #1 + 'numnames := }
+ { #0 'numnames := }
+ if$
+ t #-1 #1 substring$ swap$ *
+ t #-2 global.max$ substring$ 't :=
+ numnames #4 =
+ { duplicate$ #1 #1 substring$ swap$
+ #2 global.max$ substring$
+ "\," swap$ * *
+ #1 'numnames :=
+ }
+ 'skip$
+ if$
+ }
+ while$
+ }
+ { t swap$ * }
+ if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+ { "" }
+ { bbl.volume volume tie.or.space.connect }
+ if$
+}
+
+FUNCTION {format.title.noemph}
+{ 't :=
+ t empty$
+ { "" }
+ { t }
+ if$
+}
+
+FUNCTION {format.title}
+{ 't :=
+ t empty$
+ { "" }
+ { t emphasize }
+ if$
+}
+
+FUNCTION {format.full.names}
+{'s :=
+ #1 'nameptr :=
+ s num.names$ 'numnames :=
+ numnames 'namesleft :=
+ { namesleft #0 > }
+ { s nameptr
+ "{vv~}{ll}" format.name$ 't :=
+ nameptr #1 >
+ {
+ namesleft #1 >
+ { ", " * t * }
+ {
+ numnames #2 >
+ { "," * }
+ 'skip$
+ if$
+ t "others" =
+ { bbl.etal * }
+ { bbl.and space.connect t space.connect }
+ if$
+ }
+ if$
+ }
+ 't
+ if$
+ nameptr #1 + 'nameptr :=
+ namesleft #1 - 'namesleft :=
+ }
+ while$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+ { editor empty$
+ { "" }
+ { editor format.full.names }
+ if$
+ }
+ { author format.full.names }
+ if$
+}
+
+FUNCTION {author.full}
+{ author empty$
+ { "" }
+ { author format.full.names }
+ if$
+}
+
+FUNCTION {editor.full}
+{ editor empty$
+ { "" }
+ { editor format.full.names }
+ if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+ type$ "inbook" =
+ or
+ 'author.editor.full
+ { type$ "proceedings" =
+ 'editor.full
+ 'author.full
+ if$
+ }
+ if$
+}
+
+FUNCTION {output.bibitem} { newline$
+ "\bibitem[" write$
+ label write$
+ ")" make.full.names duplicate$ short.list =
+ { pop$ }
+ { * }
+ if$
+ "]{" * write$
+ cite$ write$
+ "}" write$
+ newline$
+ ""
+ before.all 'output.state :=
+}
+
+FUNCTION {n.dashify} { 't :=
+ ""
+ { t empty$ not }
+ { t #1 #1 substring$ "-" =
+ { t #1 #2 substring$ "--" = not
+ { "--" *
+ t #2 global.max$ substring$ 't :=
+ }
+ { { t #1 #1 substring$ "-" = }
+ { "-" *
+ t #2 global.max$ substring$ 't :=
+ }
+ while$
+ }
+ if$
+ }
+ { t #1 #1 substring$ *
+ t #2 global.max$ substring$ 't :=
+ }
+ if$
+ }
+ while$
+}
+
+FUNCTION {format.date}
+{ year empty$
+ { "" }
+ 'year
+ if$
+}
+
+FUNCTION {format.bdate}
+{ year empty$
+ { "There's no year in " cite$ * warning$ }
+ 'year
+ if$
+}
+
+FUNCTION {either.or.check}
+{ empty$
+ 'pop$
+ { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
+ if$
+}
+
+FUNCTION {format.edition}
+{ edition duplicate$ empty$
+ 'skip$
+ { convert.edition
+ bbl.edition bibinfo.check
+ " " * bbl.edition *
+ }
+ if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+ #0 'multiresult :=
+ { multiresult not
+ t empty$ not
+ and
+ }
+ { t #1 #1 substring$
+ duplicate$ "-" =
+ swap$ duplicate$ "," =
+ swap$ "+" =
+ or or
+ { #1 'multiresult := }
+ { t #2 global.max$ substring$ 't := }
+ if$
+ }
+ while$
+ multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+ { "" }
+ { pages multi.page.check
+ { bbl.pages pages n.dashify tie.or.space.connect }
+ { bbl.page pages tie.or.space.connect }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.pages.required}
+{ pages empty$
+ { ""
+ "There are no page numbers for " cite$ * warning$
+ output
+ }
+ { pages multi.page.check
+ { bbl.pages pages n.dashify tie.or.space.connect }
+ { bbl.page pages tie.or.space.connect }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.pages.nopp}
+{ pages empty$
+ { ""
+ "There are no page numbers for " cite$ * warning$
+ output
+ }
+ { pages multi.page.check
+ { pages n.dashify space.connect }
+ { pages space.connect }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.pages.patent}
+{ pages empty$
+ { "There is no patent number for " cite$ * warning$ }
+ { pages multi.page.check
+ { pages n.dashify }
+ { pages n.separate.multi }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.vol.pages}
+{ volume boldface field.or.null
+ duplicate$ empty$
+ { pop$ format.pages.required }
+ { add.comma pages n.dashify * }
+ if$
+}
+
+FUNCTION {format.chapter.pages}
+{ chapter empty$
+ 'format.pages
+ { type empty$
+ { bbl.chapter }
+ { type "l" change.case$ }
+ if$
+ chapter tie.or.space.connect
+ pages empty$
+ 'skip$
+ { add.comma format.pages * }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.title.in}
+{ 's :=
+ s empty$
+ { "" }
+ { editor empty$
+ { bbl.in s format.title space.connect }
+ { bbl.in s format.title space.connect
+ add.comma format.editors *
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.pub.address}
+{ publisher empty$
+ { "" }
+ { address empty$
+ { publisher }
+ { publisher add.comma address *}
+ if$
+ }
+ if$
+}
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+ year empty$ note empty$
+ and and and and
+ { "all relevant fields are empty in " cite$ * warning$ }
+ 'skip$
+ if$
+}
+
+FUNCTION {empty.doi.note}
+{ doi empty$ note empty$ and
+ { "Need either a note or DOI for " cite$ * warning$ }
+ 'skip$
+ if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+ 'skip$
+ { pop$
+ type emphasize
+ }
+ if$
+}
+
+FUNCTION {article}
+{ output.bibitem
+ format.authors "author" output.check
+ journal emphasize "journal" output.check
+ format.date "year" output.check
+ volume empty$
+ { ""
+ format.pages.nopp output
+ }
+ { format.vol.pages output }
+ if$
+ fin.entry
+}
+
+FUNCTION {book}
+{ output.bibitem
+ author empty$
+ { title format.title "title" output.check
+ editor empty$
+ { "Need either an author or editor for " cite$ * warning$ }
+ { "" format.editors * "editor" output.check }
+ if$
+ }
+ { format.authors output
+ "author and editor" editor either.or.check
+ title format.title "title" output.check
+ }
+ if$
+ format.pub.address "publisher" output.check
+ format.edition output
+ format.bdate "year" output.check
+ format.bvolume output
+ pages empty$
+ 'skip$
+ { format.pages output }
+ if$
+ fin.entry
+}
+
+FUNCTION {booklet}
+{ output.bibitem
+ format.authors output
+ title format.title "title" output.check
+ howpublished output
+ address output
+ format.date output
+ fin.entry
+}
+
+FUNCTION {inbook}
+{ output.bibitem
+ author empty$
+ { title format.title "title" output.check
+ editor empty$
+ { "Need at least an author or an editor for " cite$ * warning$ }
+ { "" format.editors * "editor" output.check }
+ if$
+ }
+ { format.authors output
+ title format.title.in "title" output.check
+ }
+ if$
+ format.pub.address "publisher" output.check
+ format.edition output
+ format.bdate "year" output.check
+ format.bvolume output
+ format.chapter.pages "chapter and pages" output.check
+ fin.entry
+}
+
+FUNCTION {incollection}
+{ output.bibitem
+ author empty$
+ { booktitle format.title "booktitle" output.check
+ editor empty$
+ { "Need at least an author or an editor for " cite$ * warning$ }
+ { "" format.editors * "editor" output.check }
+ if$
+ }
+ { format.authors output
+ booktitle format.title.in "booktitle" output.check
+ }
+ if$
+ format.pub.address "publisher" output.check
+ format.edition output
+ format.bdate "year" output.check
+ format.bvolume output
+ format.chapter.pages "chapter and pages" output.check
+ fin.entry
+}
+
+FUNCTION {inpress}
+{ output.bibitem
+ format.authors "author" output.check
+ journal emphasize "journal" output.check
+ bbl.inpress output
+ fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+ format.authors "author" output.check
+ booktitle format.title.noemph "booktitle" output.check
+ address output
+ format.date "year" output.check
+ pages empty$
+ 'skip$
+ { format.pages output }
+ if$
+ fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+ author empty$
+ { organization empty$
+ 'skip$
+ { organization output
+ address output
+ }
+ if$
+ }
+ { format.authors output }
+ if$
+ title format.title "title" output.check
+ author empty$
+ { organization empty$
+ { address output }
+ 'skip$
+ if$
+ }
+ { organization output
+ address output
+ }
+ if$
+ format.edition output
+ format.date output
+ fin.entry
+}
+
+FUNCTION {mastersthesis}
+{ output.bibitem
+ format.authors "author" output.check
+ bbl.msc emphasize format.thesis.type output
+ school "school" output.check
+ address output
+ format.date "year" output.check
+ fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+ format.authors output
+ title format.title output
+ howpublished output
+ year output
+ note output
+ fin.entry
+ empty.misc.check
+}
+
+FUNCTION {patent}
+{ output.bibitem
+ organization empty$
+ { format.authors "author and organization" output.check }
+ { author empty$
+ { organization }
+ { format.authors organization paren space.connect }
+ if$
+ "author and organization" output.check
+ }
+ if$
+ journal emphasize "journal" output.check
+ format.pages.patent "pages" output.check
+ format.date "year" output.check
+ fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+ format.authors "author" output.check
+ bbl.phd emphasize format.thesis.type output
+ school "school" output.check
+ address output
+ format.date "year" output.check
+ fin.entry
+}
+
+FUNCTION {proceedings}
+{ output.bibitem
+ title format.title.noemph "title" output.check
+ address output
+ format.date "year" output.check
+ pages empty$
+ 'skip$
+ { format.pages output }
+ if$
+ fin.entry
+}
+
+FUNCTION {remark}
+{ output.bibitem
+ note "note" output.check
+ fin.entry
+}
+
+FUNCTION {submitted}
+{ output.bibitem
+ format.authors "author" output.check
+ bbl.submitted output
+ fin.entry
+}
+
+FUNCTION {techreport}
+{ output.bibitem
+ format.authors "author" output.check
+ title format.title "title" output.check
+ institution
+ type empty$
+ 'bbl.techreport
+ 'type
+ if$
+ space.connect
+ number empty$
+ { "t" change.case$ }
+ { number tie.or.space.connect }
+ if$
+ output
+ format.pub.address output
+ format.date "year" output.check
+ fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+ format.authors "author" output.check
+ journal empty$
+ 'skip$
+ { journal emphasize "journal" output.check }
+ if$
+ doi empty$
+ { note output }
+ { format.date output
+ "DOI:" doi tie.or.space.connect output
+ }
+ if$
+ fin.entry
+ empty.doi.note
+}
+
+FUNCTION {conference} {inproceedings}
+
+FUNCTION {other} {patent}
+
+FUNCTION {default.type} {misc}
+
+MACRO {jan} {"January"}
+MACRO {feb} {"February"}
+MACRO {mar} {"March"}
+MACRO {apr} {"April"}
+MACRO {may} {"May"}
+MACRO {jun} {"June"}
+MACRO {jul} {"July"}
+MACRO {aug} {"August"}
+MACRO {sep} {"September"}
+MACRO {oct} {"October"}
+MACRO {nov} {"November"}
+MACRO {dec} {"December"}
+
+READ
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+ 'len :=
+ s #1 len substring$ =
+ { s len #1 + global.max$ substring$ }
+ 's
+ if$
+}
+
+FUNCTION {format.lab.names}
+{ 's :=
+ s #1 "{vv~}{ll}" format.name$
+ s num.names$ duplicate$
+ #2 >
+ { pop$ bbl.etal space.connect }
+ { #2 <
+ 'skip$
+ { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+ { bbl.etal space.connect }
+ { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
+ if$
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {author.key.label}
+{ author empty$
+ { key empty$
+ { cite$ #1 #3 substring$ }
+ 'key
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+ { editor empty$
+ { key empty$
+ { cite$ #1 #3 substring$ }
+ 'key
+ if$
+ }
+ { editor format.lab.names }
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+ { key empty$
+ { organization empty$
+ { cite$ #1 #3 substring$ }
+ { "The " #4 organization chop.word #3 text.prefix$ }
+ if$
+ }
+ 'key
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+ { key empty$
+ { organization empty$
+ { cite$ #1 #3 substring$ }
+ { "The " #4 organization chop.word #3 text.prefix$ }
+ if$
+ }
+ 'key
+ if$
+ }
+ { editor format.lab.names }
+ if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+ type$ "inbook" =
+ or
+ 'author.editor.key.label
+ { type$ "proceedings" =
+ 'editor.key.organization.label
+ { type$ "manual" =
+ 'author.key.organization.label
+ 'author.key.label
+ if$
+ }
+ if$
+ }
+ if$
+ 'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+ short.list
+ "("
+ *
+ year duplicate$ empty$
+ short.list key field.or.null = or
+ { pop$ "" }
+ 'skip$
+ if$
+ *
+ 'label :=
+}
+
+ITERATE {calc.label}
+
+STRINGS { longest.label last.label next.extra }
+
+INTEGERS { longest.label.width last.extra.num number.label }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+ #0 int.to.chr$ 'last.label :=
+ "" 'next.extra :=
+ #0 'longest.label.width :=
+ #0 'last.extra.num :=
+ #0 'number.label :=
+}
+
+FUNCTION {forward.pass}
+{ last.label label =
+ { last.extra.num #1 + 'last.extra.num :=
+ last.extra.num int.to.chr$ 'extra.label :=
+ }
+ { "a" chr.to.int$ 'last.extra.num :=
+ "" 'extra.label :=
+ label 'last.label :=
+ }
+ if$
+ number.label #1 + 'number.label :=
+}
+
+EXECUTE {initialize.longest.label}
+
+ITERATE {forward.pass}
+
+FUNCTION {begin.bib}
+{ preamble$ empty$
+ 'skip$
+ { preamble$ write$ newline$ }
+ if$
+ "\begin{thebibliography}{" number.label int.to.str$ * "}" *
+ write$ newline$
+ "\providecommand{\natexlab}[1]{#1}"
+ write$ newline$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+ "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+%%
+%%
+%% End of file `rscnat.bst'.
diff --git a/Master/texmf-dist/doc/latex/rsc/README b/Master/texmf-dist/doc/latex/rsc/README
index bdd6cb499b1..c3dedec41f1 100644
--- a/Master/texmf-dist/doc/latex/rsc/README
+++ b/Master/texmf-dist/doc/latex/rsc/README
@@ -8,8 +8,8 @@ Released under the GNU General Public License
See http://www.gnu.org/licenses/gpl.txt
----------------------------------------------------------------
-The rsc package provides a BibTeX style in accordance with the
-requirements of the Royal Society of Chemistry. It was originally
-based on the file pccp.bst, but also implements a number of styles
-from the achemso package. It also provides a small number of
-chemistry-related macros. \ No newline at end of file
+The rsc package provides BibTeX style files to produce
+bibliographies in accordance with the guidelines of the
+Royal Society of Chemistry and Wiley chemistry-related
+journals. It also provides a small number of useful chemistry
+related functions.
diff --git a/Master/texmf-dist/doc/latex/rsc/rsc-template.tex b/Master/texmf-dist/doc/latex/rsc/rsc-template.tex
index c9e56e80920..8791197e9e7 100644
--- a/Master/texmf-dist/doc/latex/rsc/rsc-template.tex
+++ b/Master/texmf-dist/doc/latex/rsc/rsc-template.tex
@@ -8,20 +8,21 @@
%% ----------------------------------------------------------------
%% The rsc package - BibTeX and macro support for Royal Society
%% of Chemistry and Wiley chemistry articles
-%% Maintained by Joseph A. Wright
+%% Maintained by Joseph Wright
%% E-mail: joseph.wright@morningstar2.co.uk
%% Released under the GNU General Public License
%% See http://www.gnu.org/licenses/gpl.txt
%% ----------------------------------------------------------------
-\documentclass[12pt,a4paper]{article}
+
+\documentclass[a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage[english,UKenglish]{babel}
\usepackage[version=3]{mhchem}
-\usepackage{rsc} % Package options are angew, ch, fl and cl
-\usepackage{bpchem,mcite}
+\usepackage{rsc}
+\usepackage{mcite} % Pick one or the other
\begin{document}
-\bibliography{refs} % Change this to your reference database!
-\bibliographystyle{rsc} % Take your pick of reference style file
+\bibliography{refs} % Your reference database
+\bibliographystyle{rsc-mc} % Take your pick of styles
\end{document}
\endinput
%%
diff --git a/Master/texmf-dist/doc/latex/rsc/rsc.pdf b/Master/texmf-dist/doc/latex/rsc/rsc.pdf
index 33f2faac980..cc3a9a2a9d0 100644
--- a/Master/texmf-dist/doc/latex/rsc/rsc.pdf
+++ b/Master/texmf-dist/doc/latex/rsc/rsc.pdf
Binary files differ
diff --git a/Master/texmf-dist/source/latex/rsc/rsc.dtx b/Master/texmf-dist/source/latex/rsc/rsc.dtx
index c5a27526a28..961d7ac0036 100644
--- a/Master/texmf-dist/source/latex/rsc/rsc.dtx
+++ b/Master/texmf-dist/source/latex/rsc/rsc.dtx
@@ -1,32 +1,78 @@
-% \iffalse
-%<*driver>
-% ----------------------------------------------------------------
-% The rsc package - BibTeX and macro support for Royal Society
-% of Chemistry and Wiley chemistry articles
-% Maintained by Joseph A. Wright
-% E-mail: joseph.wright@morningstar2.co.uk
-% Released under the GNU General Public License
+% \iffalse meta-comment
+%
+% Copyright (C) 2006-2007 by
+% Joseph Wright <joseph.wright@morningstar2.co.uk>
+%
+% Released under the GNU General Public License v2
% See http://www.gnu.org/licenses/gpl.txt
-% ----------------------------------------------------------------
-\documentclass[a4paper]{ltxdoc}
+%
+% This work consists of the main source file rsc.dtx
+% and the derived files rsc.sty and rsc.pdf
+%
+%<*driver>
+\documentclass{ltxdoc}
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+%\OnlyDescription
\usepackage[T1]{fontenc}
\usepackage[english,UKenglish]{babel}
-\usepackage{rsc}
-\RecordChanges
-\OnlyDescription
-\GetFileInfo{rsc.sty}
-\title{The \textsf{rsc} package --- BibTeX styles and utilities for
- chemical documents\thanks{This file has version number \fileversion,
- last revised \filedate.}}
-\author{Joseph Wright\thanks{E-mail: joseph.wright@morningstar2.co.uk}}
-\date{\filedate}
+\usepackage{mathpazo,booktabs,array,url,graphicx,unitsdef,courier}
+\usepackage[scaled=0.95]{helvet}
+\usepackage[final]{microtype}
+\usepackage{\jobname}
\begin{document}
-\DocInput{rsc.dtx}
+ \DocInput{\jobname.dtx}
\end{document}
%</driver>
% \fi
-% \CheckSum{169}
-% \changes{v1.00}{2006/11/08}{Initial release of packaged rsc.bst}
+%
+% \CheckSum{183}
+%
+% \CharacterTable
+% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+% Digits \0\1\2\3\4\5\6\7\8\9
+% Exclamation \! Double quote \" Hash (number) \#
+% Dollar \$ Percent \% Ampersand \&
+% Acute accent \' Left paren \( Right paren \)
+% Asterisk \* Plus \+ Comma \,
+% Minus \- Point \. Solidus \/
+% Colon \: Semicolon \; Less than \<
+% Equals \= Greater than \> Question mark \?
+% Commercial at \@ Left bracket \[ Backslash \\
+% Right bracket \] Circumflex \^ Underscore \_
+% Grave accent \` Left brace \{ Vertical bar \|
+% Right brace \} Tilde \~}
+%
+% \GetFileInfo{\jobname.sty}
+%
+% \changes{v2.0}{2007/07/21}{Complete re-write of float support}
+% \changes{v2.0}{2007/07/21}{General tidying of code}
+% \changes{v1.0}{2006/11/08}{Initial release of packaged rsc.bst}
+
+% \DoNotIndex{\,,\@biblabel,\@citess,\@floatboxreset,\@ifclassloaded}
+% \DoNotIndex{\@undefined,\begin,\bibitem,\bibliography}
+% \DoNotIndex{\bibliographystyle,\captionsetup,\centering,\cm}
+% \DoNotIndex{\DeclareOption,\def,\dm,\documentclass,\else,\emph}
+% \DoNotIndex{\end,\ensuremath,\fi,\figurename,\floatplacement}
+% \DoNotIndex{\floatstyle,\global,\hertz,\labelformat,\let,\mole}
+% \DoNotIndex{\NAT@open,\NAT@close,\natexlab,\NeedsTeXFormat}
+% \DoNotIndex{\newblock,\newcommand,\newfloat,\newif,\newunit}
+% \DoNotIndex{\PassOptionsToPackage,\ProcessOptions,\providecommand}
+% \DoNotIndex{\ProvidesPackage,\relax,\renewcommand,\RequirePackage}
+% \DoNotIndex{\restylefloat,\rotatebox,\schemename,\tablename}
+% \DoNotIndex{\textbf,\textsc,\textsuperscript,\unitsep}
+% \DoNotIndex{\unitsuperscript,\usepackage,\varnothing}
+%
+% \title{The \texttt{rsc} package --- BibTeX styles and utilities for
+% chemical documents%
+% \thanks{This file describes version \fileversion, last revised
+% \filedate.}}
+% \author{Joseph Wright%
+% \thanks{E-mail: joseph.wright@morningstar2.co.uk}}
+% \date{Released \filedate}
+%
% \maketitle
%
% \begin{abstract}
@@ -51,12 +97,14 @@
% journals.
%
% In addition to providing the core |*.bst| files, this package also
-% generates |*-mc.bst|, |rsc.sty| |rsc.tex|. The |*-mc.bst| files
-% includes support for the |mcite| package, allowing the generation of
-% multiple references. The macro collection |rsc.sty| provides a few
-% useful features not catered for by other chemistry-related packages.
-% Finally, |rsc.tex| is a simple template for using the BibTeX
-% styles, including loading some other very useful chemistry packages.
+% generates |*-mc.bst|, |*nat.bst|, |rsc.sty| and |rsc.tex|. The
+% |*-mc.bst| files includes support for the |mcite| package, allowing
+% the generation of multiple references. The |*nat.bst| files allow
+% the use of the |natbib| package with BibTeX style files. The macro
+% collection |rsc.sty| provides a few useful features not catered for
+% by other chemistry-related packages. Finally, |rsc.tex| is a
+% simple template for using the BibTeX styles, including loading some
+% other very useful chemistry packages.
%
% \section{Bibliography design decisions}
%
@@ -115,9 +163,10 @@
% Although it is not perfect, the package |mcite| allows you to
% produce references of the format:
% \begin{enumerate}
-% \item K.~{\"O}fele, \emph{{J}. {O}rganomet. {C}hem.}, 1968,
-% \textbf{12}, P42--P43; C.~D. Abernethy, A.~H. Cowley and R.~A.
-% Jones, \emph{{J}. {O}rganomet. {C}hem.}, 2000, \textbf{596}, 3--5.
+% \item K.~\"Ofele, \emph{J.~Organomet.~Chem.}, 1968,
+% \textbf{12}, P42--P43; C.~D.~Abernethy, A.~H.~Cowley and R.~A.\
+% Jones, \emph{J.~Organomet.~Chem.}, 2000, \textbf{596},
+% 3--5.
% \end{enumerate}
% Although the package only requires a minor modification of the
% BibTeX style file, it seems a good idea to provide one
@@ -125,6 +174,16 @@
% modifications made to |*.bst|. Note that this requires
% |\usepackage{mcite}| in your LaTeX source.
%
+% \subsection{\texttt{natbib} support}
+%
+% The files |rscnat.bst| and |angewnat.bst| provide support for the
+% generation of bibliographies for use with the |natbib| package.
+% As well as altering the |\bibliographystyle| command appropriately,
+% you also need to load |natbib|. The |rsc| package file provides
+% the option |natbib|, which loads |natbib| automatically (normally,
+% |rsc| loads the |cite| package). Note that |natbib| and |mcite|
+% are incompatible, so you must choose one or the other.
+%
% \subsection{Additional entry types}
%
% In order to ensure compatibility with the |achemso| package, the
@@ -136,13 +195,13 @@
%
% \subsection{Overview}
%
-% The macros provide by |rsc.sty| are all very simple. They simply
+% The macros provide by |rsc.sty| are in the main very simple. They
% fill in a few gaps in the available support for chemists in LaTeX.
% Most are built on other, more powerful, packages. As a result, it
% is best to read the documents for the ``parent'' package to alter the
% handling of the macros given here. The package follows the house
% style of the RSC, by default. The |angew| option switches to the
-% Wiley house style, modelled on the approach taken in \emph{Angew.
+% Wiley house style, modelled on the approach taken in \emph{Angew.\
% Chem.}
%
% \subsection{Additional units}
@@ -174,12 +233,13 @@
% Related to, but not exactly a unit is the \cmd{\standardstate}
% command. This generates the tricky \standardstate\ symbol, letting
% you put |$\Delta S \standardstate$| to generate $\Delta S
-%\standardstate$. Note that this is safe in text and maths mode.
+% \standardstate$. Note that this is safe in text and maths mode.
%
% \subsection{Alkyl radicals}
%
% \DescribeMacro{\iPr}
% \DescribeMacro{\iBu}
+% \DescribeMacro{\sBu}
% \DescribeMacro{\tBu}
% There are a few alkyl radicals that come up all of the time. No one
% seems to have put these into a package, so they are provided here.
@@ -189,110 +249,125 @@
% used in Wiley journals, so for example \cmd{\iPr} then gives
% \makeatletter \RSC@angewtrue \iPr \RSC@angewfalse \makeatother.
%
-% \subsection{Floating schemes}
-%
-% A number of approaches can be taken to redefining all float
-% types in a consistent manner (I know, I've tried several!).
-% In the end, the easiest method seems to be to use an ``internal''
-% float type in the package, and then define a related environment to
-% present to the user. As a result, this part of the package is by
-% far the most complex.
-%
-% \DescribeEnv{scheme}
-% The |float| package allows new float types to be defined. This is
-% used to create a |scheme| environment, which works very much like the
-% |figure| environment. In contrast to the LaTeX default, all
-% float types are defined to be ``here'' if possible by default,
-% then float to the top of the page. This is usually what chemists
-% expect to happen. All the float types are also defined to take one
-% optional argument to over-ride the provided placement behaviour.
-% The most likely use is to put |[H]| to force a float to be ``here'',
-% absolutely. So for example, we might have:
-% \begin{verbatim}
-% Some text about \ref{sch1}, which will appear directly under this
-% paragraph and will not float at all!
-% \begin{scheme}[H]
-% This is where the scheme should go%
-% \caption{An exciting reaction, placed HERE.}%
-% \label{sch1}
-% \end{scheme}
-% \end{verbatim}
-% To give:
-% \begin{quotation}
-% \noindent Some text about \ref{sch1}, which will appear directly
-% under this paragraph and will not float at all!
-% \begin{scheme}[H]
-% This is where the scheme should go%
-% \caption{An exciting reaction, placed HERE.}%
-% \label{sch1}
-% \end{scheme}
-% \end{quotation}
-%
-% In addition to providing the floats, referencing to schemes, figures
-% and tables is formatted using the |varioref| package, to give
-% references such as ``Scheme 1'', ``Table 2'', \emph{etc.} from
-% simple \cmd{\ref} commands.
-%
-% \DescribeMacro{\listofschemes}
-% A listing command for schemes \cmd{\lisofschemes}, is provided in
-% analogy to \cmd{\listoffigures}. It takes one optional argument to
-% alter the title of the list. The \cmd{\listoffigures} and
-%\cmd{\listoftables} commands are redefined to act in the same way.
-%
-% A number of package options are provided to alter the handling of
-% the floating environments. By default, the float contents are
-% centred on the page. The option |floatleft| (also shortened to |fl|)
-% is available to produce the standard LaTeX behaviour of
-% left-aligned floats. Captions are also centred by default, but may
-% be left-aligned using the |captionleft| (|cl|) option. The format
-% of the labels once again follows the RSC or Wiley house styles.
-% Note that the |angew| package option automatically sets |cl| as
-% well. Finally, schemes may be numbered within chapters by using
-% the |chapter| (|ch|) option. This is obviously provided for
-% theses and other very long documents.
+% \subsection{Floats}
%
-% \iffalse
-%<*template>
-% \fi
+% The float management section of |rsc| has been totally rewritten
+% in version 2. The provision of a float type for schemes is now
+% handled by the |chemscheme| package; this is loaded automatically
+% by |rsc|. The formatting of float types |table|, |figure| and
+% |scheme| is modified by the |rsc| package to conform to the
+% appropriate journal style. This also applies to cross-references
+% and float captions. The |rsc| package will pass any options
+% appropriate for |chemscheme| through to that package (currently,
+% these are |chapter|\footnote{Numbers schemes per chapter rather
+% than globally.} and |chemcompounds|\footnote{This option loads
+% the |chemcompounds| package, instead of the default of |bpchem|.
+% Both can be used to automatically track reference numbers given
+% to chemical compounds. See the |chemscheme| documentation for a
+% more detailed discussion of this option.}).
+%
+% \DescribeMacro{\floatcontentscentre}
+% \DescribeMacro{\floatcontentsleft}
+% By default, the contents of all floats are centred on the page.
+% This behaviour may be changed globally by using the |floatleft|
+% (or |fl|) package option. The behaviour may be changed for
+% selected floats by issuing the command \cmd{\floatcontentscentre}
+% or \cmd{\floatcontentscentre} \emph{before} the beginning of the
+% floating environment. This change remains in force until cancelled
+% using the complementary macro.
+%
+% Single line float captions are centred by default, but may
+% be left-aligned using the |captionleft| (|cl|) option. The
+% |angew| option automatically activates |captionsleft|, as this
+% is the house style in Wiley journals. All multi-line captions
+% are flush left.
+%
+% \subsection{Summary of options}
+%
+% The |rsc| package has a number of options, mainly concerned with
+% controlling formatting. The full range of options is summarised
+% in \ref{option-summary}.
+% \begin{table}
+% \begin{tabular}{>{\ttfamily}ll}
+% \toprule
+% Option & Effect \\
+% \midrule
+% angew & Use Wiley (\emph{Angew.~Chem.}) formatting \\
+% ch & Number schemes within chapters (if present) \\
+% chapter & Number schemes within chapters (if present)\\
+% chemcompounds & Use \texttt{chemcompounds} package for tracking \\
+% & chemical numbers, rather than \texttt{bpchem} \\
+% cl & All captions flush left \\
+% captionleft & All captions flush left \\
+% fl & Float contents flush left \\
+% floatleft & Float contents flush left \\
+% natbib & Use \texttt{natbib} rather than |cite| \\
+% \bottomrule
+% \end{tabular}
+% \caption{Summary of \texttt{rsc} package options}
+% \label{option-summary}
+% \end{table}
%
% \section{A LaTeX template}
%
% This is a very simple template for chemistry-related documents.
% The |babel| system is used to give UK hyphenation.
-% As well as the macros given in this package as |rsc|, the packages
-% |bpchem| and |mhchem| are loaded, as both provide useful support
-% for the chemist. The |rsc| package loads |cite| automatically,
-% giving superscript citations which come after punctuation. With
-% the |angew| option, these are also surrounded by square brackets.
+% As well as the macros given in this package as |rsc|, the
+% |mhchem| package is loaded, as it provides useful support
+% for the chemist. The |rsc| package loads |cite| (or |natbib|)
+% automatically, giving superscript citations. The |cite| package
+% also moves citations to after punctuation. With
+% the |angew| option, references are surrounded by square brackets.
+% \iffalse
+%<*template>
+% \fi
% \begin{macrocode}
-\documentclass[12pt,a4paper]{article}
+\documentclass[a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage[english,UKenglish]{babel}
\usepackage[version=3]{mhchem}
-\usepackage{rsc} % Package options are angew, ch, fl and cl
-\usepackage{bpchem,mcite}
+\usepackage{rsc}
+\usepackage{mcite} % Pick one or the other
+%\usepackage{natbib} % as they are incompatible
\begin{document}
-\bibliography{refs} % Change this to your reference database!
-\bibliographystyle{rsc} % Take your pick of reference style file
-%\bibliographystyle{rsc-mc}
-%\bibliographystyle{angew}
-%\bibliographystyle{angew-mc}
+\bibliography{refs} % Your reference database
+\bibliographystyle{rsc-mc} % Take your pick of styles
\end{document}
% \end{macrocode}
-%
-% \section{BibLaTeX support}
-%
-% The next area of work for the |rsc| package is support for
-% Philipp Lehman's new BibLaTeX system. This is in development,
-% although currently a release date is not certain. The aim will
-% be to reproduce the functionallity of the current BibTeX style
-% files, taking account of the slight changes that BibLaTeX
-% introduces in database entries.
-%
% \iffalse
%</template>
% \fi
%
+% \section{Known issues}
+%
+% The |memoir| class implements its own customisable float and
+% caption management. Unfortunately, this does not have flexibility
+% in the areas needed by the |rsc| package. As a result, the
+% |memoir| methods are over-written with the procedures from the
+% |float| and |caption| packages. This may cause some features to
+% fail or behave unexpectedly. The decision to use |float| and
+% |caption| came down to considering the aims of \emph{this}
+% package.
+%
+% \section{Future plans}
+%
+% The |biblatex| package, currently being developed by
+% Phillip Lehman, is likely to become the standard for
+% bibliography formatting in the future. However, currently
+% package is still in beta, and the interface is not finalised.
+% Thus at present it is too early to produce |biblatex| styles
+% for general release.
+%
+% Once |biblatex| reaches production, it is my intention to provide
+% suitable support files for chemical journals. It seems likely that
+% these will be in a separate package (probably covering a number of
+% journal styles). At that stage, the support macros provided here
+% may be moved to a more general purpose package. It is my aim
+% to implement an extendable style system, to allow more convenient
+% support for a wider range of journals. Suitable steps will be
+% taken to maintain the user interface provided here (and in the
+% |achemso| package).
+%
% \StopEventually{}
%
% \iffalse
@@ -307,38 +382,68 @@
% them. The code is all very simple, but for the interested reader
% is provided here.
%
+% \subsection{Setup code}
+%
% First of all, the package identifies itself and loads other packages
% needed to function.
-% \changes{2006-12-31}{v1.1}{Moved |cite| to package}
% \begin{macrocode}
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{rsc}[2007/01/01 v1.1
-Useful chemistry functions]
-\RequirePackage{unitsdef,graphicx,amssymb,fixltx2e,float,varioref}
-\RequirePackage[super]{cite}
-\RequirePackage[labelsep=quad,labelfont=bf]{caption}
+\ProvidesPackage{rsc}[2007/07/21 v2.0
+ Useful chemistry functions]
+\RequirePackage{unitsdef,graphicx,amssymb,fixltx2e,varioref}
% \end{macrocode}
%
-% The package provides three options, all of which relate to float
-% handling. The necessary precautions are taken here.
-% \begin{macrocode}
-\newif\ifRSC@floatcentre\RSC@floatcentretrue
-\DeclareOption{floatleft}{\global\RSC@floatcentrefalse}
-\DeclareOption{fl}{\global\RSC@floatcentrefalse}
-\newif\ifRSC@captioncentre\RSC@captioncentretrue
-\DeclareOption{captionleft}{\global\RSC@captioncentrefalse}
-\DeclareOption{cl}{\global\RSC@captioncentrefalse}
-\newif\ifRSC@chapter\RSC@chapterfalse
-\DeclareOption{chapter}{\global\RSC@chaptertrue}
-\DeclareOption{ch}{\global\RSC@chaptertrue}
-\newif\ifRSC@angew\RSC@angewfalse
+% The Boolean values needed to manage options are set up.
+% \begin{macrocode}
+\newif \ifRSC@fl \RSC@flfalse
+\newif \ifRSC@cl \RSC@clfalse
+\newif \ifRSC@chapter \RSC@chapterfalse
+\newif \ifRSC@angew \RSC@angewfalse
+\newif \ifRSC@natbib \RSC@natbibfalse
+% \end{macrocode}
+% The package provides several options which relate to float
+% handling, plus one for |natbib| and one for
+% \emph{Angew.~Chem.}~style formatting.
+% \begin{macrocode}
+\DeclareOption{floatleft}{\global\RSC@fltrue}
+\DeclareOption{fl}{\global\RSC@fltrue}
+\DeclareOption{captionleft}{\global\RSC@cltrue}
+\DeclareOption{cl}{\global\RSC@cltrue}
+\DeclareOption{chapter}{\global\RSC@chaptertrue%
+ \PassOptionsToPackage{chapter}{chemscheme}}
+\DeclareOption{ch}{\global\RSC@chaptertrue%
+ \PassOptionsToPackage{chapter}{chemscheme}}
\DeclareOption{angew}{\global\RSC@angewtrue%
-\global\RSC@captioncentrefalse}
+ \global\RSC@cltrue}
+\DeclareOption{natbib}{\global\RSC@natbibtrue}
+\DeclareOption{chemcompounds}%
+ {\PassOptionsToPackage{chemcompounds}{chemscheme}}
\ProcessOptions
% \end{macrocode}
+% The |chemscheme| package is loaded to provide |scheme| environment.
+% It is loaded here to ensure the options are correct.
+% \begin{macrocode}
+\RequirePackage{chemscheme}
+% \end{macrocode}
+% The choice of |natbib| or |cite| is then handled.
+% \begin{macrocode}
+\ifRSC@natbib
+ \RequirePackage[numbers,sort&compress,super]{natbib}
+\else
+ \RequirePackage[super]{cite}
+\fi
+% \end{macrocode}
+%
+% \subsection{Extra units and related commands}
%
% A few additional unit types are provides, which the |unitsdef|
% package omits for some reason.
+% \begin{macro}{\cubiccentimeter}
+% \begin{macro}{\cmc}
+% \begin{macro}{\Hz}
+% \begin{macro}{\Molar}
+% \begin{macro}{\molar}
+% \begin{macro}{mmHg}
% \begin{macrocode}
\newunit{\cubiccentimeter}{\cm\unitsuperscript{3}}
\newcommand*{\cmc}{\cubiccentimeter}
@@ -347,154 +452,169 @@ Useful chemistry functions]
\newunit{\molar}{\mole\unitsep\dm\unitsuperscript{--3}}
\newunit{\mmHg}{mm\unitsep{}Hg}
% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
% In a very similar vein, the ``standard state'' symbol is handy. This
% is produced by rotating a symbol from the AMS set. Note that the
% rotation angle here has been carefully checked, but is set by eye!
+% \begin{macro}{\standardstate}
% \begin{macrocode}
\newcommand*{\standardstate}%
{\textsuperscript{\rotatebox[origin=c]{140.8}%
{\ensuremath{\varnothing}}}}
% \end{macrocode}
+% \end{macro}
+%
+% \subsection{Alkyl radicals}
%
% Next we provide alkyl radical symbols, in a convenient form.
% The format depends on the journal asked for.
-% \changes{2006-12-31}{v1.1}{Made formatting journal-dependent}
-% \begin{macrocode}
-\newcommand*{\iPr}{\ifRSC@angew\emph{i}Pr\else Pr\textsuperscript{i}\fi}
-\newcommand*{\iBu}{\ifRSC@angew\emph{i}Bu\else Bu\textsuperscript{i}\fi}
-\newcommand*{\tBu}{\ifRSC@angew\emph{t}Pr\else Bu\textsuperscript{t}\fi}
-% \end{macrocode}
-% If the |angew| option is set, a modification is made to
-% the citation style. This is taken directly from |cite.sty|.
+%\begin{macro}{\iPr}
+%\begin{macro}{\iBu}
+%\begin{macro}{\sBu}
+%\begin{macro}{\tBu}
+% \begin{macrocode}
+\newcommand*{\iPr}%
+ {\ifRSC@angew\emph{i}Pr\else Pr\textsuperscript{i}\fi}
+\newcommand*{\iBu}%
+ {\ifRSC@angew\emph{i}Bu\else Bu\textsuperscript{i}\fi}
+\newcommand*{\sBu}%
+ {\ifRSC@angew\emph{s}Bu\else Bu\textsuperscript{s}\fi}
+\newcommand*{\tBu}%
+ {\ifRSC@angew\emph{t}Bu\else Bu\textsuperscript{t}\fi}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{Citation formatting}
+%
+% If the |angew| option is set, we have to format the citations
+% correctly. The formatting commands depend on whether we're using
+% |cite| or |natbib|. The format of the bibliography labels is also
+% altered here.
% \begin{macrocode}
\ifRSC@angew
- \def\@citess#1{\textsuperscript{[#1]}}
+ \ifRSC@natbib
+ \renewcommand\NAT@open{[}\renewcommand\NAT@close{]}
+ \else
+ \def\@citess#1{\textsuperscript{[#1]}}
+ \fi
+ \else
+ \def\@biblabel#1{#1}
\fi
% \end{macrocode}
-% If the |angew| option is set, then the format of float captions
-% needs to be modified. This is achieved using both the |float|
-% and |cation| packages.
+%
+% \subsection{Caption and float formatting}
+%
+% The |caption| package is used to control the appearance of
+% float captions. The macros provided by the |memoir| class do not
+% allow sufficient control, and so the functions provided by |memoir|
+% are ignored. |caption| is loaded with the correct default format
+% for almost all floats. In the case of \emph{Angew. Chem.}~style
+% formatting, tables are treated differently.
% \begin{macrocode}
\ifRSC@angew
- \floatstyle{plaintop}
- \captionsetup[Table]{labelsep=colon}
- \captionsetup[Scheme]{labelsep=period}
- \captionsetup[Figure]{labelsep=period}
-\fi
-% \end{macrocode}
-% The position of the caption on the line is set using the
-% |caption| package. Slightly confusingly, a single line
-% caption can only be moved to the left-hand side using
-% the |singlelinecheck=off| command.
-% \changes{2007-01-01}{v1.1}{Switched to |cation| package
-% for centering labels}
-% \begin{macrocode}
-\ifRSC@captioncentre
- \relax
+ \RequirePackage[labelsep=period,labelfont=bf]{caption}
+ \captionsetup[table]{labelsep=colon}
\else
- \captionsetup{singlelinecheck=off}
+ \RequirePackage[labelsep=quad,labelfont=bf]{caption}
\fi
% \end{macrocode}
-%
-% The final task is to create a new float for chemical schemes.
-% In order to maintain consistency, we also redefine the table and
-% figure environments. This is done by first creating ``internal''
-% float types, then formatting these. The need for numbering
-% within chapters is also handled at this stage.
-% If there are no chapters the fall-back is simply to ignore the
-% request!
-% \changes{2007-01-01}{v1.1}{Altered error to package-specific}
+% By default, short (one line) captions are centred. Longer captions
+% are typeset as paragraphs. To set all captions flush left, the
+% |caption| package is instructed not to check for single line
+% captions.
% \begin{macrocode}
-\ifRSC@chapter
- \ifx\chapter\@undefined
- \PackageError{rsc}{No chapters in this document}\@eha
- \newfloat{Scheme}{htbp}{los}
- \newfloat{Figure}{htbp}{lof}
- \newfloat{Table}{htbp}{lot}
- \else
- \newfloat{Scheme}{htbp}{los}[chapter]
- \newfloat{Figure}{htbp}{lof}[chapter]
- \newfloat{Table}{htbp}{lot}[chapter]
- \fi
+\ifRSC@cl
+ \captionsetup{singlelinecheck=off}
\else
- \newfloat{Scheme}{htbp}{los}
- \newfloat{Figure}{htbp}{lof}
- \newfloat{Table}{htbp}{lot}
\fi
% \end{macrocode}
-% Next the correct naming is set up for the captions.
-% Note that figures are referred to simply as ``Fig.''
-% in RSC journals.
+% In RSC journals, figures are referred to as ``Fig.''~rather than
+% ``Figure.'' This is sorted out here.
% \begin{macrocode}
-\floatname{Scheme}{Scheme}
-\floatname{Table}{Table}
\ifRSC@angew
- \floatname{Figure}{Figure}
\else
- \floatname{Figure}{Fig.}
+ \renewcommand{\figurename}{Fig.}
\fi
% \end{macrocode}
-% We now test if we want centered or left-aligned floating content.
-% This is achieved by using environments with the correct alignment
-% options. We allow an optional argument to cover the use of the |[H]|
-% placement option.
-% \begin{macrocode}
-\ifRSC@floatcentre
- \newenvironment{scheme}[1][htbp]{\begin{Scheme}[#1]\centering}
- {\end{Scheme}}
- \renewenvironment{figure}[1][htbp]{\begin{Figure}[#1]\centering}
- {\end{Figure}}
- \renewenvironment{table}[1][htbp]{\begin{Table}[#1]\centering}
- {\end{Table}}
-\else
- \newenvironment{scheme}[1][htbp]{\begin{Scheme}[#1]\flushleft}
- {\end{Scheme}}
- \renewenvironment{figure}[1][htbp]{\begin{Figure}[#1]\flushleft}
- {\end{Figure}}
- \renewenvironment{table}[1][htbp]{\begin{Table}[#1]\flushleft}
- {\end{Table}}
-\fi
+%
+% The next step is to format the floats themselves correctly.
+% Unfortunately, |memoir| does not provide all of the commands
+% needed to achieve this. Thus the |float| package is needed;
+% in order to load it, the \cmd{\newfloat} command in |memoir|
+% is killed off. Notice that if |memoir| is not in use, the
+% |chemscheme| package will have already loaded |float|.
+% \begin{macrocode}
+\@ifclassloaded{memoir}
+ {\let\newfloat\@undefined
+ \RequirePackage{float}}
+ {}
% \end{macrocode}
-% A new |\listofschemes| command is needed, in analogy to
-% |\listoffigures|. An optional argument is provided so the
-% list can be renamed easily. The related commands for tables and
-% figures are redefined, as we are using |Figure| not |figure| and
-% |Table| not |table|!
+% The standard float types are now restyled to place the captions
+% correctly. The placement of captions is also altered so that they
+% default to ``here'' if possible.
% \begin{macrocode}
-\newcommand*{\listofschemes}[1][List of Schemes]%
- {\listof{Scheme}{#1}}
-\renewcommand*{\listoffigures}[1][List of Figures]%
- {\listof{Figure}{#1}}
-\renewcommand*{\listoftables}[1][List of Tables]%
- {\listof{Table}{#1}}
+\floatstyle{plaintop}
+\restylefloat{table}
+\floatstyle{plain}
+\restylefloat{scheme}
+\restylefloat{figure}
+\floatplacement{table}{htbp}
+\floatplacement{scheme}{htbp}
+\floatplacement{figure}{htbp}
% \end{macrocode}
-% Finally, the naming for cross-references is sorted out properly,
-% using the |varioref| package. The correct format is that the
-% references start with capital letters. Notice that figures called
-% ``Fig.'' in RSC journals.
-% \begin{macrocode}
-\labelformat{Scheme}{Scheme~#1}
-\ifRSC@angew
- \labelformat{Figure}{Figure~#1}
+%
+% \begin{macro}{\floatcontentscentre}
+% \begin{macro}{\floatcontentsleft}
+% In order to centre the content of all floats, a method is needed
+% to break into the mechanism. None is provided by default,
+% but it can be achieved by patching \cmd{\@floatboxreset}.
+% User space switching commands are defined to turn centring on and
+% off.
+% \begin{macrocode}
+\newcommand*{\floatcontentscentre}%
+ {\let\RSC@everyfloat\centering}
+\newcommand*{\floatcontentsleft}%
+ {\let\RSC@everyfloat\relax}
+\let\RSC@floatboxreset\@floatboxreset
+\def\@floatboxreset{\RSC@everyfloat\RSC@floatboxreset}
+\ifRSC@fl
+ \floatcontentsleft
\else
- \labelformat{Figure}{Fig.~#1}
+ \floatcontentscentre
\fi
-\labelformat{Table}{Table~#1}
+% \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% Finally, the naming for cross-references is sorted out properly,
+% using the |varioref| package.
+% \begin{macrocode}
+\labelformat{scheme}{\schemename~#1}
+\labelformat{figure}{\figurename~#1}
+\labelformat{table}{\tablename~#1}
% \end{macrocode}
% \iffalse
%</package>
% \fi
-% \section{The style files}
+% \section{The BibTeX style files}
+%
+% A great deal of the BibTeX style file information is lifted
+% more or less directly from the standard style files, the
+% |custom-bib| package or \emph{Taming the BeaST}. The rest
+% consists of minor edits to obtain the correct format or support
+% the |natbib| and |mcite| packages. Only two functions are novel
+% to this package, and are given here for the interested reader.
%
-% Much of the following is lifted more or less directly from
-% the standard style files, the |custom-bib| package or \emph{Taming
-% the BeaST}. Commenting is therefore limited to the notable
-% alterations. Note that most of the code is shared by |rsc.bst| and
-% |rsc-mc.bst|.
% \iffalse
%<*bib>
-% \fi
-% \changes{2006-12-29}{v1.1}{Altered conditional code names}
% \begin{macrocode}
ENTRY
{ address
@@ -507,6 +627,7 @@ ENTRY
howpublished
institution
journal
+%<nat> key
note
number
organization
@@ -520,7 +641,13 @@ ENTRY
year
}
{}
- { label }
+%<!nat> { label }
+%<*nat>
+ { label
+ extra.label
+ short.list
+ }
+%</nat>
INTEGERS { output.state before.all mid.sentence after.sentence }
INTEGERS { after.block after.item author.or.editor }
@@ -533,10 +660,6 @@ FUNCTION {init.state.consts}
#4 'after.item :=
}
-% \end{macrocode}
-% \changes{2006-12-29}{v1.1}{Updated add.comma to remove brace "correction"}
-% \changes{2006-12-29}{v1.1}{Replaced use of literal ", " with add.comma}
-% \begin{macrocode}
FUNCTION {add.comma}
{ ", " * }
@@ -547,16 +670,7 @@ FUNCTION {output.nonnull}
output.state mid.sentence =
{ add.comma write$ }
{ output.state after.block =
-% \iffalse
-%<*rsc|angew>
-% \fi
-% \begin{macrocode}
{ add.comma write$
-% \end{macrocode}
-% \iffalse
-%</rsc|angew>
-%\fi
-% \begin{macrocode}
newline$
"\newblock " write$
}
@@ -591,6 +705,7 @@ FUNCTION {output.check}
if$
}
+%<*!nat>
FUNCTION {output.bibitem}
{ newline$
"\bibitem{" write$
@@ -601,36 +716,24 @@ FUNCTION {output.bibitem}
before.all 'output.state :=
}
-% \end{macrocode}
-% The |fin.entry| function is dependant on whether |mcite| is in use.
-% The correct function is produced here.
-% \iffalse
-%<*!mc>
-% \fi
-% \begin{macrocode}
+%</!nat>
FUNCTION {fin.entry}
+%<*!mc>
{ add.period$
write$
newline$
}
-% \end{macrocode}
-% \iffalse
+
%</!mc>
%<*mc>
-% \fi
-% \begin{macrocode}
-FUNCTION {fin.entry}
{ write$
"\relax" write$
newline$
"\relax" write$
}
-% \end{macrocode}
-% \iffalse
%</mc>
-% \fi
-% \begin{macrocode}
+
FUNCTION {not}
{ { #0 }
{ #1 }
@@ -677,88 +780,27 @@ FUNCTION {paren}
if$
}
-% \end{macrocode}
-% As in |custom-bib|, the bulk of the literal stings are collected up
-% here to make editing easier.
-% \changes{2006-12-29}{v1.1}{Added bbl.and function}
-% \begin{macrocode}
FUNCTION {bbl.and}
{ "and" }
FUNCTION {bbl.chapter}
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
-{ "ch." }
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
-{ "Chapter" }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
-
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
-FUNCTION {bbl.editor}
-{ "ed." }
+%<rsc>{ "ch." }
+%<angew>{ "Chapter" }
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
FUNCTION {bbl.editor}
-{ "Ed.:" }
+%<rsc>{ "ed." }
+%<angew>{ "Ed.:" }
-FUNCTION {bbl.editors}
-{ "Eds.:" }
+%<angew>FUNCTION {bbl.editors}
+%<angew>{ "Eds.:" }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
FUNCTION {bbl.edition}
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
-{ "edn." }
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
-{ "ed." }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc>{ "edn." }
+%<angew>{ "ed." }
-% \end{macrocode}
-% \changes{2006-12-29}{v1.1}{Added bbl.etal function}
-% \begin{macrocode}
FUNCTION {bbl.etal}
{ "et~al." emphasize }
-% \end{macrocode}
-% \changes{2006-12-29}{v1.1}{Added bbl.in function}
-% \begin{macrocode}
FUNCTION {bbl.in}
{ "in" }
@@ -767,51 +809,18 @@ FUNCTION {bbl.inpress}
FUNCTION {bbl.msc}
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
-{ "M.Sc. thesis" }
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
-{ "MSc thesis" }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc>{ "M.Sc. thesis" }
+%<angew>{ "MSc thesis" }
FUNCTION {bbl.page}
{ "p." }
-
FUNCTION {bbl.pages}
{ "pp." }
FUNCTION {bbl.phd}
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
-{ "Ph.D. thesis" }
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
-{ "PhD thesis" }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc>{ "Ph.D. thesis" }
+%<angew>{ "PhD thesis" }
FUNCTION {bbl.submitted}
{ "submitted for publication" }
@@ -820,24 +829,8 @@ FUNCTION {bbl.techreport}
{ "Technical Report" }
FUNCTION {bbl.volume}
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
-{ "vol." }
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
-{ "Vol." }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc>{ "vol." }
+%<angew>{ "Vol." }
FUNCTION {bbl.first}
{ "1st" }
@@ -866,10 +859,6 @@ FUNCTION {bbl.rd}
FUNCTION {bbl.th}
{ "th" }
-% \end{macrocode}
-% The following is lifted from |custom-bib|, and gives automatic
-% ordinal numbers from plain input.
-% \begin{macrocode}
FUNCTION {eng.ord}
{ duplicate$ "1" swap$ *
#-2 #1 substring$ "1" =
@@ -891,14 +880,7 @@ FUNCTION {eng.ord}
if$
}
-% \end{macrocode}
-% \changes{2006-12-29}{v1.1}{Added Angew. Chem. style}
-% \iffalse
%<*angew>
-% \fi
-% A number of functions to allow find and replace,
-% needed in the Angew. Chem. style
-% \begin{macrocode}
INTEGERS{ l }
FUNCTION{string.length}
@@ -932,14 +914,7 @@ FUNCTION{find.replace}
while$
}
-% \end{macrocode}
-% \iffalse
%</angew>
-% \fi
-% \changes{2006-12-29}{v1.1}{Simplified number checking}
-% Two functions from Nicolas Markey for determining whether an
-% arbitrary string is an integer.
-% \begin{macrocode}
FUNCTION{is.a.digit}
{ duplicate$ "" =
{pop$ #0}
@@ -1034,10 +1009,6 @@ FUNCTION {space.connect}
INTEGERS { nameptr namesleft numnames }
-% \end{macrocode}
-% \changes{2006-12-29}{v1.1}{Uses bbl.etal in place of literal}
-% \changes{2006-12-29}{v1.1}{Uses bbl.and in place of literal}
-% \begin{macrocode}
FUNCTION {format.names}
{ 's :=
#1 'nameptr :=
@@ -1054,26 +1025,8 @@ FUNCTION {format.names}
if$
t "others" =
{ bbl.etal space.connect }
-% \end{macrocode}
-% The format before the last name depends on
-% the journal style
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- { bbl.and space.connect t space.connect }
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- { add.comma t * }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> { bbl.and space.connect t space.connect }
+%<angew> { add.comma t * }
if$
}
if$
@@ -1095,9 +1048,11 @@ FUNCTION {format.authors}
}
% \end{macrocode}
-% The |strip.comma| function is used to "unwind"
+% \fi
+% The |strip.comma| function is used to ``unwind''
% the comma added by output.nonnull, so that editors
-% in brackets are easy to do
+% in brackets are easy to do. This is needed for the |angew|
+% option.
% \iffalse
%<*angew>
% \fi
@@ -1118,25 +1073,16 @@ FUNCTION {strip.comma}
% \end{macrocode}
% \iffalse
%</angew>
-% \fi
% \begin{macrocode}
FUNCTION {format.editors}
{ editor empty$
{ "" }
{ #2 'author.or.editor :=
-% \end{macrocode}
-% \iffalse
%<*rsc>
-% \fi
-% \begin{macrocode}
bbl.editor " " * *
editor format.names
-% \end{macrocode}
-% \iffalse
%</rsc>
%<*angew>
-% \fi
-% \begin{macrocode}
strip.comma
editor num.names$ #1 >
{ bbl.editors }
@@ -1144,19 +1090,17 @@ FUNCTION {format.editors}
if$
" " *
editor format.names * paren
-% \end{macrocode}
-% \iffalse
%</angew>
-% \fi
-% \begin{macrocode}
}
if$
}
% \end{macrocode}
+% \fi
+%
% |n.separate| is given in the |custom-bib| package. The following
% function is modified to separate out a number of any length into
-% digit groups, \emph{e.g.} 12345 turns into 12\,345, 1234567 in
+% digit groups, \emph{e.g.}~12345 turns into 12\,345, 1234567 in
% 1\,234\,567 but 1234 or a12345 are left alone.
% \begin{macrocode}
FUNCTION {n.separate.multi}
@@ -1191,6 +1135,9 @@ FUNCTION {n.separate.multi}
if$
}
+% \end{macrocode}
+% \iffalse
+% \begin{macrocode}
FUNCTION {format.bvolume}
{ volume empty$
{ "" }
@@ -1198,10 +1145,6 @@ FUNCTION {format.bvolume}
if$
}
-% \end{macrocode}
-% \changes{2006-12-29}{v1.1}{Restructured format.title.noemph system}
-% \changes{2006-12-29}{v1.1}{Restructured format.title system}
-% \begin{macrocode}
FUNCTION {format.title.noemph}
{ 't :=
t empty$
@@ -1218,15 +1161,7 @@ FUNCTION {format.title}
if$
}
-% \end{macrocode}
-% The volume goes with the title for Angew. Chem.,
-% so a "combined" function is useful. Note that
-% |output| cannot be used form the book volume,
-% as this leads to problems with the stack order!
-% \iffalse
%<*angew>
-% \fi
-% \begin{macrocode}
FUNCTION {format.title.vol}
{ 't :=
t empty$
@@ -1241,11 +1176,94 @@ FUNCTION {format.title.vol}
if$
}
-% \end{macrocode}
-% \iffalse
%</angew>
-% \fi
-% \begin{macrocode}
+%<*nat>
+FUNCTION {format.full.names}
+{'s :=
+ #1 'nameptr :=
+ s num.names$ 'numnames :=
+ numnames 'namesleft :=
+ { namesleft #0 > }
+ { s nameptr
+ "{vv~}{ll}" format.name$ 't :=
+ nameptr #1 >
+ {
+ namesleft #1 >
+ { ", " * t * }
+ {
+ numnames #2 >
+ { "," * }
+ 'skip$
+ if$
+ t "others" =
+ { bbl.etal * }
+ { bbl.and space.connect t space.connect }
+ if$
+ }
+ if$
+ }
+ 't
+ if$
+ nameptr #1 + 'nameptr :=
+ namesleft #1 - 'namesleft :=
+ }
+ while$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+ { editor empty$
+ { "" }
+ { editor format.full.names }
+ if$
+ }
+ { author format.full.names }
+ if$
+}
+
+FUNCTION {author.full}
+{ author empty$
+ { "" }
+ { author format.full.names }
+ if$
+}
+
+FUNCTION {editor.full}
+{ editor empty$
+ { "" }
+ { editor format.full.names }
+ if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+ type$ "inbook" =
+ or
+ 'author.editor.full
+ { type$ "proceedings" =
+ 'editor.full
+ 'author.full
+ if$
+ }
+ if$
+}
+
+FUNCTION {output.bibitem} { newline$
+ "\bibitem[" write$
+ label write$
+ ")" make.full.names duplicate$ short.list =
+ { pop$ }
+ { * }
+ if$
+ "]{" * write$
+ cite$ write$
+ "}" write$
+ newline$
+ ""
+ before.all 'output.state :=
+}
+
+%</nat>
FUNCTION {n.dashify} { 't :=
""
{ t empty$ not }
@@ -1273,48 +1291,16 @@ FUNCTION {n.dashify} { 't :=
FUNCTION {format.date}
{ year empty$
{ "" }
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- 'year
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- { year boldface }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> 'year
+%<angew> { year boldface }
if$
}
FUNCTION {format.bdate}
{ year empty$
{ "There's no year in " cite$ * warning$ }
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- 'year
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- { year boldface }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> 'year
+%<angew> { year boldface }
if$
}
@@ -1368,11 +1354,6 @@ FUNCTION {format.pages}
if$
}
-% \end{macrocode}
-% The next function is used for page numbers which be be present and
-% have ``p.'' or ``pp.'' added.
-% \begin{macrocode}
-
FUNCTION {format.pages.required}
{ pages empty$
{ ""
@@ -1387,11 +1368,6 @@ FUNCTION {format.pages.required}
if$
}
-% \end{macrocode}
-% Even if no volume is given, the RSC does not use ``p.'' or
-% ``pp.'' for journal articles. So two page formatting functions
-% are needed.
-% \begin{macrocode}
FUNCTION {format.pages.nopp}
{ pages empty$
{ ""
@@ -1406,57 +1382,21 @@ FUNCTION {format.pages.nopp}
if$
}
-% \end{macrocode}
-% Patent numbers have special formatting, including
-% digit grouping.
-% \begin{macrocode}
FUNCTION {format.pages.patent}
{ pages empty$
{ "There is no patent number for " cite$ * warning$ }
{ pages multi.page.check
{ pages n.dashify }
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- { pages n.separate.multi }
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- { pages }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> { pages n.separate.multi }
+%<angew> { pages }
if$
}
if$
}
FUNCTION {format.vol.pages}
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
-{ volume boldface field.or.null
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
-{ volume emphasize field.or.null
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc>{ volume boldface field.or.null
+%<angew>{ volume emphasize field.or.null
duplicate$ empty$
{ pop$ format.pages.required }
{ add.comma pages n.dashify * }
@@ -1479,22 +1419,9 @@ FUNCTION {format.chapter.pages}
if$
}
-% \end{macrocode}
-% \changes{2006-12-29}{v1.1}{Restructured format.title.in}
-% \begin{macrocode}
FUNCTION {format.title.in}
{ 's :=
-% \end{macrocode}
-% \iffalse
-%<*angew>
-% \fi
-% \begin{macrocode}
- after.item 'output.state :=
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<angew> after.item 'output.state :=
s empty$
{ "" }
{ editor empty$
@@ -1507,11 +1434,7 @@ FUNCTION {format.title.in}
if$
}
-% \end{macrocode}
-% \iffalse
%<*angew>
-% \fi
-% \begin{macrocode}
FUNCTION {format.title.vol.in}
{ 's :=
after.item 'output.state :=
@@ -1527,11 +1450,7 @@ FUNCTION {format.title.vol.in}
if$
}
-% \end{macrocode}
-% \iffalse
%</angew>
-% \fi
-% \begin{macrocode}
FUNCTION {format.pub.address}
{ publisher empty$
{ "" }
@@ -1568,45 +1487,15 @@ FUNCTION {format.thesis.type}
if$
}
-% \end{macrocode}
-% The main style functions are now given in alphabetical
-% order. Cross-referenced functions are given at the end.
-% Notice that the BibTeX |crossref| system is not used,
-% as it is not really used in chemistry.
-% \begin{macrocode}
FUNCTION {article}
{ output.bibitem
format.authors "author" output.check
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- journal emphasize "journal" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-% Wiley journals have no commas in journal names,
-% so a find and replace function is used to avoid
-% needed database modifications
+%<rsc> journal emphasize "journal" output.check
%<*angew>
-% \fi
-% \begin{macrocode}
journal "," "" find.replace emphasize
"journal" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% Changing output state suppresses the comma here
-%<*angew>
-% \fi
-% \begin{macrocode}
after.item 'output.state :=
-% \end{macrocode}
-% \iffalse
%</angew>
-% \fi
-% \begin{macrocode}
format.date "year" output.check
volume empty$
{ ""
@@ -1617,32 +1506,11 @@ FUNCTION {article}
fin.entry
}
-% \end{macrocode}
-% \changes{v1.1}{2006-12-29}{Added optional pages to book}
-% For a book, we have to have an editor or an author. This is
-% tested for here. If both are present, only the author is used.
-% \begin{macrocode}
FUNCTION {book}
{ output.bibitem
author empty$
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- { title format.title "title" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- { title format.title.vol "title" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> { title format.title "title" output.check
+%<angew> { title format.title.vol "title" output.check
editor empty$
{ "Need either an author or editor for " cite$ * warning$ }
{ "" format.editors * "editor" output.check }
@@ -1650,40 +1518,14 @@ FUNCTION {book}
}
{ format.authors output
"author and editor" editor either.or.check
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- title format.title "title" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- title format.title.vol "title" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> title format.title "title" output.check
+%<angew> title format.title.vol "title" output.check
}
if$
format.pub.address "publisher" output.check
format.edition output
format.bdate "year" output.check
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- format.bvolume output
-% \end{macrocode}
-% \iffalse
-%</rsc>
-% \fi
-% \begin{macrocode}
+%<rsc> format.bvolume output
pages empty$
'skip$
{ format.pages output }
@@ -1704,141 +1546,49 @@ FUNCTION {booklet}
FUNCTION {inbook}
{ output.bibitem
author empty$
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- { title format.title "title" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- { title format.title.vol "title" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> { title format.title "title" output.check
+%<angew> { title format.title.vol "title" output.check
editor empty$
{ "Need at least an author or an editor for " cite$ * warning$ }
{ "" format.editors * "editor" output.check }
if$
}
{ format.authors output
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- title format.title.in "title" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- title format.title.vol.in "title" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> title format.title.in "title" output.check
+%<angew> title format.title.vol.in "title" output.check
}
if$
format.pub.address "publisher" output.check
format.edition output
format.bdate "year" output.check
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- format.bvolume output
-% \end{macrocode}
-% \iffalse
-%</rsc>
-% \fi
-% \begin{macrocode}
+%<rsc> format.bvolume output
format.chapter.pages "chapter and pages" output.check
fin.entry
}
-% \end{macrocode}
-% As the RSC do not use chapter titles, this is almost
-% identical to inbook. We only have to swap the field 'title'
-% for 'booktitle'.
-% \begin{macrocode}
FUNCTION {incollection}
{ output.bibitem
author empty$
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- { booktitle format.title "booktitle" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- { booktitle format.title.vol "booktitle" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> { booktitle format.title "booktitle" output.check
+%<angew> { booktitle format.title.vol "booktitle" output.check
editor empty$
{ "Need at least an author or an editor for " cite$ * warning$ }
{ "" format.editors * "editor" output.check }
if$
}
{ format.authors output
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- booktitle format.title.in "booktitle" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- booktitle format.title.vol.in "booktitle" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> booktitle format.title.in "booktitle" output.check
+%<angew> booktitle format.title.vol.in "booktitle" output.check
}
if$
format.pub.address "publisher" output.check
format.edition output
format.bdate "year" output.check
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- format.bvolume output
-% \end{macrocode}
-% \iffalse
-%</rsc>
-% \fi
-% \begin{macrocode}
+%<rsc> format.bvolume output
format.chapter.pages "chapter and pages" output.check
fin.entry
}
-% \end{macrocode}
-% A non-standard type, for compatibility with |achmeso|.
-% \begin{macrocode}
FUNCTION {inpress}
{ output.bibitem
format.authors "author" output.check
@@ -1847,30 +1597,11 @@ FUNCTION {inpress}
fin.entry
}
-% \end{macrocode}
-% \changes{v1.1}{2006-12-30}{Added optional pages to inproceedings}
-% \begin{macrocode}
FUNCTION {inproceedings}
{ output.bibitem
format.authors "author" output.check
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- booktitle format.title.noemph "booktitle" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- booktitle format.title "booktitle" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> booktitle format.title.noemph "booktitle" output.check
+%<angew> booktitle format.title "booktitle" output.check
address output
format.date "year" output.check
pages empty$
@@ -1892,24 +1623,8 @@ FUNCTION {manual}
}
{ format.authors output }
if$
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- title format.title "title" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- title format.title.noemph "title" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> title format.title "title" output.check
+%<angew> title format.title.noemph "title" output.check
author empty$
{ organization empty$
{ address output }
@@ -1928,67 +1643,26 @@ FUNCTION {manual}
FUNCTION {mastersthesis}
{ output.bibitem
format.authors "author" output.check
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- bbl.msc emphasize format.thesis.type output
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- bbl.msc format.thesis.type output
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> bbl.msc emphasize format.thesis.type output
+%<angew> bbl.msc format.thesis.type output
school "school" output.check
address output
format.date "year" output.check
fin.entry
}
-% \end{macrocode}
-% \changes{v1.1}{2006-12-29}{Error with missing year fixed in
-% misc type}
-% \begin{macrocode}
FUNCTION {misc}
{ output.bibitem
format.authors output
title format.title output
howpublished output
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- year output
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- format.date output
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> year output
+%<angew> format.date output
note output
fin.entry
empty.misc.check
}
-% \end{macrocode}
-% Although patent is not a standard \BibTeX\ entry type, it is
-% very useful to have it available. It is also aliased as
-% ``other''.
-% \begin{macrocode}
FUNCTION {patent}
{ output.bibitem
organization empty$
@@ -2009,53 +1683,18 @@ FUNCTION {patent}
FUNCTION {phdthesis}
{ output.bibitem
format.authors "author" output.check
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- bbl.phd emphasize format.thesis.type output
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- bbl.phd format.thesis.type output
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> bbl.phd emphasize format.thesis.type output
+%<angew> bbl.phd format.thesis.type output
school "school" output.check
address output
format.date "year" output.check
fin.entry
}
-% \end{macrocode}
-% \changes{v1.1}{2006-12-30}{Added optional pages to proceedings}
-% \begin{macrocode}
FUNCTION {proceedings}
{ output.bibitem
-% \end{macrocode}
-% \iffalse
-%<*rsc>
-% \fi
-% \begin{macrocode}
- title format.title.noemph "title" output.check
-% \end{macrocode}
-% \iffalse
-%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- title format.title "title" output.check
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<rsc> title format.title.noemph "title" output.check
+%<angew> title format.title "title" output.check
address output
format.date "year" output.check
pages empty$
@@ -2065,9 +1704,6 @@ FUNCTION {proceedings}
fin.entry
}
-% \end{macrocode}
-% A non-standard type, for compatibility with |achmeso|.
-% \begin{macrocode}
FUNCTION {remark}
{ output.bibitem
note "note" output.check
@@ -2081,10 +1717,6 @@ FUNCTION {submitted}
fin.entry
}
-% \end{macrocode}
-% The institution, report type and number are combined
-% as the RSC style suggests.
-% \begin{macrocode}
FUNCTION {techreport}
{ output.bibitem
format.authors "author" output.check
@@ -2105,11 +1737,6 @@ FUNCTION {techreport}
fin.entry
}
-% \end{macrocode}
-% For unpublished works, the note is used unless
-% there is a DOI. The format of the DOI is set by
-% the journal.
-% \begin{macrocode}
FUNCTION {unpublished}
{ output.bibitem
format.authors "author" output.check
@@ -2119,35 +1746,17 @@ FUNCTION {unpublished}
if$
doi empty$
{ note output }
-% \end{macrocode}
-% \iffalse
%<*rsc>
-% \fi
-% \begin{macrocode}
{ format.date output
"DOI:" doi tie.or.space.connect output
}
-% \end{macrocode}
-% \iffalse
%</rsc>
-%<*angew>
-% \fi
-% \begin{macrocode}
- { "DOI" doi tie.or.space.connect output }
-% \end{macrocode}
-% \iffalse
-%</angew>
-% \fi
-% \begin{macrocode}
+%<angew> { "DOI" doi tie.or.space.connect output }
if$
fin.entry
empty.doi.note
}
-% \end{macrocode}
-% The following are all cross-referenced to
-% other types, so are grouped in one block.
-% \begin{macrocode}
FUNCTION {conference} {inproceedings}
FUNCTION {other} {patent}
@@ -2169,6 +1778,7 @@ MACRO {dec} {"December"}
READ
+%<*!nat>
STRINGS { longest.label }
INTEGERS { number.label longest.label.width }
@@ -2194,14 +1804,159 @@ EXECUTE {initialize.longest.label}
ITERATE {longest.label.pass}
-% \end{macrocode}
-% Once again, there is a variation in what is needed, depending
-% on whether |mcite| is to be used. First the standard function,
-% then the modified version.
-% \iffalse
-%<*!mc>
-% \fi
-% \begin{macrocode}
+%</!nat>
+%<*nat>
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+ 'len :=
+ s #1 len substring$ =
+ { s len #1 + global.max$ substring$ }
+ 's
+ if$
+}
+
+FUNCTION {format.lab.names}
+{ 's :=
+ s #1 "{vv~}{ll}" format.name$
+ s num.names$ duplicate$
+ #2 >
+ { pop$ bbl.etal space.connect }
+ { #2 <
+ 'skip$
+ { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+ { bbl.etal space.connect }
+ { bbl.and space.connect s #2 "{vv~}{ll}" format.name$ space.connect }
+ if$
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {author.key.label}
+{ author empty$
+ { key empty$
+ { cite$ #1 #3 substring$ }
+ 'key
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+ { editor empty$
+ { key empty$
+ { cite$ #1 #3 substring$ }
+ 'key
+ if$
+ }
+ { editor format.lab.names }
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+ { key empty$
+ { organization empty$
+ { cite$ #1 #3 substring$ }
+ { "The " #4 organization chop.word #3 text.prefix$ }
+ if$
+ }
+ 'key
+ if$
+ }
+ { author format.lab.names }
+ if$
+}
+
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+ { key empty$
+ { organization empty$
+ { cite$ #1 #3 substring$ }
+ { "The " #4 organization chop.word #3 text.prefix$ }
+ if$
+ }
+ 'key
+ if$
+ }
+ { editor format.lab.names }
+ if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+ type$ "inbook" =
+ or
+ 'author.editor.key.label
+ { type$ "proceedings" =
+ 'editor.key.organization.label
+ { type$ "manual" =
+ 'author.key.organization.label
+ 'author.key.label
+ if$
+ }
+ if$
+ }
+ if$
+ 'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+ short.list
+ "("
+ *
+ year duplicate$ empty$
+ short.list key field.or.null = or
+ { pop$ "" }
+ 'skip$
+ if$
+ *
+ 'label :=
+}
+
+ITERATE {calc.label}
+
+STRINGS { longest.label last.label next.extra }
+
+INTEGERS { longest.label.width last.extra.num number.label }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+ #0 int.to.chr$ 'last.label :=
+ "" 'next.extra :=
+ #0 'longest.label.width :=
+ #0 'last.extra.num :=
+ #0 'number.label :=
+}
+
+FUNCTION {forward.pass}
+{ last.label label =
+ { last.extra.num #1 + 'last.extra.num :=
+ last.extra.num int.to.chr$ 'extra.label :=
+ }
+ { "a" chr.to.int$ 'last.extra.num :=
+ "" 'extra.label :=
+ label 'last.label :=
+ }
+ if$
+ number.label #1 + 'number.label :=
+}
+
+EXECUTE {initialize.longest.label}
+
+ITERATE {forward.pass}
+
+%</nat>
+%<*!mc&!nat>
FUNCTION {begin.bib}
{ preamble$ empty$
'skip$
@@ -2210,12 +1965,21 @@ FUNCTION {begin.bib}
"\begin{thebibliography}{" longest.label * "}" * write$ newline$
}
-% \end{macrocode}
-% \iffalse
-%</!mc>
+%</!mc&!nat>
+%<*!mc&nat>
+FUNCTION {begin.bib}
+{ preamble$ empty$
+ 'skip$
+ { preamble$ write$ newline$ }
+ if$
+ "\begin{thebibliography}{" number.label int.to.str$ * "}" *
+ write$ newline$
+ "\providecommand{\natexlab}[1]{#1}"
+ write$ newline$
+}
+
+%</!mc&nat>
%<*mc>
-% \fi
-% \begin{macrocode}
FUNCTION {begin.bib}
{ preamble$ empty$
'skip$
@@ -2224,50 +1988,31 @@ FUNCTION {begin.bib}
"\begin{mcbibliography}{" longest.label * "}" * write$ newline$
}
-% \end{macrocode}
-% \iffalse
%</mc>
-% \fi
-% \begin{macrocode}
EXECUTE {begin.bib}
EXECUTE {init.state.consts}
ITERATE {call.type$}
-% \end{macrocode}
-% \iffalse
%<*!mc>
-% \fi
-% \begin{macrocode}
FUNCTION {end.bib}
{ newline$
"\end{thebibliography}" write$ newline$
}
-% \end{macrocode}
-% \iffalse
%</!mc>
%<*mc>
-% \fi
-% \begin{macrocode}
FUNCTION {end.bib}
{ newline$
"\end{mcbibliography}" write$ newline$
}
-% \end{macrocode}
-% \iffalse
%</mc>
-% \fi
-% \begin{macrocode}
EXECUTE {end.bib}
% \end{macrocode}
-% \iffalse
%</bib>
% \fi
-% Phew, all done!
% \PrintChanges
+% \PrintIndex
% \Finale
-% \end{document}
-\endinput
diff --git a/Master/texmf-dist/source/latex/rsc/rsc.ins b/Master/texmf-dist/source/latex/rsc/rsc.ins
index cc580058168..6a13ee1de1d 100644
--- a/Master/texmf-dist/source/latex/rsc/rsc.ins
+++ b/Master/texmf-dist/source/latex/rsc/rsc.ins
@@ -21,7 +21,7 @@
----------------------------------------------------------------
The rsc package - BibTeX and macro support for Royal Society
of Chemistry and Wiley chemistry articles
- Maintained by Joseph A. Wright
+ Maintained by Joseph Wright
E-mail: joseph.wright@morningstar2.co.uk
Released under the GNU General Public License
See http://www.gnu.org/licenses/gpl.txt
@@ -41,8 +41,10 @@
\usedir{bibtex/bst/rsc}
\generate{\usepostamble\bibtexable
\file{rsc.bst}{\from{rsc.dtx}{bib,rsc}}
+ \file{rscnat.bst}{\from{rsc.dtx}{bib,rsc,nat}}
\file{rsc-mc.bst}{\from{rsc.dtx}{bib,rsc,mc}}
\file{angew.bst}{\from{rsc.dtx}{bib,angew}}
+ \file{angewnat.bst}{\from{rsc.dtx}{bib,angew,nat}}
\file{angew-mc.bst}{\from{rsc.dtx}{bib,angew,mc}}
}
\endbatchfile
diff --git a/Master/texmf-dist/tex/latex/rsc/rsc.sty b/Master/texmf-dist/tex/latex/rsc/rsc.sty
index 08ae5897ad9..658239f8701 100644
--- a/Master/texmf-dist/tex/latex/rsc/rsc.sty
+++ b/Master/texmf-dist/tex/latex/rsc/rsc.sty
@@ -8,30 +8,41 @@
%% ----------------------------------------------------------------
%% The rsc package - BibTeX and macro support for Royal Society
%% of Chemistry and Wiley chemistry articles
-%% Maintained by Joseph A. Wright
+%% Maintained by Joseph Wright
%% E-mail: joseph.wright@morningstar2.co.uk
%% Released under the GNU General Public License
%% See http://www.gnu.org/licenses/gpl.txt
%% ----------------------------------------------------------------
+
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{rsc}[2007/01/01 v1.1
-Useful chemistry functions]
-\RequirePackage{unitsdef,graphicx,amssymb,fixltx2e,float,varioref}
-\RequirePackage[super]{cite}
-\RequirePackage[labelsep=quad,labelfont=bf]{caption}
-\newif\ifRSC@floatcentre\RSC@floatcentretrue
-\DeclareOption{floatleft}{\global\RSC@floatcentrefalse}
-\DeclareOption{fl}{\global\RSC@floatcentrefalse}
-\newif\ifRSC@captioncentre\RSC@captioncentretrue
-\DeclareOption{captionleft}{\global\RSC@captioncentrefalse}
-\DeclareOption{cl}{\global\RSC@captioncentrefalse}
-\newif\ifRSC@chapter\RSC@chapterfalse
-\DeclareOption{chapter}{\global\RSC@chaptertrue}
-\DeclareOption{ch}{\global\RSC@chaptertrue}
-\newif\ifRSC@angew\RSC@angewfalse
+\ProvidesPackage{rsc}[2007/07/21 v2.0
+ Useful chemistry functions]
+\RequirePackage{unitsdef,graphicx,amssymb,fixltx2e,varioref}
+\newif \ifRSC@fl \RSC@flfalse
+\newif \ifRSC@cl \RSC@clfalse
+\newif \ifRSC@chapter \RSC@chapterfalse
+\newif \ifRSC@angew \RSC@angewfalse
+\newif \ifRSC@natbib \RSC@natbibfalse
+\DeclareOption{floatleft}{\global\RSC@fltrue}
+\DeclareOption{fl}{\global\RSC@fltrue}
+\DeclareOption{captionleft}{\global\RSC@cltrue}
+\DeclareOption{cl}{\global\RSC@cltrue}
+\DeclareOption{chapter}{\global\RSC@chaptertrue%
+ \PassOptionsToPackage{chapter}{chemscheme}}
+\DeclareOption{ch}{\global\RSC@chaptertrue%
+ \PassOptionsToPackage{chapter}{chemscheme}}
\DeclareOption{angew}{\global\RSC@angewtrue%
-\global\RSC@captioncentrefalse}
+ \global\RSC@cltrue}
+\DeclareOption{natbib}{\global\RSC@natbibtrue}
+\DeclareOption{chemcompounds}%
+ {\PassOptionsToPackage{chemcompounds}{chemscheme}}
\ProcessOptions
+\RequirePackage{chemscheme}
+\ifRSC@natbib
+ \RequirePackage[numbers,sort&compress,super]{natbib}
+\else
+ \RequirePackage[super]{cite}
+\fi
\newunit{\cubiccentimeter}{\cm\unitsuperscript{3}}
\newcommand*{\cmc}{\cubiccentimeter}
\newcommand*{\Hz}{\hertz}
@@ -41,74 +52,63 @@ Useful chemistry functions]
\newcommand*{\standardstate}%
{\textsuperscript{\rotatebox[origin=c]{140.8}%
{\ensuremath{\varnothing}}}}
-\newcommand*{\iPr}{\ifRSC@angew\emph{i}Pr\else Pr\textsuperscript{i}\fi}
-\newcommand*{\iBu}{\ifRSC@angew\emph{i}Bu\else Bu\textsuperscript{i}\fi}
-\newcommand*{\tBu}{\ifRSC@angew\emph{t}Pr\else Bu\textsuperscript{t}\fi}
-\ifRSC@angew
- \def\@citess#1{\textsuperscript{[#1]}}
-\fi
+\newcommand*{\iPr}%
+ {\ifRSC@angew\emph{i}Pr\else Pr\textsuperscript{i}\fi}
+\newcommand*{\iBu}%
+ {\ifRSC@angew\emph{i}Bu\else Bu\textsuperscript{i}\fi}
+\newcommand*{\sBu}%
+ {\ifRSC@angew\emph{s}Bu\else Bu\textsuperscript{s}\fi}
+\newcommand*{\tBu}%
+ {\ifRSC@angew\emph{t}Bu\else Bu\textsuperscript{t}\fi}
\ifRSC@angew
- \floatstyle{plaintop}
- \captionsetup[Table]{labelsep=colon}
- \captionsetup[Scheme]{labelsep=period}
- \captionsetup[Figure]{labelsep=period}
-\fi
-\ifRSC@captioncentre
- \relax
-\else
- \captionsetup{singlelinecheck=off}
-\fi
-\ifRSC@chapter
- \ifx\chapter\@undefined
- \PackageError{rsc}{No chapters in this document}\@eha
- \newfloat{Scheme}{htbp}{los}
- \newfloat{Figure}{htbp}{lof}
- \newfloat{Table}{htbp}{lot}
+ \ifRSC@natbib
+ \renewcommand\NAT@open{[}\renewcommand\NAT@close{]}
\else
- \newfloat{Scheme}{htbp}{los}[chapter]
- \newfloat{Figure}{htbp}{lof}[chapter]
- \newfloat{Table}{htbp}{lot}[chapter]
+ \def\@citess#1{\textsuperscript{[#1]}}
\fi
-\else
- \newfloat{Scheme}{htbp}{los}
- \newfloat{Figure}{htbp}{lof}
- \newfloat{Table}{htbp}{lot}
+ \else
+ \def\@biblabel#1{#1}
\fi
-\floatname{Scheme}{Scheme}
-\floatname{Table}{Table}
\ifRSC@angew
- \floatname{Figure}{Figure}
+ \RequirePackage[labelsep=period,labelfont=bf]{caption}
+ \captionsetup[table]{labelsep=colon}
\else
- \floatname{Figure}{Fig.}
+ \RequirePackage[labelsep=quad,labelfont=bf]{caption}
\fi
-\ifRSC@floatcentre
- \newenvironment{scheme}[1][htbp]{\begin{Scheme}[#1]\centering}
- {\end{Scheme}}
- \renewenvironment{figure}[1][htbp]{\begin{Figure}[#1]\centering}
- {\end{Figure}}
- \renewenvironment{table}[1][htbp]{\begin{Table}[#1]\centering}
- {\end{Table}}
+\ifRSC@cl
+ \captionsetup{singlelinecheck=off}
\else
- \newenvironment{scheme}[1][htbp]{\begin{Scheme}[#1]\flushleft}
- {\end{Scheme}}
- \renewenvironment{figure}[1][htbp]{\begin{Figure}[#1]\flushleft}
- {\end{Figure}}
- \renewenvironment{table}[1][htbp]{\begin{Table}[#1]\flushleft}
- {\end{Table}}
\fi
-\newcommand*{\listofschemes}[1][List of Schemes]%
- {\listof{Scheme}{#1}}
-\renewcommand*{\listoffigures}[1][List of Figures]%
- {\listof{Figure}{#1}}
-\renewcommand*{\listoftables}[1][List of Tables]%
- {\listof{Table}{#1}}
-\labelformat{Scheme}{Scheme~#1}
\ifRSC@angew
- \labelformat{Figure}{Figure~#1}
\else
- \labelformat{Figure}{Fig.~#1}
+ \renewcommand{\figurename}{Fig.}
+\fi
+\@ifclassloaded{memoir}
+ {\let\newfloat\@undefined
+ \RequirePackage{float}}
+ {}
+\floatstyle{plaintop}
+\restylefloat{table}
+\floatstyle{plain}
+\restylefloat{scheme}
+\restylefloat{figure}
+\floatplacement{table}{htbp}
+\floatplacement{scheme}{htbp}
+\floatplacement{figure}{htbp}
+\newcommand*{\floatcontentscentre}%
+ {\let\RSC@everyfloat\centering}
+\newcommand*{\floatcontentsleft}%
+ {\let\RSC@everyfloat\relax}
+\let\RSC@floatboxreset\@floatboxreset
+\def\@floatboxreset{\RSC@everyfloat\RSC@floatboxreset}
+\ifRSC@fl
+ \floatcontentsleft
+\else
+ \floatcontentscentre
\fi
-\labelformat{Table}{Table~#1}
+\labelformat{scheme}{\schemename~#1}
+\labelformat{figure}{\figurename~#1}
+\labelformat{table}{\tablename~#1}
\endinput
%%
%% End of file `rsc.sty'.