rsc 3.0 (27aug08)

git-svn-id: svn://tug.org/texlive/trunk@10467 c570f23f-e606-0410-a88d-b1316a301751

10 files changed, 1041 insertions, 9286 deletions

diff --git a/Master/texmf-dist/bibtex/bst/rsc/angew-mc.bst b/Master/texmf-dist/bibtex/bst/rsc/angew-mc.bst
deleted file mode 100644
index b9a0619d3a0..00000000000
--- a/Master/texmf-dist/bibtex/bst/rsc/angew-mc.bst
+++ /dev/null
@@ -1,1059 +0,0 @@
-%%
-%% This is file `angew-mc.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% rsc.dtx  (with options: `bib,angew,mc')
-%%  ----------------------------------------------------------------
-%%  The rsc package - BibTeX support for Royal Society of Chemistry
-%%  and Wiley style article
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  { label }
-
-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 {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {fin.entry}
-{ write$
-  "\relax" write$
-  newline$
-  "\relax" write$
-}
-
-
-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.url}
-{ url empty$
-    { "" }
-    { "\url{" url * "}" * }
-  if$
-}
-
-FUNCTION {format.title.vol}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-  volume empty$
-    'skip$
-    { format.bvolume emphasize
-      swap$ add.comma swap$ *
-    }
-  if$
-  }
-
-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$ url empty$
-  and 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 empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  format.date output
-  format.url 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
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\providecommand{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\begin{mcbibliography}{"  longest.label  * "}" * write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcbibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `angew-mc.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/rsc/angew.bst b/Master/texmf-dist/bibtex/bst/rsc/angew.bst
index bb6521b1d52..9859c2fad86 100644
--- a/Master/texmf-dist/bibtex/bst/rsc/angew.bst
+++ b/Master/texmf-dist/bibtex/bst/rsc/angew.bst
@@ -6,11 +6,11 @@
 %%
 %% rsc.dtx  (with options: `bib,angew')
 %%  ----------------------------------------------------------------
-%%  The rsc package - BibTeX support for Royal Society of Chemistry
-%%  and Wiley style article
+%%  The rsc package --- BibTeX styles for Royal Society of Chemistry
+%%  and Wiley journals
 %%  Maintained by Joseph Wright
 %%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
+%%  Released under the LaTeX Project Public License v1.3c or later
 %%  See http://www.latex-project.org/lppl.txt
 %%  ----------------------------------------------------------------
 %% 
@@ -19,12 +19,16 @@ ENTRY
     author
     booktitle
     chapter
+    ctrl-use-title
+    ctrl-etal-number
+    ctrl-use-doi-all
     doi
     edition
     editor
     howpublished
     institution
     journal
+    key
     note
     number
     organization
@@ -39,10 +43,14 @@ ENTRY
     year
   }
   {}
-  { label }
+  { label
+    extra.label
+    short.list
+  }
 
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
+INTEGERS { output.state before.all mid.sentence }
+INTEGERS { after.sentence after.block after.item }
+INTEGERS { author.or.editor }
 
 FUNCTION {init.state.consts}
 { #0 'before.all :=
@@ -52,6 +60,14 @@ FUNCTION {init.state.consts}
   #4 'after.item :=
 }
 
+INTEGERS { is.use.title etal.number use.doi.all }
+
+FUNCTION {default.is.use.title} { #0 }
+
+FUNCTION {default.etal.number} { #0 }
+
+FUNCTION {default.use.doi.all} { #0 }
+
 FUNCTION {add.comma}
 { ", " * }
 
@@ -97,23 +113,41 @@ FUNCTION {output.check}
   if$
 }
 
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
+INTEGERS { would.add.period.textlen }
+
+FUNCTION {would.add.period}
+{ duplicate$
+  add.period$
+  text.length$
+  'would.add.period.textlen :=
+  duplicate$
+  text.length$
+  would.add.period.textlen =
+    { #0 }
+    { #1 }
+  if$
 }
 
 FUNCTION {fin.entry}
-{ add.period$
+{ would.add.period
+    { "\relax" * write$ newline$
+      "\mciteBstWouldAddEndPuncttrue" write$ newline$
+      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
+      write$ newline$
+      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
+    }
+    { "\relax" * write$ newline$
+      "\mciteBstWouldAddEndPunctfalse" write$ newline$
+      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
+      write$ newline$
+      "{}{\mcitedefaultseppunct}\relax"
+    }
+  if$
   write$
   newline$
+  "\EndOfBibitem" write$
 }
 
-
 FUNCTION {not}
 {   { #0 }
     { #1 }
@@ -166,6 +200,9 @@ FUNCTION {bbl.and}
 FUNCTION {bbl.chapter}
 { "Chapter" }
 
+FUNCTION {bbl.doi}
+{ "DOI" }
+
 FUNCTION {bbl.editor}
 { "Ed.:" }
 
@@ -286,6 +323,19 @@ FUNCTION{find.replace}
   while$
 }
 
+FUNCTION {chr.to.value}
+{ chr.to.int$ #48 -
+  duplicate$ duplicate$
+  #0 < swap$ #9 > or
+    { #48 + int.to.chr$
+      " is not a number..." *
+      warning$
+     pop$ #0
+    }
+    {}
+  if$
+}
+
 FUNCTION{is.a.digit}
 { duplicate$ "" =
     {pop$ #0}
@@ -385,28 +435,35 @@ FUNCTION {format.names}
   #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 }
+  numnames etal.number > etal.number #0 > and
+    { s #1 "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
+      t bbl.etal space.connect
+    }
+    {
+      { 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$
             }
-          if$
-          }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-      }
-  while$
+          't
+        if$
+        nameptr #1 + 'nameptr :=
+        namesleft #1 - 'namesleft :=
+        }
+    while$
+  }
+  if$
 }
 
 FUNCTION {format.authors}
@@ -437,7 +494,7 @@ FUNCTION {format.editors}
       strip.comma
       editor num.names$ #1 >
         { bbl.editors }
-        { bbl.editor }
+       { bbl.editor }
       if$
       " " *
       editor format.names * paren
@@ -445,6 +502,17 @@ FUNCTION {format.editors}
   if$
 }
 
+FUNCTION {format.doi}
+{ use.doi.all
+    { doi empty$
+        { bbl.doi doi tie.or.space.connect output }
+        'skip$
+      if$
+    }
+    'skip$
+  if$
+}
+
 FUNCTION {n.separate.multi}
 { 't :=
   ""
@@ -517,6 +585,91 @@ FUNCTION {format.title.vol}
   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 }
@@ -558,7 +711,8 @@ FUNCTION {format.bdate}
 FUNCTION {either.or.check}
 { empty$
     'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
+    { "Can't use both " swap$ * " fields in "
+      * cite$ * warning$ }
   if$
 }
 
@@ -737,16 +891,20 @@ FUNCTION {format.thesis.type}
 FUNCTION {article}
 { output.bibitem
   format.authors "author" output.check
+  is.use.title
+    { title format.title.noemph "title" output.check }
+    'skip$
+  if$
+
   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 }
+    { "" format.pages.nopp output }
+    { format.vol.pages output }
   if$
+  format.doi
   fin.entry
 }
 
@@ -755,7 +913,8 @@ FUNCTION {book}
   author empty$
     { title format.title.vol "title" output.check
       editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
+        { "Need either an author or editor for "
+          cite$ * warning$ }
         { "" format.editors * "editor" output.check }
       if$
     }
@@ -771,6 +930,7 @@ FUNCTION {book}
     'skip$
     { format.pages output }
   if$
+  format.doi
   fin.entry
 }
 
@@ -781,6 +941,7 @@ FUNCTION {booklet}
   howpublished output
   address output
   format.date output
+  format.doi
   fin.entry
 }
 
@@ -789,7 +950,8 @@ FUNCTION {inbook}
   author empty$
     { title format.title.vol "title" output.check
       editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
+      { "Need at least an author or an editor for "
+        cite$ * warning$ }
       { "" format.editors * "editor" output.check }
     if$
     }
@@ -801,26 +963,33 @@ FUNCTION {inbook}
   format.edition output
   format.bdate "year" output.check
   format.chapter.pages "chapter and pages" output.check
+  format.doi
   fin.entry
 }
 
 FUNCTION {incollection}
 { output.bibitem
   author empty$
-    { booktitle format.title.vol "booktitle" output.check
+    { booktitle
+      format.title.vol
+      "booktitle" output.check
       editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
+        { "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
+      booktitle
+      format.title.vol
+      "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
+  format.doi
   fin.entry
 }
 
@@ -829,6 +998,7 @@ FUNCTION {inpress}
   format.authors "author" output.check
   journal emphasize "journal" output.check
   bbl.inpress output
+  format.doi
   fin.entry
 }
 
@@ -842,6 +1012,7 @@ FUNCTION {inproceedings}
     'skip$
     { format.pages output }
   if$
+  format.doi
   fin.entry
 }
 
@@ -870,6 +1041,7 @@ FUNCTION {manual}
   if$
   format.edition output
   format.date output
+  format.doi
   fin.entry
 }
 
@@ -880,6 +1052,7 @@ FUNCTION {mastersthesis}
   school "school" output.check
   address output
   format.date "year" output.check
+  format.doi
   fin.entry
 }
 
@@ -894,6 +1067,7 @@ FUNCTION {misc}
   format.date output
   format.url output
   note output
+  format.doi
   fin.entry
   empty.misc.check
 }
@@ -912,6 +1086,7 @@ FUNCTION {patent}
   journal emphasize "journal" output.check
   format.pages.patent "pages" output.check
   format.date "year" output.check
+  format.doi
   fin.entry
 }
 
@@ -922,6 +1097,7 @@ FUNCTION {phdthesis}
   school "school" output.check
   address output
   format.date "year" output.check
+  format.doi
   fin.entry
 }
 
@@ -934,19 +1110,7 @@ FUNCTION {proceedings}
     '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
+  format.doi
   fin.entry
 }
 
@@ -967,6 +1131,7 @@ FUNCTION {techreport}
   output
   format.pub.address output
   format.date "year" output.check
+  format.doi
   fin.entry
 }
 
@@ -979,12 +1144,98 @@ FUNCTION {unpublished}
   if$
   doi empty$
     {  note output }
-    {  "DOI" doi tie.or.space.connect output }
+    {
+       bbl.doi doi tie.or.space.connect output
+   }
   if$
   fin.entry
   empty.doi.note
 }
 
+INTEGERS { a b }
+
+FUNCTION {mult}
+{ 'a :=
+  'b :=
+  b #0 <
+    {#-1 #0 b - 'b :=}
+    {#1}
+  if$
+  #0
+  {b #0 >}
+    { a +
+      b #1 - 'b :=
+    }
+  while$
+  swap$
+    'skip$
+    {#0 swap$ -}
+    if$
+}
+
+FUNCTION {str.to.int.aux}
+{ {duplicate$ empty$ not}
+    { swap$ #10 mult 'a :=
+      duplicate$ #1 #1 substring$
+      chr.to.value a +
+      swap$
+     #2 global.max$ substring$
+    }
+  while$
+  pop$
+}
+
+FUNCTION {str.to.int}
+{ duplicate$ #1 #1 substring$ "-" =
+    {#1 swap$ #2 global.max$ substring$}
+    {#0 swap$}
+  if$
+  #0 swap$ str.to.int.aux
+  swap$
+    {#0 swap$ -}
+    {}
+  if$
+}
+
+FUNCTION {yes.no.to.int}
+{ "l" change.case$ duplicate$
+    "yes" =
+    { pop$  #1 }
+    { duplicate$ "no" =
+        { pop$ #0 }
+        { "unknown Boolean " quote$ * swap$ * quote$ *
+          " in " * cite$ * warning$
+          #0
+        }
+      if$
+    }
+  if$
+}
+
+FUNCTION {Control}
+{ ctrl-use-title
+  empty$
+    { skip$ }
+    { ctrl-use-title
+      yes.no.to.int
+      'is.use.title := }
+  if$
+  ctrl-etal-number
+  empty$
+    { skip$ }
+    { ctrl-etal-number
+      str.to.int
+      'etal.number := }
+  if$
+  ctrl-use-doi-all
+  empty$
+    { skip$ }
+    { ctrl-use-doi-all
+      yes.no.to.int
+      'use.doi.all := }
+  if$
+}
+
 FUNCTION {conference} {inproceedings}
 
 FUNCTION {other} {patent}
@@ -1006,39 +1257,197 @@ MACRO {dec} {"December"}
 
 READ
 
-STRINGS { longest.label }
+FUNCTION {initialize.controls}
+{ default.is.use.title 'is.use.title :=
+  default.etal.number 'etal.number :=
+  default.use.doi.all 'use.doi.all :=
+}
+
+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$
+}
 
-INTEGERS { number.label longest.label.width }
+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 :=
-  #1 'number.label :=
+  #0 int.to.chr$ 'last.label :=
+  "" 'next.extra :=
   #0 'longest.label.width :=
+  #0 'last.extra.num :=
+  #0 'number.label :=
 }
 
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
+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 :=
     }
-    'skip$
   if$
+  number.label #1 + 'number.label :=
 }
 
 EXECUTE {initialize.longest.label}
 
-ITERATE {longest.label.pass}
+ITERATE {forward.pass}
 
 FUNCTION {begin.bib}
 { preamble$ empty$
     'skip$
     { preamble$ write$ newline$ }
   if$
-  "\providecommand{\url}[1]{\texttt{#1}}"
+  "\ifx\mcitethebibliography\mciteundefinedmacro"
+  write$ newline$
+  "  \PackageError"
+  "{angew.bst}"
+  "{mciteplus.sty has not been loaded}" * *
+  write$ newline$
+  "  {This bibstyle requires the use of the"
+  " mciteplus package.}" *
+  write$ newline$
+  "\fi"
+  write$ newline$
+  "\begin{mcitethebibliography}{"
+  number.label int.to.str$  * "}" *
+  write$ newline$
+  "\providecommand{\natexlab}[1]{#1}"
+  write$ newline$
+  "\mciteSetBstSublistMode{f}"
+  write$ newline$
+  "\mciteSetBstMaxWidthForm{subitem}"
+  write$ newline$
+  "{\alph{mcitesubitemcount})}"
+  write$ newline$
+  "\mciteSetBstSublistLabelBeginEnd"
+  write$ newline$
+  "{\mcitemaxwidthsubitemform\space}"
+  write$ newline$
+  "{\relax}{\relax}"
   write$ newline$
-  "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
 }
 
 EXECUTE {begin.bib}
@@ -1049,10 +1458,7 @@ ITERATE {call.type$}
 
 FUNCTION {end.bib}
 { newline$
-  "\end{thebibliography}" write$ newline$
+  "\end{mcitethebibliography}" write$ newline$
 }
 
 EXECUTE {end.bib}
-%% 
-%%
-%% End of file `angew.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/rsc/angewM.bst b/Master/texmf-dist/bibtex/bst/rsc/angewM.bst
deleted file mode 100644
index f30f6348225..00000000000
--- a/Master/texmf-dist/bibtex/bst/rsc/angewM.bst
+++ /dev/null
@@ -1,1098 +0,0 @@
-%%
-%% This is file `angewM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% rsc.dtx  (with options: `bib,angew,mcp')
-%%  ----------------------------------------------------------------
-%%  The rsc package - BibTeX support for Royal Society of Chemistry
-%%  and Wiley style article
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  { label }
-
-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 {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-
-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.url}
-{ url empty$
-    { "" }
-    { "\url{" url * "}" * }
-  if$
-}
-
-FUNCTION {format.title.vol}
-{ 't :=
-  t empty$
-    { "" }
-    { t emphasize }
-  if$
-  volume empty$
-    'skip$
-    { format.bvolume emphasize
-      swap$ add.comma swap$ *
-    }
-  if$
-  }
-
-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$ url empty$
-  and 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 empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  format.date output
-  format.url 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
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{angewM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  longest.label  * "}" * write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{\alph{mcitesubitemcount})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `angewM.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/rsc/angewnat.bst b/Master/texmf-dist/bibtex/bst/rsc/angewnat.bst
deleted file mode 100644
index a089a1ab60b..00000000000
--- a/Master/texmf-dist/bibtex/bst/rsc/angewnat.bst
+++ /dev/null
@@ -1,1264 +0,0 @@
-%%
-%% 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 support for Royal Society of Chemistry
-%%  and Wiley style article
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-     key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    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.url}
-{ url empty$
-    { "" }
-    { "\url{" url * "}" * }
-  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$ url empty$
-  and 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 empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  format.date output
-  format.url 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$
-  "\providecommand{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\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/angewnatM.bst b/Master/texmf-dist/bibtex/bst/rsc/angewnatM.bst
deleted file mode 100644
index e7d26bd52dc..00000000000
--- a/Master/texmf-dist/bibtex/bst/rsc/angewnatM.bst
+++ /dev/null
@@ -1,1304 +0,0 @@
-%%
-%% This is file `angewnatM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% rsc.dtx  (with options: `bib,angew,nat,mcp')
-%%  ----------------------------------------------------------------
-%%  The rsc package - BibTeX support for Royal Society of Chemistry
-%%  and Wiley style article
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-     key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    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$
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-
-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.url}
-{ url empty$
-    { "" }
-    { "\url{" url * "}" * }
-  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$ url empty$
-  and 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 empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  format.date output
-  format.url 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$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{angewM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  number.label int.to.str$  * "}" *
-  write$ newline$
-  "\providecommand{\natexlab}[1]{#1}"
-  write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{\alph{mcitesubitemcount})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `angewnatM.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/rsc/rsc-mc.bst b/Master/texmf-dist/bibtex/bst/rsc/rsc-mc.bst
deleted file mode 100644
index 7d880ae6fb7..00000000000
--- a/Master/texmf-dist/bibtex/bst/rsc/rsc-mc.bst
+++ /dev/null
@@ -1,979 +0,0 @@
-%%
-%% This is file `rsc-mc.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% rsc.dtx  (with options: `bib,rsc,mc')
-%%  ----------------------------------------------------------------
-%%  The rsc package - BibTeX support for Royal Society of Chemistry
-%%  and Wiley style article
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  { label }
-
-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 {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {fin.entry}
-{ write$
-  "\relax" write$
-  newline$
-  "\relax" write$
-}
-
-
-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.url}
-{ url empty$
-    { "" }
-    { "\url{" url * "}" * }
-  if$
-}
-
-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$ url empty$
-  and 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 empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url 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
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\providecommand{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\begin{mcbibliography}{"  longest.label  * "}" * write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcbibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `rsc-mc.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/rsc/rsc.bst b/Master/texmf-dist/bibtex/bst/rsc/rsc.bst
index 7ad2dc8f67d..b89f80a15e7 100644
--- a/Master/texmf-dist/bibtex/bst/rsc/rsc.bst
+++ b/Master/texmf-dist/bibtex/bst/rsc/rsc.bst
@@ -6,11 +6,11 @@
 %%
 %% rsc.dtx  (with options: `bib,rsc')
 %%  ----------------------------------------------------------------
-%%  The rsc package - BibTeX support for Royal Society of Chemistry
-%%  and Wiley style article
+%%  The rsc package --- BibTeX styles for Royal Society of Chemistry
+%%  and Wiley journals
 %%  Maintained by Joseph Wright
 %%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
+%%  Released under the LaTeX Project Public License v1.3c or later
 %%  See http://www.latex-project.org/lppl.txt
 %%  ----------------------------------------------------------------
 %% 
@@ -19,12 +19,16 @@ ENTRY
     author
     booktitle
     chapter
+    ctrl-use-title
+    ctrl-etal-number
+    ctrl-use-doi-all
     doi
     edition
     editor
     howpublished
     institution
     journal
+    key
     note
     number
     organization
@@ -39,10 +43,14 @@ ENTRY
     year
   }
   {}
-  { label }
+  { label
+    extra.label
+    short.list
+  }
 
-INTEGERS { output.state before.all mid.sentence after.sentence }
-INTEGERS { after.block after.item author.or.editor }
+INTEGERS { output.state before.all mid.sentence }
+INTEGERS { after.sentence after.block after.item }
+INTEGERS { author.or.editor }
 
 FUNCTION {init.state.consts}
 { #0 'before.all :=
@@ -52,6 +60,14 @@ FUNCTION {init.state.consts}
   #4 'after.item :=
 }
 
+INTEGERS { is.use.title etal.number use.doi.all }
+
+FUNCTION {default.is.use.title} { #0 }
+
+FUNCTION {default.etal.number} { #0 }
+
+FUNCTION {default.use.doi.all} { #0 }
+
 FUNCTION {add.comma}
 { ", " * }
 
@@ -97,23 +113,41 @@ FUNCTION {output.check}
   if$
 }
 
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
+INTEGERS { would.add.period.textlen }
+
+FUNCTION {would.add.period}
+{ duplicate$
+  add.period$
+  text.length$
+  'would.add.period.textlen :=
+  duplicate$
+  text.length$
+  would.add.period.textlen =
+    { #0 }
+    { #1 }
+  if$
 }
 
 FUNCTION {fin.entry}
-{ add.period$
+{ would.add.period
+    { "\relax" * write$ newline$
+      "\mciteBstWouldAddEndPuncttrue" write$ newline$
+      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
+      write$ newline$
+      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
+    }
+    { "\relax" * write$ newline$
+      "\mciteBstWouldAddEndPunctfalse" write$ newline$
+      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
+      write$ newline$
+      "{}{\mcitedefaultseppunct}\relax"
+    }
+  if$
   write$
   newline$
+  "\EndOfBibitem" write$
 }
 
-
 FUNCTION {not}
 {   { #0 }
     { #1 }
@@ -166,6 +200,9 @@ FUNCTION {bbl.and}
 FUNCTION {bbl.chapter}
 { "ch." }
 
+FUNCTION {bbl.doi}
+{ "DOI:" }
+
 FUNCTION {bbl.editor}
 { "ed." }
 
@@ -251,6 +288,52 @@ FUNCTION {eng.ord}
    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 {chr.to.value}
+{ chr.to.int$ #48 -
+  duplicate$ duplicate$
+  #0 < swap$ #9 > or
+    { #48 + int.to.chr$
+      " is not a number..." *
+      warning$
+     pop$ #0
+    }
+    {}
+  if$
+}
+
 FUNCTION{is.a.digit}
 { duplicate$ "" =
     {pop$ #0}
@@ -350,28 +433,35 @@ FUNCTION {format.names}
   #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 }
+  numnames etal.number > etal.number #0 > and
+    { s #1 "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
+      t bbl.etal space.connect
+    }
+    {
+      { 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$
             }
-          if$
-          }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-      }
-  while$
+          't
+        if$
+        nameptr #1 + 'nameptr :=
+        namesleft #1 - 'namesleft :=
+        }
+    while$
+  }
+  if$
 }
 
 FUNCTION {format.authors}
@@ -382,6 +472,19 @@ FUNCTION {format.authors}
   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$
     { "" }
@@ -392,6 +495,17 @@ FUNCTION {format.editors}
   if$
 }
 
+FUNCTION {format.doi}
+{ use.doi.all
+    { doi empty$
+        { bbl.doi doi tie.or.space.connect output }
+        'skip$
+      if$
+    }
+    'skip$
+  if$
+}
+
 FUNCTION {n.separate.multi}
 { 't :=
   ""
@@ -450,6 +564,105 @@ FUNCTION {format.url}
   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 }
@@ -491,7 +704,8 @@ FUNCTION {format.bdate}
 FUNCTION {either.or.check}
 { empty$
     'pop$
-    { "Can't use both " swap$ * " fields in " * cite$ * warning$ }
+    { "Can't use both " swap$ * " fields in "
+      * cite$ * warning$ }
   if$
 }
 
@@ -615,6 +829,21 @@ FUNCTION {format.title.in}
   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$
     { "" }
@@ -654,14 +883,17 @@ FUNCTION {format.thesis.type}
 FUNCTION {article}
 { output.bibitem
   format.authors "author" output.check
+  is.use.title
+    { title format.title.noemph "title" output.check }
+    'skip$
+  if$
   journal emphasize "journal" output.check
   format.date "year" output.check
   volume empty$
-  { ""
-    format.pages.nopp output
-  }
-  { format.vol.pages output }
+    { "" format.pages.nopp output }
+    { format.vol.pages output }
   if$
+  format.doi
   fin.entry
 }
 
@@ -670,7 +902,8 @@ FUNCTION {book}
   author empty$
     { title format.title "title" output.check
       editor empty$
-        { "Need either an author or editor for " cite$ * warning$ }
+        { "Need either an author or editor for "
+          cite$ * warning$ }
         { "" format.editors * "editor" output.check }
       if$
     }
@@ -687,6 +920,7 @@ FUNCTION {book}
     'skip$
     { format.pages output }
   if$
+  format.doi
   fin.entry
 }
 
@@ -697,6 +931,7 @@ FUNCTION {booklet}
   howpublished output
   address output
   format.date output
+  format.doi
   fin.entry
 }
 
@@ -705,7 +940,8 @@ FUNCTION {inbook}
   author empty$
     { title format.title "title" output.check
       editor empty$
-      { "Need at least an author or an editor for " cite$ * warning$ }
+      { "Need at least an author or an editor for "
+        cite$ * warning$ }
       { "" format.editors * "editor" output.check }
     if$
     }
@@ -718,20 +954,26 @@ FUNCTION {inbook}
   format.bdate "year" output.check
   format.bvolume output
   format.chapter.pages "chapter and pages" output.check
+  format.doi
   fin.entry
 }
 
 FUNCTION {incollection}
 { output.bibitem
   author empty$
-    { booktitle format.title "booktitle" output.check
+    { booktitle
+      format.title
+      "booktitle" output.check
       editor empty$
-        { "Need at least an author or an editor for " cite$ * warning$ }
+        { "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
+      booktitle
+      format.title
+      "booktitle" output.check
     }
   if$
   format.pub.address "publisher" output.check
@@ -739,6 +981,7 @@ FUNCTION {incollection}
   format.bdate "year" output.check
   format.bvolume output
   format.chapter.pages "chapter and pages" output.check
+  format.doi
   fin.entry
 }
 
@@ -747,6 +990,7 @@ FUNCTION {inpress}
   format.authors "author" output.check
   journal emphasize "journal" output.check
   bbl.inpress output
+  format.doi
   fin.entry
 }
 
@@ -760,6 +1004,7 @@ FUNCTION {inproceedings}
     'skip$
     { format.pages output }
   if$
+  format.doi
   fin.entry
 }
 
@@ -788,6 +1033,7 @@ FUNCTION {manual}
   if$
   format.edition output
   format.date output
+  format.doi
   fin.entry
 }
 
@@ -798,6 +1044,7 @@ FUNCTION {mastersthesis}
   school "school" output.check
   address output
   format.date "year" output.check
+  format.doi
   fin.entry
 }
 
@@ -812,6 +1059,7 @@ FUNCTION {misc}
   year output
   format.url output
   note output
+  format.doi
   fin.entry
   empty.misc.check
 }
@@ -830,6 +1078,7 @@ FUNCTION {patent}
   journal emphasize "journal" output.check
   format.pages.patent "pages" output.check
   format.date "year" output.check
+  format.doi
   fin.entry
 }
 
@@ -840,6 +1089,7 @@ FUNCTION {phdthesis}
   school "school" output.check
   address output
   format.date "year" output.check
+  format.doi
   fin.entry
 }
 
@@ -852,19 +1102,7 @@ FUNCTION {proceedings}
     '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
+  format.doi
   fin.entry
 }
 
@@ -885,6 +1123,7 @@ FUNCTION {techreport}
   output
   format.pub.address output
   format.date "year" output.check
+  format.doi
   fin.entry
 }
 
@@ -897,14 +1136,99 @@ FUNCTION {unpublished}
   if$
   doi empty$
     {  note output }
-    {  format.date output
-       "DOI:" doi tie.or.space.connect output
-    }
+    {
+       format.date output
+       bbl.doi doi tie.or.space.connect output
+   }
   if$
   fin.entry
   empty.doi.note
 }
 
+INTEGERS { a b }
+
+FUNCTION {mult}
+{ 'a :=
+  'b :=
+  b #0 <
+    {#-1 #0 b - 'b :=}
+    {#1}
+  if$
+  #0
+  {b #0 >}
+    { a +
+      b #1 - 'b :=
+    }
+  while$
+  swap$
+    'skip$
+    {#0 swap$ -}
+    if$
+}
+
+FUNCTION {str.to.int.aux}
+{ {duplicate$ empty$ not}
+    { swap$ #10 mult 'a :=
+      duplicate$ #1 #1 substring$
+      chr.to.value a +
+      swap$
+     #2 global.max$ substring$
+    }
+  while$
+  pop$
+}
+
+FUNCTION {str.to.int}
+{ duplicate$ #1 #1 substring$ "-" =
+    {#1 swap$ #2 global.max$ substring$}
+    {#0 swap$}
+  if$
+  #0 swap$ str.to.int.aux
+  swap$
+    {#0 swap$ -}
+    {}
+  if$
+}
+
+FUNCTION {yes.no.to.int}
+{ "l" change.case$ duplicate$
+    "yes" =
+    { pop$  #1 }
+    { duplicate$ "no" =
+        { pop$ #0 }
+        { "unknown Boolean " quote$ * swap$ * quote$ *
+          " in " * cite$ * warning$
+          #0
+        }
+      if$
+    }
+  if$
+}
+
+FUNCTION {Control}
+{ ctrl-use-title
+  empty$
+    { skip$ }
+    { ctrl-use-title
+      yes.no.to.int
+      'is.use.title := }
+  if$
+  ctrl-etal-number
+  empty$
+    { skip$ }
+    { ctrl-etal-number
+      str.to.int
+      'etal.number := }
+  if$
+  ctrl-use-doi-all
+  empty$
+    { skip$ }
+    { ctrl-use-doi-all
+      yes.no.to.int
+      'use.doi.all := }
+  if$
+}
+
 FUNCTION {conference} {inproceedings}
 
 FUNCTION {other} {patent}
@@ -926,39 +1250,197 @@ MACRO {dec} {"December"}
 
 READ
 
-STRINGS { longest.label }
+FUNCTION {initialize.controls}
+{ default.is.use.title 'is.use.title :=
+  default.etal.number 'etal.number :=
+  default.use.doi.all 'use.doi.all :=
+}
+
+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 { number.label longest.label.width }
+INTEGERS { longest.label.width last.extra.num number.label }
 
 FUNCTION {initialize.longest.label}
 { "" 'longest.label :=
-  #1 'number.label :=
+  #0 int.to.chr$ 'last.label :=
+  "" 'next.extra :=
   #0 'longest.label.width :=
+  #0 'last.extra.num :=
+  #0 'number.label :=
 }
 
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
+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 :=
     }
-    'skip$
   if$
+  number.label #1 + 'number.label :=
 }
 
 EXECUTE {initialize.longest.label}
 
-ITERATE {longest.label.pass}
+ITERATE {forward.pass}
 
 FUNCTION {begin.bib}
 { preamble$ empty$
     'skip$
     { preamble$ write$ newline$ }
   if$
-  "\providecommand{\url}[1]{\texttt{#1}}"
+  "\ifx\mcitethebibliography\mciteundefinedmacro"
+  write$ newline$
+  "  \PackageError"
+  "{rsc.bst}"
+  "{mciteplus.sty has not been loaded}" * *
+  write$ newline$
+  "  {This bibstyle requires the use of the"
+  " mciteplus package.}" *
+  write$ newline$
+  "\fi"
+  write$ newline$
+  "\begin{mcitethebibliography}{"
+  number.label int.to.str$  * "}" *
+  write$ newline$
+  "\providecommand{\natexlab}[1]{#1}"
+  write$ newline$
+  "\mciteSetBstSublistMode{f}"
+  write$ newline$
+  "\mciteSetBstMaxWidthForm{subitem}"
+  write$ newline$
+  "{(\emph{\alph{mcitesubitemcount}})}"
+  write$ newline$
+  "\mciteSetBstSublistLabelBeginEnd"
+  write$ newline$
+  "{\mcitemaxwidthsubitemform\space}"
+  write$ newline$
+  "{\relax}{\relax}"
   write$ newline$
-  "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
 }
 
 EXECUTE {begin.bib}
@@ -969,10 +1451,7 @@ ITERATE {call.type$}
 
 FUNCTION {end.bib}
 { newline$
-  "\end{thebibliography}" write$ newline$
+  "\end{mcitethebibliography}" write$ newline$
 }
 
 EXECUTE {end.bib}
-%% 
-%%
-%% End of file `rsc.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/rsc/rscM.bst b/Master/texmf-dist/bibtex/bst/rsc/rscM.bst
deleted file mode 100644
index aa7a45d014b..00000000000
--- a/Master/texmf-dist/bibtex/bst/rsc/rscM.bst
+++ /dev/null
@@ -1,1018 +0,0 @@
-%%
-%% This is file `rscM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% rsc.dtx  (with options: `bib,rsc,mcp')
-%%  ----------------------------------------------------------------
-%%  The rsc package - BibTeX support for Royal Society of Chemistry
-%%  and Wiley style article
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    volume
-    year
-  }
-  {}
-  { label }
-
-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 {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  ""
-  before.all 'output.state :=
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-
-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.url}
-{ url empty$
-    { "" }
-    { "\url{" url * "}" * }
-  if$
-}
-
-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$ url empty$
-  and 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 empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url 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
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{rscM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  longest.label  * "}" * write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{(\emph{\alph{mcitesubitemcount}})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `rscM.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/rsc/rscnat.bst b/Master/texmf-dist/bibtex/bst/rsc/rscnat.bst
deleted file mode 100644
index b14ec4e19bf..00000000000
--- a/Master/texmf-dist/bibtex/bst/rsc/rscnat.bst
+++ /dev/null
@@ -1,1184 +0,0 @@
-%%
-%% 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 support for Royal Society of Chemistry
-%%  and Wiley style article
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-     key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    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.url}
-{ url empty$
-    { "" }
-    { "\url{" url * "}" * }
-  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$ url empty$
-  and 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 empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url 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$
-  "\providecommand{\url}[1]{\texttt{#1}}"
-  write$ newline$
-  "\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/bibtex/bst/rsc/rscnatM.bst b/Master/texmf-dist/bibtex/bst/rsc/rscnatM.bst
deleted file mode 100644
index 67957cd8aea..00000000000
--- a/Master/texmf-dist/bibtex/bst/rsc/rscnatM.bst
+++ /dev/null
@@ -1,1224 +0,0 @@
-%%
-%% This is file `rscnatM.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% rsc.dtx  (with options: `bib,rsc,nat,mcp')
-%%  ----------------------------------------------------------------
-%%  The rsc package - BibTeX support for Royal Society of Chemistry
-%%  and Wiley style article
-%%  Maintained by Joseph Wright
-%%  E-mail: joseph.wright@morningstar2.co.uk
-%%  Released under the LaTeX Project Public License v1.3 or later
-%%  See http://www.latex-project.org/lppl.txt
-%%  ----------------------------------------------------------------
-%% 
-ENTRY
-  { address
-    author
-    booktitle
-    chapter
-    doi
-    edition
-    editor
-    howpublished
-    institution
-    journal
-     key
-    note
-    number
-    organization
-    pages
-    publisher
-    school
-    series
-    title
-    type
-    url
-    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$
-}
-
-INTEGERS {would.add.period.textlen}
-FUNCTION {would.add.period}
-{ duplicate$
-  add.period$
-  text.length$
-  'would.add.period.textlen :=
-  duplicate$
-  text.length$
-  would.add.period.textlen =
-    { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {fin.entry}
-{ would.add.period
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPuncttrue" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{\mcitedefaultendpunct}{\mcitedefaultseppunct}\relax"
-    }
-    { "\relax" * write$ newline$
-      "\mciteBstWouldAddEndPunctfalse" write$ newline$
-      "\mciteSetBstMidEndSepPunct{\mcitedefaultmidpunct}"
-      write$ newline$
-      "{}{\mcitedefaultseppunct}\relax"
-    }
-  if$
-  write$
-  newline$
-  "\EndOfBibitem" write$
-}
-
-
-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.url}
-{ url empty$
-    { "" }
-    { "\url{" url * "}" * }
-  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$ url empty$
-  and 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 empty$
-    'skip$
-    { title format.title output }
-  if$
-  howpublished output
-  year output
-  format.url 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$
-  "\ifx\mcitethebibliography\mciteundefinedmacro"
-  write$ newline$
-  "\PackageError{rscM.bst}{mciteplus.sty has not been loaded}"
-  write$ newline$
-  "{This bibstyle requires the use of the mciteplus package.}\fi"
-  write$ newline$
-  "\begin{mcitethebibliography}{"  number.label int.to.str$  * "}" *
-  write$ newline$
-  "\providecommand{\natexlab}[1]{#1}"
-  write$ newline$
-  "\mciteSetBstSublistMode{f}"
-  write$ newline$
-  "\mciteSetBstMaxWidthForm{subitem}{(\emph{\alph{mcitesubitemcount}})}"
-  write$ newline$
-  "\mciteSetBstSublistLabelBeginEnd{\mcitemaxwidthsubitemform\space}"
-  write$ newline$
-  "{\relax}{\relax}"
-  write$ newline$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{mcitethebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-%% 
-%%
-%% End of file `rscnatM.bst'.