natdin.bst

%%  natdin.bst   Vers. [3.1]  2006-01-02   mit PWD cite-multimode
%%
%%  Aenderungen seit Vers. [3.0bx]:
%%  a) Funktions-Zusaetze bei Autoren sind nun moeglich
%%  b) Internetquellen ohne Zusatz "Online--Ressource" !
%%  c) verbesserte INPROCEEDINGS, PROCEEDINGS-Funktionen
%%  d) neue TECHREPORT und MANUAL-Funktionen
%%  e) neue format.pages.book-Funktion
%%  f) neue format.online.lastchecked-Funktion
%%  
%%
%%   K.F.Lorenzen  (Copyright 1994-2006)  email:  lorenzen.marxen@t-online.de
%%  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%%  Mit diesem BibTex-style werden Literaturverzeichnisse nach dem deutschen
%%  Standard DIN 1505, Teil 2 und 3 formatiert. Die label im Quellen-/
%%  Literaturverzeichnis sind vom Typ 'Verfasser - Jahr' und
%%  entsprechen den Zitatformen im Text. Es koennen alle von
%%  Patrick W. Daly im natbib-Paket implementierten Zitierbefehle
%%  genutzt werden. Eine Kurzbeschreibung liegt als Datei natnotes.pdf zusammen
%%  mit der im Aufbau befindlichen Beschreibung des natdin-Stils
%%  unter der URL  http://www.haw-hamburg.de/pers/Lorenzen/bibtex.
%%  Eine Anleitung zur Anwendung der Norm DIN 1505 findet sich unter der
%%  URL http://www.bui.haw-hamburg.de/pers/klaus.lorenzen/ASP/litverz.pdf
%%
%%  Es werden nun auch Elektronische Online / Offline Ressourcen wie
%%  Internetquellen, CD-ROM usw. verarbeitet. Dazu kommen spezielle
%%  Publikationsformen wie Patente, Normen, Karten, Fernsehaufzeichnungen,
%%  Gesetzesstellen, Spiele u.a.
%
%%  NATDIN.BST muss zusammen mit NATBIB.STY von Patrick W. Daly und der in
%%  dieser Verteilung modifizierten Konfiguration NATBIB.CFG aufgerufen
%%  werden. NATDIN.BST ist vorzugsweise in den ...\bibtex\bst - Pfad zu
%%  stellen. Die jeweils individuelle Konfiguration NATBIB.CFG wird am
%%  besten in das Verzeichnis der LaTex-Quelle selbst gelegt.
%%
%%  Eine Muster-Konfiguration wird auf Vorschlag von Helge Baumann eingefuegt:
%   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%   NATBIB.CFG        in Verbindung mit natbib.sty     Lorenzen, 2005-05-31
%		      diese Konfigurationsdatei wird zuletzt eingelesen und
%		      enthaelt die lokal gewuenschten Einstellungen fuer den
%		      Bibliographie-- und Zitierstil
%
%   \newcommand{\bibstyle@natdin}%
%       {\bibpunct{(}{)}{;}{a}{}{,~}
%       \gdef\NAT@biblabelnum##1{\textbf{##1}\\}} %% \\ bewirkt Zeilenumbruch
%                                                 %% nach label-Ausgabe
%
%   \bibstyle@natdin
%
%   % Einzug der Belege nach der Einordnungsmarke
%   \setlength{\bibhang}{7mm}
%
%%  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%%
%%  Zur Gewaehrleistung der Allgemeingueltigkeit von bib-files gelten
%%  in den DIN-styles mit einer einzigen Ausnahme die in der Tex-Literatur
%%  veroeffentlichten originalen Definitionen und Regeln fuer die
%%  Publikationstypen (entry-types) und die bibliographischen Felder (fields).
%%  Die Ausnahme bezieht sich auf den entry-type PROCEEDINGS und das Feld
%%  address, fuer das Oren Patashnik dort die Sonderbedeutung "Konferenzort"
%%  gewaehlt hatte. In den DIN-Stilen behaelt address auch hier seine normale
%%  Bedeutung als "Verlagsort" bei!
%%  In einigen entry-types werden zu Gunsten bibliographischer Vollstaendigkeit
%%  mehr optionale Felder verwendet als seinerzeit von Patashnik angegeben.
%%  Treten "Schoenheitsfehler" im fertig gesetzten output auf,
%%  lassen sich diese so gut wie immer durch eine veraenderte
%%  Erfassung im bib-inputfile beseitigen. Oren Patashnik empfiehlt, die
%%  Definition der Felder weit auszulegen. Last but not least koennen
%%  Sie im output-file < *.bbl > noch letzte Hand zur Korrektur ansetzen.
%%  Wegen der meist langen Internetadressen kann es zu "unschoenen" Luecken
%%  im Belegtext kommen. Dann muss mit \underfull hbox.... gekaempft werden.
%%
%%  Die Darstellung von Internetadressen wird durch das Zusatzpaket
%%  url.sty  ver 3.1, 15-Mar-2004 von Donald Arseneau erheblich verbessert und
%%  wird sehr empfohlen.
%%
%%  HYPERREF-Paket: wird dieses Paket zusaetzlich geladen, werden im output
%%  aktivierbare externe (URLs usw.) und interne (Dokumentbezogene) Links
%%  gesetzt. Sehr gute Zusammenarbeit mit PDFLaTex u.a.
%
%%  WARN- UND FEHLERMELDUNGEN
%%  Ursache von Warnmeldungen sind meistens ausgelassene Felder oder
%%  Erfassungs-"Fehler". Letztere haengen teilweise mit den gegenueber US-
%%  Gepflogenheiten andersartigen bibliographischen Regeln nach DIN 1505
%%  zusammen. Sie sind also in Wahrheit keine "Fehler" und duerfen fast immer
%%  ignoriert werden. Dennoch pruefen Sie diese Warnungen, um heraus zu finden,
%%  ob Publikationstyp (=entry-type) und "fields" eventuell unzulaessig
%%  kombiniert worden sind.
%%  Echte Fehler ("errors") duerften nur noch bei bibliographisch falscher
%%  Erfassung auftreten. Pruefen Sie die Syntax, den entry-type und die fields.
%%  Zu guter letzt: Qualitaetsmasstab ist einzig der DIN-konforme output!
%%
%%  DANKSAGUNG
%%  Hartmut Lueddecke, HAW Hamburg, hat viele Verbesserungsvorschlaege
%%  in die frueheren Versionen eingebracht. Ihm danke ich herzlich.
%%  Patrick W. Daly, dem Entwickler des Natbib-Stils, verdanke ich viele
%%  Anregungen und den steten Ansporn, die DIN-Stile zu verbessern.
%%  Helge Baumann hatte mit seiner Weiterentwicklung meines alten natdin.bst
%%  zu dinat.bst (Vers. 2001) die volle Zitierkapazitaet des natbib-Pakets
%%  eingefuehrt. Damit war ein deutlicher Zugewinn erreicht. Von ihm stammt
%%  der in der vorliegenden natdin.bst-Version 3.0x neu eingefuehrte Befehl
%%  \dinatlabel unter seinem von H. Baumann vergebenen Namen.
%%  Viele an dieser Stelle ungenannt bleibende Anwender haben mich in
%%  den vergangenen Jahren auf Fehler oder Verbesserungsmoeglichkeiten
%%  aufmerksam gemacht und so diesen Stil mitentwickelt. Ihnen gilt mein
%%  besonderer Dank. Ihr Feedback ist immer willkommen und eine Ermunterung.
%%
%%  Klaus F. Lorenzen
%%
%%  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%%  version 0.99c for BibTeX versions 0.99c or later, LaTeX2e version
%%  Copyright (C) 1985, all rights reserved.
%%  Copying of this file is authorized only if either
%%  (1) you make absolutely no changes to your copy, including name, or
%%  (2) if you do make changes, you name it something other than
%%  natdin.bst, natbib.sty
%%  This restriction helps ensure that all standard styles are identical.
%%  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%%
%%  NEUE FELDER
%%  Zur Erfassung von Internetquellen, E-mail u.a. gibt es folgende
%%  neue Felder: doi, lastchecked (nach Gray), url, urn
%%  Internetquellen (z.B. auch E-mail) werden vorzugsweise mit dem
%%  BOOKLET-Typ erfasst.
%%  Normen, Patente, Schutzrechte, Gesetzesstellen  sind mit dem MISC-Typ
%%  zu erfassen.
%%


ENTRY
  { address      %%  Verlagsort (immer!)
    author       %%  persoenlicher Urheber eines Werkes oder am Zustandekommen
                 %%  beteiligte Personen(=Mitarbeiter, Uebersetzer, Redakteur u.a.)
    booktitle    %%  a) Gesamttitel eines mehrbaendigen Werkes
%                %%  b) Titel des Sammelwerks, das einzelne selbstaendige
%                %%     Beitraege mit eigenem Titel enthaelt ->incollection
    chapter      %%  Kapitel in einem Buch (Monographie)
    doi          %%% Digital Object Identifier ->article
    edition      %%  a) Auflagevermerk
%                %%  b) bei selbst. elektron. Quellen == Version ->booklet
    editor       %%  Persoenl.Herausgeber oder Koerperschaftlicher Herausgeber
    howpublished %%  beliebiger Verlegervermerk: veroeffentlicht "von wem, wo"
    institution  %%  Institution, die e.verlagsfreie Veroeffentlichung betreibt
    isbn         %%  Standardnr fuer Buecher
    issn         %%  - " -    :      Zeitschriften u. Serien
    journal      %%  Titel einer Zeitschrift
    key          %%  Zusaetzlich vergebener Sortierschluessel, mitunter notwend.
    lastchecked  %%  neues Feld fuer das Datum des Online-Abrufs
%                %%  einer Internetquelle (n. GRAY )
    month        %%  naehere Bestimmung des Erscheinungsjahres -> macro 's
    note         %%  freies Eingabefeld fuer zusaetzliche Informationen z. Quelle
    number       %%  Versch. Bedeutungen in Abhaengigkeit vom Eingabetyp:
%                %%  a) Bandnummer einer gezaehlten Reihe (series)
%                %%  b) Heftnummer einer Zeitschrift ->article
%                %%  c) Nummer eines Forschungsberichts ->techreport
    organization %%  a) Name der Organisation/des Organisators e. Tagung,Konferenz
%                %%  b) Name einer Firma/Gesellschaft, die ein ->manual herausgab
    pages        %%  Umfangsangaben, meist Seitenzahlen
    publisher    %%  Verlag
    school       %%  Hochschule/Universitaet, die eine Dipl.-Arb./Dissertation veroeff.
    series       %%  Titel e.Reihe, in der ein best. Buchtitel erschienen ist
    title        %%  Titel einer (namentlich gekennzeichneten) Veroeffentlichung
    type         %%  Zusatzfeld z.Kennzeichnung e.besonderen Publikationstyps
    url          %%  neues Feld URL ( Uniform Resource Locator ):
%                %%  Serveradresse einer Internetquelle
    urn          %%  neues Feld URN ( Uniform Resource Name ):
%                %%  Persistent Identifier einer Internetquelle
    volume       %%  a) Zaehlung bei einem mehrbaendigen Werk ->book/->proceedings
%                %%  b) Jahrgang einer Zeitschrift ->article
    year         %%  Erscheinungsjahr
  }
  {}
  { label extra.label sort.label short.list dinat.label}

%%%----------------------------------------------------------------------------
%  Einige Standardvorgaben, die vom Benutzer veraendert werden koennen.
%%%----------------------------------------------------------------------------

%  Abkuerzung ("... und andere") bei Mehrverfasserquellen:

%  FUNCTION { ua.etal } { " u.\,a." }  %% evtl. auch in eckigen Klammern  " [u.\,a.]"

%%  oder lateinisch:  

FUNCTION { ua.etal } { " et~al." }

%% FUNCTION { und } { " u. " }

%%  oder ausgeschrieben:  

FUNCTION { und } { " und " }


% Einige elektronische Medien erhalten nach DIN 1505 eine "Ergaenzende Angabe"
% zusaetzlich zum materiellen Typ, z.B. CD ROM oder DVD u.a.:

FUNCTION { eress } { "Elektronische Ressource" }
%%%-----------------------------------------------------------------------------------

INTEGERS { output.state before.all mid.sentence after.sentence after.block }

INTEGERS { after.firstblock }

INTEGERS { colon.after  period.dash }

INTEGERS { zahl  lang }

INTEGERS { len }

INTEGERS { longest.label.width last.extra.num number.label }

INTEGERS { nameptr namesleft numnames }

INTEGERS { ptr collation collrest }

STRINGS { longest.label last.label next.extra }

STRINGS { h s t u v w }

STRINGS { fkt }

%%---------------------------

FUNCTION {init.state.consts}
{ #0 'before.all :=
  #1 'mid.sentence :=
  #2 'after.sentence :=
  #3 'after.block :=
  #4 'colon.after :=
  #5 'period.dash :=
  #6 'after.firstblock :=
}



FUNCTION {set.period.dash}    %% Wenn ein ". - " die Satzteile trennen soll.!
{ output.state before.all =
    'skip$
    { period.dash  'output.state := }
  if$
}


FUNCTION {set.period.dash.check}
{ empty$
    'skip$
    'set.period.dash
  if$
}

FUNCTION {set.colon.after}   %%$$$ Wenn ein ": " d. Satzteile trennen soll!
{ output.state before.all =
    'skip$
    { colon.after 'output.state  := }
  if$
}

%%           Wenn ein " " die Satzteile trennen soll.!
FUNCTION {new.sentence}
{ output.state before.all =
     'skip$
     { after.sentence 'output.state := }
  if$
}

%% neu 17/2/94                 Wenn ein ", " die Satzteile trennen soll.!
FUNCTION { part.of.sentence }
{ output.state before.all =
     'skip$
     { mid.sentence 'output.state := }
  if$
}

FUNCTION {new.sentence.checka}
{ empty$
    'skip$
    'new.sentence
  if$
}

FUNCTION {output.nonnull}
{ 's :=
  output.state after.block =
      { add.period$  write$
        newline$
        "\newblock " write$
      }
      { output.state before.all =
          { write$ }
          {  output.state colon.after =
               { ": " * write$
                 newline$
                 "\newblock " write$
               }
               { output.state period.dash =
                   { ". -- " *  write$
                     newline$
                     "\newblock " write$
                   }
                   { output.state mid.sentence =
                       { ", " * write$ }
                       { output.state after.sentence =
                           { " " * write$ }
                           { output.state after.firstblock =
                               { add.period$  write$
                                 newline$
                                 "\newblock " write$
                               }
                               { write$
                                 newline$
                                 "\newblock " write$
                               }
                             if$
                            }
                          if$
                       }
                     if$
                   }
                 if$
               }
             if$
           }
         if$
       after.block '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 {new.block}
{ output.state before.all =
    'skip$
    { after.block 'output.state := }
  if$
}

FUNCTION {not}
{   { #0 }
    { #1 }
  if$
}

FUNCTION {and}
{   'skip$
    { pop$ #0 }
  if$
}

FUNCTION {or}
{   { pop$ #1 }
    'skip$
  if$
}

FUNCTION {format.date}
{ year duplicate$ empty$
    { "empty year in " cite$ * warning$
       pop$ "" }
     'skip$
  if$
  month empty$
     'skip$
    { type$ "book" =
      type$ "inbook" =
       OR
         'skip$
         { month " " * swap$ * }
      if$
     }
   if$
%%  ohne Extrabuchstabe beim Erscheinungsjahr
}

FUNCTION {format.edition.or.date}
{ edition empty$ year empty$ and
    { "" }
    { edition empty$
        { type empty$ NOT
            { type #-1 #4 substring$ "mail" =
              type #1 #4 substring$ "Mail" =
              OR
                { " gesendet: " "-- " type * swap$ *
                  format.date *
                }
                { "\,Version:\,"
                  format.date *
                }
              if$
             }
             { "\,Version:\,"
               format.date *
             }
           if$
        }
        { year empty$
            { "\,Version:\," edition * }
            { "\,Version:\," edition * ", " *
              format.date *
            }
          if$
        }
      if$
    }
  if$
}

FUNCTION {format.online.lastcheck}
{ lastchecked empty$
      { url empty$ doi empty$ urn empty$ and and
          { skip$ }
          { "" output }
        if$
      }
      { url empty$ doi empty$ urn empty$ and and
          { "there's a lastchecked date but no url, urn or doi in "
             cite$ * warning$
          }
          { part.of.sentence
            lastchecked "Abruf: " swap$ * output
          }
        if$
      }
    if$
}

FUNCTION {format.maillist.lastcheck}
   { type empty$ NOT
       { type #-1 #4 substring$ "mail" =
         type #1 #4 substring$ "Mail" =
         OR
           { format.online.lastcheck }
           'skip$
         if$
       }
       'skip$ 
     if$
   }

FUNCTION {format.doi}
{ doi empty$
    { "" }
    { new.block "\url{http://dx.doi.org/" doi * "}" *
     %%      { new.block "\url{http://dx.medra.org/" doi * "}" *
    }
  if$
}

FUNCTION {format.url}
{ urn missing$
     { doi missing$
          { url empty$
             { "" }
             { type empty$ NOT
                 { type #-1 #4 substring$ "mail" =
                   type #1 #4 substring$ "Mail" =
                   OR
                      { type$ "incollection" =
                          { "" }
                          { "\,Absenderadresse: \url{" url * "}" * }
                        if$
                      }
                      { "\url{" url * "}" * }%%   evtl. "URL" oder "<...>"
                    if$
                  }
                  { "\url{" url * "}" * }   %%   evtl. "URL" oder "<...>"
                if$
             }
           if$
          }
          { format.doi }
        if$
      }
      { "\url{http://nbn-resolving.de/urn/resolver.pl?urn=" urn * "}" *
      }
    if$
}

FUNCTION {format.maillist.url}
  { url empty$
       { "" }
       { type empty$ 
             { "" }
             { type #-1 #4 substring$ "mail" =
               type #1 #4 substring$ "Mail" =
               OR
                  { "\url{" url * "}" * }
                  { "" }
                if$
              }
           if$
        }
      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" =
                { ua.etal * }
                { und * t * }
              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$
  "\dinatlabel{" dinat.label * "} " *   %% Zeilenumbruch steht in NATBIB.CFG!
  write$
  ""
  before.all 'output.state :=
}


FUNCTION {fin.entry}
{ write$
  newline$
}

FUNCTION {field.or.null}
{ duplicate$ empty$
    { pop$ "" }
    'skip$
  if$
}

FUNCTION {emphasize}
{ duplicate$ empty$
    { pop$ "" }
    { "\emph{" swap$ * "}" * }
  if$
}

FUNCTION { capitalize }
 { duplicate$ empty$
    { pop$ "" }
    { "\textsc{" swap$ * "}" * }
  if$
}

FUNCTION {article.in.journal}
{ duplicate$ empty$
    { pop$ "" }
    { author missing$ title missing$ and
            { emphasize }
            { emphasize "{In: }" swap$ * }
          if$
     }
  if$
}

FUNCTION {format.names}
{ 's :=
  "" 'u  :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    {
       s nameptr "{ll}" format.name$ 't :=
       t capitalize 't :=
       s nameptr "{ jj}" format.name$ 'w :=
       s nameptr "{, ff}{ vv}{ jj}" format.name$ 'u :=
       u  text.length$  'lang :=
       #1 'zahl :=
       "" 'v :=
         {  zahl  lang  <  }
           {  u  zahl  #1  substring$  "~"  =
               {  v  ""  =
                     {  u  #1  zahl  #1  -  substring$  'v :=  }
                     'skip$
                  if$
                  v  u  zahl  #2  substring$ * "." *  w * 'v :=
                }
                'skip$
              if$
            zahl  #1  +  'zahl :=  }
      while$
      v  ""  =
         {  u  'v :=  }
         'skip$
      if$
      t  v  *  fkt  *  't :=
      nameptr #1 >
         { namesleft #1 >
             { " ; " * t * }
             { numnames #2 >
                  { " " * }
                  'skip$
               if$
               t "\textsc{others}" = t "\textsc{others} (Hrsg.)" = or
                  { ua.etal * }
                  { " ; " * t * }
               if$
               }
            if$  %% Ende der namesleft-Pruefung
          }
            't
           if$  %%  Ende der nameptr-Pruefung

      nameptr #1 + 'nameptr :=
      namesleft #1 -  'namesleft :=
    }
  while$  %%  Ende von { namesleft #0 > } ganz oben
  "" 'fkt :=  %% fkt wird zurueckgesetzt
}

FUNCTION {format.authors}
{ author empty$
    { "" }
    { author format.names }
  if$
}

FUNCTION {format.editors}
{ editor empty$
   { author empty$
       { "empty author and editor in " cite$ * warning$ "" }
       'skip$
     if$
   }
   { author empty$
        { " (Hrsg.)" 'fkt :=
          editor format.names
        }
        { " (Hrsg.)" 'fkt :=
          " ; " * editor format.names *
        }
      if$
   }
 if$
 }

%%  2005-11-11
FUNCTION { format.authors.organization }
{ type$ "misc" =
        { organization empty$
            { author empty$
               { "" }
               { author format.names " (Erfinder)" * }
             if$
            }
            { author empty$
               { organization  }
               { author format.names " (Erfinder); " *
                 organization * " (Anmelder)" *
               }
             if$
            }
          if$
        }
        { type$ "manual" =
           { organization empty$
               { format.authors }
               { author empty$
                   { organization capitalize " (Hrsg.)" * }
                   { author format.names }
                 if$
               }
             if$
           }
           'skip$
         if$
        }
      if$     
}

FUNCTION { format.editors.organization }
{ organization empty$
    'skip$
    { type$ "misc" =
        { organization }
        { * " ; " * organization " (Veranst.)" *}
      if$
    }
  if$
}

FUNCTION { format.tr.institution }
{ institution empty$
    'skip$
   { institution capitalize }
 if$
}

FUNCTION {format.ed.incoll}
{ editor empty$
     { "" }
     { " (Hrsg.)" 'fkt :=
       editor format.names
       format.editors.organization
     }
  if$
}


FUNCTION {format.title}
{ title empty$
    { "" }
    { title }  %% Text so wie er dasteht im Feld title
  if$
}

FUNCTION {format.number}
{ number empty$
    { "" }
    { number " " * }  %% Text so wie er im Feld number steht plus " "
  if$
}

FUNCTION {format.digital.type}
{ type empty$
    { "" }
    { type #-1 #4 substring$ "mail" =
      type #1 #4 substring$ "Mail" =
      OR
        { "" }
        { type }  %% Typ einer digitalen Ressource in Form einer
              %% "Ergaenzenden Angabe", so wie er dasteht;
              %% Alternativ kann dieser Text auch in NOTE erfasst werden.
      if$
    }
 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$
}

%%  Auflagenvermerke gibt man komplett, einschliesslich Abkuerzungen in
%%  das Feld edition ein: ---> EDITION= { 3., erw. und verb. Aufl. }
%%  oder fremdsprachlich:      EDITION= { 2nd edition }

FUNCTION {format.edition}
{ edition empty$
    { "" }
    { edition }
  if$
}

FUNCTION {format.version.url}
{ url empty$ doi empty$ urn empty$ and and
   { type$ "techreport" =
       { format.edition }
       { "" }
     if$
   }
   { format.edition.or.date output format.url }
 if$
}

FUNCTION {format.edition.or.version}
{ url empty$ doi empty$ urn empty$ and and
   { format.edition }
   { format.edition.or.date }
 if$
}

FUNCTION {format.address.publisher.year}
{  publisher empty$
      { address empty$
          { year empty$
              { "" }
              { year }
            if$
          }
          { "there's an address but no publisher in " cite$ * warning$
              address ", " * format.date *
          }
        if$
      }
      { address empty$
          { year empty$
              { "neither address nor publication date in " cite$ * warning$
                 publisher
              }
              { publisher ", " * format.date * }
            if$
          }
          { year empty$
              { address " : " * publisher * }
              { address " : " * publisher * ", " * format.date * }
            if$
          }
        if$
       }
     if$
}

FUNCTION {format.howpublished}
{ url missing$ urn missing$ doi missing$ AND AND
    { howpublished empty$
        { address empty$
            { type empty$
              { "" }
              { type #-1 #4 substring$ "mail" =
                  { "(gesendet: " new.sentence
                    format.date * ")" *
                  }
                  { "" }
                if$
               }
             if$
             format.date *
            }
            { address ", " * format.date * }
          if$
        }
        { address empty$
            { howpublished ", " * format.date * }
            { address " : " * howpublished * ", " * format.date * }
          if$
        }
      if$
    }
    { howpublished empty$
        { "" }
        { howpublished }
      if$
    }
  if$
}

FUNCTION {format.btitle}
{ title emphasize
}

FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
    { "~" }
    { " " }
  if$
  swap$ * *
}

FUNCTION {format.btitle.vol}
{ number empty$
   { series empty$
     { volume empty$
        { title emphasize }
        { title emphasize ". Bd." * volume tie.or.space.connect }
       if$
     }
     { volume empty$
        { title emphasize }%% ein Buch, das zusaetzl. SERIES=Reihentitel besitzt
    %% jetzt kommt d. Fall des mehrbaendigen Werkes mit Gesamttitel=SERIES
    %% Zaehlung=VOLUME und Bandtitel=TITLE;
        { series emphasize ". Bd." * volume tie.or.space.connect
                                 ": " * "{\emph{" * title * "}}" * }
       if$
     }
     if$%% series-test
   }
   { title emphasize }%% wenn number ex., dann immer title-Feld
  if$%% Ende number-test
}

FUNCTION {format.series.number.din}
{ volume empty$
    { number empty$
          { series empty$
               { "" }
               { "(" series * ")" * } %% d. Seriennr koennte auch gleich hier
                                      %% im SERIES-Feld miterfasst werden
            if$
          }
          { series empty$
               { "(" number tie.or.space.connect ")" *
                 "there's a number but no series in " cite$ * warning$
               }
               { "(" series * number tie.or.space.connect ")" * }
            if$
          }
       if$
     }
     { series empty$
          { "" }
          { type$ "proceedings" =  %% Sonderfall, es darf VOLUME und NUMBER ex. !
            type$ "inproceedings" = OR
                { number empty$
                    { "(" series * ")" * }
                    { "(" series * number tie.or.space.connect ")" * }
                  if$
                }
                { "" }%%   Ausstieg mit Nullstring, s. Kommentar
            if$
          }%% bei gezaehlten Reihen MUSS die Reihennr. im Feld NUMBER stehen!
       if$ %% wenn also d. Feld VOLUME nicht leer ist, dann liegt ausser bei
           %% Typ PROCEEDINGS/INPROCEEDINGS falsche
      }     %% Erfassung vor und es erfolgt d. Ausstieg mit d. Nullstring!
  if$
}