You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

2212 lines
57 KiB

%% ALPHADIN.BST Ausgabe [8.2] 2006-01-02
%%
%% ersetzt ABBRVDIN.BST Ausgabe [8.1b4] 15/12/2004
%% wichtigste Aenderung gegenueber Version [8.1b4]:
%% die Standardergaenzung "Online-Ressource" bei Internetquellen
%% ist ersatzlos gestrichen worden (wegen ueberfluessiger Redundanz).
%%
%
%% K.F.Lorenzen (Copyright 1994-2006) email: lorenzen.marxen@t-online.de
%% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%% ALPHADIN.BST wurde entwickelt aus Oren Patashnik's BibTeX standard
%% bibliography style `alpha'. Eine vorgegebene Literaturdatenbank laesst sich
%% somit beliebig nach Us- oder deutscher DIN 1505-Zitierkonvention
%% verarbeiten.
%% Analog zu den 4 US standard styles werden 4 DIN-gerechte bst-style Dateien
%% veroeffentlicht (alphadin.bst, plaindin.bst, unsrtdin.bst, abbrvdin.bst).
%% Die gueltige Version ist am schnellsten aus dem WWW ueber folgende URL zu
%% beziehen:
%% http://www.haw-hamburg.de/pers/Lorenzen/bibtex/
%% Stand: 2006-01-02
%% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%% WAS IST ALPHADIN.BST ?
%% Dieser style produziert "deutsche" Literaturzitate in Literaturverzeichnis-
%% sen gemaess der deutschen Norm DIN 1505, Teil 2 vom Jan. 1984.
%% Die Literaturzitate werden alphabetisch nach Verfassern sortiert.
%% Die Zitiermarken im Text und die Ordnungsmarken im Literaturverzeichnis
%% bestehen aus abgekuerzten Verfasserbuchstaben plus Erscheinungsjahr in
%% eckigen Klammern. Die vorliegenden DIN-styles gehen ueber einige bibliogra-
%% phischen Beschraenkungen der Originalstyles hinaus.
%
%% Es werden nun auch Elektronische Online / Offline Ressourcen wie Internet-
%% quellen, CD-ROM usw. verarbeitet. Dazu kommen besondere Publikationsformen
%% wie Patente, Normen, Karten, Fernsehaufzeichnungen, Gesetzesstellen, Spiele.
%
%% Zur Gewaehrleistung der Allgemeingueltigkeit von bib-files gelten in den
%% DIN-styles die in der Tex-Literatur veroeffentlichten originalen
%% Definitionen und Regeln fuer die Publikationstypen (entry-types) und die
%% bibliographischen Felder (fields).
%% Treten kleinere "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.
%
%% 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 herauszufinden,
%% ob Publikationstyp (=entry-type) und "fields" eventuell unzulaessig
%% kombiniert worden sind.
%% Echte Fehler ("errors") treten nur noch in Verbindung mit falscher
%% Erfassung auf (nach meinen Tests!). 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.
%% 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
%%
%%
%%
%% HINWEIS: Neben den vier bibliographischen DIN 1505 Standard-Stilen
%% nach den Original-styles von Oren Patashnik
%% gibt es noch vier DIN 1505 Adaptionen der NATBIB-style
%% Emulationen von Patrick W.Daly. Die Fuelle der darin
%% implementierten Zitierweisen geht weit ueber die urspruenglichen
%% Standardstyles hinaus.
%% Naeheres unter URL http://www.haw-hamburg.de/pers/Lorenzen/bibtex/
%%
%%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%% 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
%% alphadin.bst
%% This restriction helps ensure that all standard styles are identical.
%%
%%
%%
%%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%% NEUE FELDER
%% Zur Erfassung der neuen digitalen Online-Medien z.B. Internetquellen, E-journals, E-books,
%% E-mail u.a. gibt es die zusaetzlichen Felder: doi, url, urn, lastchecked
%% Internetquellen werden vorzugsweise mit dem BOOKLET-Typ erfasst.
%% Normen, Patente, Schutzrechte 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 }
%%%----------------------------------------------------------------------------
% 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 { colon.after period.dash }
INTEGERS { after.firstblock }
INTEGERS { zahl lang }
INTEGERS { nameptr namesleft numnames }
INTEGERS { ptr collation collrest }
INTEGERS { len }
INTEGERS { et.al.char.used }
INTEGERS { longest.label.width last.extra.num }
%-------------------------
STRINGS { longest.label last.sort.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 {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 {output.bibitem}
{ newline$
"\bibitem[" write$
label write$%
"]{" write$
cite$ write$
"}" write$
newline$
""
before.all 'output.state :=
}
FUNCTION {fin.entry}
{ write$
newline$
}
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$
}
%% 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 {field.or.null}
{ duplicate$ empty$
{ pop$ "" }
'skip$
if$
}
FUNCTION {emphasize}
{ duplicate$ empty$
{ pop$ "" }
{ "\emph{" swap$ * "}" * }
if$
}
FUNCTION { capitalize }
{ duplicate$ empty$
{ pop$ "" }
{ "\textsc{" swap$ * "}" * }
if$
}
%% Adelspraedikate beim Sortieren nach den(m) Vornamen auffuehren
%% Abweichend v. DIN !!!
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$
{ author empty$
{ "" }
{ author format.names }
if$
}
{ author empty$
{ organization capitalize " (Hrsg.)" * }
{ author format.names " ; " *
organization capitalize * " (Hrsg.)" *
}
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 {article.in.journal}
{ duplicate$ empty$
{ pop$ "" }
{ author missing$ title missing$ and
{ emphasize }
{ emphasize "{In: }" swap$ * }
if$
}
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.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$
}
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.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.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.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.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.address.publisher.year.alt}
{ publisher empty$
{ address empty$
{ year empty$
{ "" }
{ url empty$
{ year }
{ "" }
if$
}
if$
}
{ "there's an address but no publisher in " cite$ * warning$
address ", " * format.date *
}
if$
}
{ url empty$%%%% wenn es URL gibt wird nur die service-provider Adresse
%%% ausgegeben, die im publisher-Feld steht
{ 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$
}
{ publisher }
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.lastchecked.or.type}%% nur in misc-Funktion
{ lastchecked empty$
{ url empty$ doi empty$ urn empty$ and and
{ type empty$
{ skip$ }
{ type set.period.dash.check
type output
}
if$
}
{ type empty$
{ skip$ }
{ type #-1 #4 substring$ "mail" =
type #1 #4 substring$ "Mail" =
OR
{ skip$ }
{ type set.period.dash.check
type output }
if$
}
if$
}
if$
}
{ url empty$ doi empty$ urn empty$ and and
{ "there's a lastchecked date but no url, urn or doi in "
cite$ * warning$
}
{ type empty$
{ "there's a URL and a lastchecked date but no type in "
cite$ * warning$
}
{ type set.period.dash.check
type output
part.of.sentence
lastchecked "Abruf: " swap$ * output
}
if$
}
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 * ")" *
"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 falsche
} %% Erfassung vor und es erfolgt d. Ausstieg mit d. Nullstring!
if$
}
FUNCTION {format.tr.series.or.number}
{ number empty$
{ series empty$
{ "" }
{ "(" series * ")" * }
if$
}
{ series empty$
{ "(" number * ")" * }
{ "(" series * number tie.or.space.connect ")" * }
if$
}
if$
}
FUNCTION {format.misc.series}
{ series empty$
{ "" }
{ "(" series * ")" * }
if$
}
FUNCTION { format.doi.urn }
{ urn empty$
{ doi empty$
{ "" }
{ "DOI" doi n.dashify tie.or.space.connect }
if$
}
{ "URN" urn n.dashify tie.or.space.connect }
if$
}
FUNCTION { format.isbn.issn }
{ isbn empty$
{ issn empty$
{ "" }
{ "ISSN" issn n.dashify tie.or.space.connect }
if$
}
{ "ISBN" isbn n.dashify tie.or.space.connect }
if$
}
FUNCTION {format.pages}
{ pages empty$
{ "" }
{ url empty$
{ "S." pages n.dashify tie.or.space.connect }
{ pages }
if$
}
if$
}
FUNCTION {format.pages.book}
{ pages empty$
{ "" }
{ note empty$ isbn empty$ AND
{ " S." pages n.dashify tie.or.space.connect "" *
add.period$ }
{ " S." pages n.dashify tie.or.space.connect "" * }
if$
}
if$
}
FUNCTION {format.pages.bkcollation}
{ pages empty$
{ "" }
{ "" pages n.dashify tie.or.space.connect }
if$
}
FUNCTION {format.bkpages.collat.check}
{ 's :=
#1 'ptr :=
s text.length$ 'collation :=
collation #1 =
{ format.pages.book }
{
collation 'collrest :=
{ collrest #0 > }
{ s ptr #2 substring$ 't :=
t "S." =
{ format.pages.bkcollation
#0 'collrest := }
{ ptr #1 + 'ptr :=
collrest #1 - 'collrest :=
#1 collrest =
{ format.pages.book }
{ skip$ }
if$
}
if$
}
while$
}
if$
}
FUNCTION {format.vol.year.num.pages}
{ volume field.or.null
year empty$
{ "there's no year in " cite$ * warning$ }
{ " (" year * ")" * * }
if$
month empty$
'skip$
{ ", " month * * }
if$
number empty$
'skip$
{ ", Nr. " number * * }
if$
pages empty$
'skip$
{ duplicate$ empty$
{ pop$ "" }
{ title missing$
{ ", " pages format.bkpages.collat.check * *}
{ ", " format.pages * *}
if$
}
if$
}
if$
}
FUNCTION {format.chapter.inbook}
{ duplicate$ empty$
{ pop$ "empty chapter in " cite$ * warning$ }
{ type empty$
{ "\emph{Kapitel\/} " swap$ tie.or.space.connect }
{ type " " * swap$ * }%% wenn keine bes. Abschnittsform gen. werden soll,
%% koennte e. kl. Zwischenraum gewaehlt werden, z.B. " \, "
if$
}
if$
}
FUNCTION {format.chapter.pages}
{ chapter empty$
'format.pages
{ type empty$
{ "Kapitel " }
{ url empty$
{ type }
{ "Kapitel " }
if$
}
if$
chapter tie.or.space.connect
pages empty$
'skip$
{ ", " * format.pages * }
if$
}
if$
}
FUNCTION {format.in.ed.booktitle.din}
{ booktitle empty$
{ "" }
{ editor empty$
{ volume empty$
{ "{In: }" booktitle emphasize * }
{ "{In: }" booktitle emphasize *
" Bd." volume tie.or.space.connect *
}
if$
}
{ volume empty$
{ "{In: }" format.ed.incoll * ": " * booktitle emphasize * }
{ "{In: }" format.ed.incoll * ": " * booktitle emphasize *
" Bd." volume tie.or.space.connect *
}
if$
}
if$
}
if$
}
FUNCTION {format.thesis.tr.type}
{ type empty$
'skip$
{ pop$
type
}
if$
}
FUNCTION {format.article.crossref}
{ key empty$
{ journal empty$
{ "need key or journal for " cite$ * " to crossref " * crossref *
warning$
""
}
{ "{In: }{\emph " journal * "}" * }
if$
}
{ "{In: }" key * }
if$
"\cite{" * crossref * "}" * ", " * format.pages *
}
FUNCTION {format.crossref.editor}
{ editor #1 "{ll}" format.name$ " (Hrsg.)" *
editor num.names$ duplicate$
#2 >
{ pop$ ua.etal * }%% --->u. a.
{ #2 <
'skip$
{ editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
{ ua.etal }
{ " ; " * editor #2 "{vv~}{ll}" format.name$ * " (Hrsg.)" * }
if$
}
if$
}
if$
}
FUNCTION {format.inbk.vol.title}
{ volume empty$
{ " In: " }
{ title empty$
{ " In: Bd." volume tie.or.space.connect
" von " *
}
{ "In: Bd." volume tie.or.space.connect ": " * title emphasize *
" (" * year * ") in " *
}
if$
}
if$
}
FUNCTION {format.book.crossref}
{ type$ "inbook" =
{ format.inbk.vol.title }
{ volume empty$
{ "empty volume in " cite$ * "'s crossref of " * crossref * warning$
" "
}
{ ". -- Bd." volume tie.or.space.connect
" von " *
}
if$
}
if$
editor empty$
editor field.or.null author field.or.null =
or
{ key empty$
{ series empty$
{ "need editor, key, or series for " cite$ * " to crossref " *
crossref * warning$
"" *
}
{ "" * }
if$
}
{ key * }
if$
}
{ "" * }
if$
"\cite{" * crossref * "}" *
}
FUNCTION {format.incoll.inproc.crossref}
{ editor empty$
editor field.or.null author field.or.null =
or
{ key empty$
{ booktitle empty$
{ "need editor, key, or booktitle for " cite$ * " to crossref " *
crossref * warning$
""
}
{ "{In: }{\emph " booktitle * "}" * }%%
if$
}
{ "{In: }" }
if$
}
{ "{In: }" }
if$
"\cite{" * crossref * "}" * %% ", " * format.pages * 5.12.2005
}
FUNCTION {article}
{ output.bibitem
format.authors "author" output.check
set.colon.after
format.title "title" output.check
crossref missing$
{ journal article.in.journal output.nonnull
new.sentence
format.vol.year.num.pages output
format.url output
}
{ format.article.crossref output.nonnull }
if$
format.online.lastcheck
doi set.period.dash.check
urn set.period.dash.check
format.doi.urn output
issn set.period.dash.check
format.isbn.issn output
note set.period.dash.check
note output
fin.entry
}
FUNCTION {book}
{ output.bibitem
author empty$
{ format.editors "author and editor" output.check }
{ format.authors format.editors output.nonnull }
if$
set.colon.after
crossref missing$
{ format.btitle.vol "title" output.check }
{ format.btitle "title" output.check }
if$
format.edition output
format.address.publisher.year "publisher" output.check
new.sentence
crossref missing$
{ format.series.number.din output }
{ format.book.crossref output.nonnull }
if$
pages empty$
{ skip$ }
{ pages set.period.dash.check
pages format.bkpages.collat.check output
}
if$
format.doi output
format.url output
new.block
isbn set.period.dash.check
format.isbn.issn output
note set.period.dash.check
note output
fin.entry
}
FUNCTION {booklet}
{ output.bibitem
author empty$
{ format.editors "author and editor" output.check }
{ format.authors format.editors output.nonnull }
if$
set.colon.after
format.btitle "title" output.check
format.edition.or.version output
format.url output
format.online.lastcheck
format.howpublished output
series new.sentence.checka
format.series.number.din output
pages empty$
{ skip$ }
{ pages set.period.dash.check
pages format.bkpages.collat.check output
}
if$
type set.period.dash.check
format.digital.type output
doi set.period.dash.check
urn set.period.dash.check
format.doi.urn output
note set.period.dash.check
note output
format.isbn.issn output
fin.entry
}
FUNCTION {inbook}
{ output.bibitem
chapter format.chapter.inbook output.nonnull
crossref missing$
{ author empty$
{ format.editors "\,{In:\,}" swap$ * "author and editor" output.check }
{ format.authors "\,{In:\,}" swap$ * output.nonnull }
if$
author empty$ editor empty$ AND
{ before.all 'output.state := }
{ set.colon.after }
if$
format.btitle.vol "title" output.check
format.edition output
format.address.publisher.year "publisher" output.check
new.sentence
format.series.number.din output
isbn set.period.dash.check
format.isbn.issn output
}
{ format.book.crossref output.nonnull }
if$
part.of.sentence
format.pages output
note set.period.dash.check
note output
fin.entry
}
FUNCTION {incollection}
{ output.bibitem
format.authors "author" output.check
set.colon.after
format.title "title" output.check
format.version.url output
type empty$ NOT
{ type #-1 #4 substring$ "mail" =
type #1 #4 substring$ "Mail" =
OR
'skip$
{ format.online.lastcheck }
if$
}
{ format.online.lastcheck }
if$
crossref missing$
{ format.in.ed.booktitle.din "booktitle" output.check
format.edition output
format.address.publisher.year "publisher" output.check
format.maillist.url output
format.maillist.lastcheck
new.sentence
format.series.number.din output
doi set.period.dash.check
urn set.period.dash.check
format.doi.urn output
isbn set.period.dash.check
issn set.period.dash.check
format.isbn.issn output
}
{ format.incoll.inproc.crossref output.nonnull }
if$
part.of.sentence
format.chapter.pages "pages" output.check
note set.period.dash.check
note output
fin.entry
}
FUNCTION {inproceedings}
{ output.bibitem
format.authors "author" output.check
set.colon.after
format.title "title" output.check
crossref missing$
{ format.in.ed.booktitle.din "booktitle" output.check
address empty$
{ organization new.sentence.checka
organization output
part.of.sentence
format.address.publisher.year output
}
{ format.address.publisher.year "publisher" output.check }
if$
new.sentence
series empty$
'skip$
{ format.series.number.din output }
if$
isbn set.period.dash.check
issn set.period.dash.check
format.isbn.issn output
}
{ format.incoll.inproc.crossref output.nonnull }
if$
part.of.sentence
format.pages "pages" output.check
note set.period.dash.check
note output
fin.entry
}
FUNCTION {conference} { inproceedings }%% nach Patashnik, wg US-Kompatibilitaet
FUNCTION {manual}
{ output.bibitem
author empty$
{ organization empty$
{ title empty$
'skip$
{format.btitle "title" output.check }
if$
}
'skip$
if$
}
'skip$
if$
format.authors.organization output.nonnull
set.colon.after
format.btitle "title" output.check
format.edition "edition" output.check
author empty$ organization empty$ AND
{ address "address" output.check
part.of.sentence
}
{ organization empty$
{ address "address" output.check
part.of.sentence
}
{ address ": " * organization * output
part.of.sentence
}
if$
}
if$
format.date output
number empty$
'skip$
{ "(" number * ") " * output }
if$
pages empty$
{ skip$ }
{ pages set.period.dash.check
pages format.bkpages.collat.check output
}
if$
format.doi output
format.url output
format.online.lastcheck
note set.period.dash.check
note output
fin.entry
}
%% Standard ist "Diplomarbeit", anderes mit TYPE="anderer Typ" erfassen!
%% z.B. TYPE={Hausarbeit}, TYPE={Diss.}, TYPE={Habil.}, TYPE={Magisterarb.}
FUNCTION {mastersthesis}
{ output.bibitem
format.authors "author" output.check
set.colon.after
format.btitle "title" output.check
address output
part.of.sentence
school "school" output.check
part.of.sentence
"Diplomarbeit" format.thesis.tr.type output.nonnull
part.of.sentence
format.date "year" output.check
format.url output
format.online.lastcheck
%% format.digital.resource.type
doi set.period.dash.check
urn set.period.dash.check
format.doi.urn output
%% pages set.period.dash.check
%% format.pages.book output
pages empty$
{ skip$ }
{ pages set.period.dash.check
pages format.bkpages.collat.check output
}
if$
note set.period.dash.check
note output
fin.entry
}
FUNCTION {phdthesis} %% {mastersthesis}% ist identisch bis auf Standardwert, s.o.
{ output.bibitem
format.authors "author" output.check
set.colon.after
format.btitle "title" output.check
address output
part.of.sentence
school "school" output.check
part.of.sentence
"Diss." format.thesis.tr.type output.nonnull % koennte auch `Dissertation' sein
part.of.sentence
format.date "year" output.check
format.url output
format.online.lastcheck
%% format.digital.resource.type
doi set.period.dash.check
urn set.period.dash.check
format.doi.urn output
pages empty$
{ skip$ }
{ pages set.period.dash.check
pages format.bkpages.collat.check output
}
if$
%% pages set.period.dash.check
%% format.pages.book output
note set.period.dash.check
note output
fin.entry
}
%% Normen, Vornormen, Schutzrechte (Patente) werden hiermit erfasst;
%% (z.Zt. auch noch Internetressourcen)
%% das type-Feld uebernimmt eine wichtige Steuerfunktion:
FUNCTION {misc}
{ output.bibitem
type missing$ not
{ type duplicate$ #1 #4 substring$ "Norm" =
type #1 #4 substring$ "Vorn" = OR
{ " " *
format.number * output
new.sentence
format.date output
title empty$
{ skip$ }
{ add.period$ new.sentence }
if$
format.btitle "title" output.check
note set.period.dash.check
note output
}
{ duplicate$ #1 #6 substring$ "Schutz" =
{ " " * format.number * output
new.sentence
"(" * format.date ")" * output
add.period$ new.sentence
format.authors.organization add.period$ output
note output
}
%% wenn irgendein anderer Typ eingetragen ist
{ pop$ pop$ ""
title empty$
{ note empty$
{ url empty$
{ "there's no relevant field in " cite$ warning$
pop$ ""
}
{ format.url output }%%%
if$
}
{ note " " * output.nonnull }
if$
}
{ author empty$
{ editor empty$
{ organization empty$
{ skip$ }
{ format.editors.organization output.nonnull
set.colon.after
}
if$
}
{ format.editors format.editors.organization
output.nonnull set.colon.after
}
if$
}
{ format.authors format.editors output.nonnull
set.colon.after
}
if$
format.btitle output.nonnull
url empty$
{ format.edition output
format.howpublished output}
{ format.howpublished output
format.edition.or.date output
format.url output
}
if$
format.online.lastcheck
%% format.lastchecked.or.type
new.sentence
format.misc.series output
%% note set.period.dash.check
note output
}
if$
}
if$
}
if$
}
%% wenn es keinen type gibt
{ title empty$
{ note empty$
{ url empty$
{ "there's no relevant field in " cite$ warning$
pop$ ""
}
{ format.url output }%%% das waere e. reine URL
if$
}
{ note " " * output.nonnull
%% format.url format.date output
}
if$
}
{ author empty$
{ editor empty$
{ organization empty$
{ skip$ }
{ format.editors.organization output.nonnull
set.colon.after
}
if$
}
{ format.editors format.editors.organization
output.nonnull set.colon.after
}
if$
}
{ format.authors format.editors output.nonnull
set.colon.after
}
if$
format.btitle output.nonnull
url empty$
{ format.edition output
format.howpublished output}
{ format.howpublished output
format.url output
format.edition.or.date output
format.online.lastcheck
%% format.lastchecked.or.type
}
if$
new.sentence
format.misc.series output
note set.period.dash.check
note output
}
if$
}
if$
fin.entry
}
FUNCTION {proceedings}
{ output.bibitem
editor empty$
{ organization empty$
{ "empty organization and editor in " cite$ * warning$ }
{ organization " (Veranst.)" * output }
if$
}
{ format.editors format.editors.organization output.nonnull }
if$
set.colon.after
format.btitle "title" output.check
volume empty$
{ skip$ }
{ "{\textnormal{Bd.}}" volume tie.or.space.connect emphasize "volume" output.check }
if$
format.address.publisher.year "publisher" output.check
new.sentence
format.series.number.din output.nonnull
pages empty$
{ skip$ }
{ pages set.period.dash.check
pages format.bkpages.collat.check output
}
if$
isbn set.period.dash.check
issn set.period.dash.check
format.isbn.issn output
note set.period.dash.check
note output
fin.entry
}
FUNCTION {techreport}
{ output.bibitem
author empty$
{ format.editors "author and editor" output.check
format.tr.institution output.nonnull }
{ format.authors format.editors output.nonnull }
if$
set.colon.after
format.title "title" output.check
institution empty$
'skip$
{ author empty$ editor empty$ AND
'skip$
{ institution new.sentence.checka
"/ " institution * output.nonnull
}
if$
}
if$
format.version.url output
format.online.lastcheck
format.address.publisher.year output
number new.sentence.checka
format.tr.series.or.number "number" output.check
"Forschungsbericht" format.thesis.tr.type set.period.dash.check
"Forschungsbericht" format.thesis.tr.type output
%% format.digital.resource.type
pages empty$
{ skip$ }
{ pages set.period.dash.check
pages format.bkpages.collat.check output
}
if$
isbn set.period.dash.check
issn set.period.dash.check
format.isbn.issn output
note set.period.dash.check
note "note" output.check
fin.entry
}
FUNCTION {unpublished} {misc}%% AUTHOR, TITLE, NOTE muessen sein!
%% andere Felder sind optional
FUNCTION {default.type} { misc }
MACRO {jan} {"Januar"}
MACRO {feb} {"Februar"}
MACRO {mar} {"M{\^^b a}rz"}
MACRO {apr} {"April"}
MACRO {mai} {"Mai"}
MACRO {may} {"Mai"}
MACRO {jun} {"Juni"}
MACRO {jul} {"Juli"}
MACRO {aug} {"August"}
MACRO {sep} {"September"}
MACRO {okt} {"Oktober"}
MACRO {oct} {"Oktober"}
MACRO {nov} {"November"}
MACRO {dez} {"Dezember"}
MACRO {dec} {"Dezember"}
%%$$$ stillgelegte Beispiele fuer den Gebrauch von Kuerzeln (hier Zs-Titel).
%%MACRO {acmcs} {"ACM Computing Surveys"}
%%MACRO {acta} {"Acta Informatica"}
READ
FUNCTION {sortify}
{ purify$
"l" change.case$
}
FUNCTION {chop.word}
{ 's :=
'len :=
s #1 len substring$ =
{ s len #1 + global.max$ substring$ }
's
if$
}
FUNCTION {initialize.et.al.char.used}
{ #0 'et.al.char.used :=
}
EXECUTE {initialize.et.al.char.used}
FUNCTION {format.lab.names}
{ 's :=
s num.names$ 'numnames :=
numnames #1 >
{ numnames #4 >
{ #3 'namesleft := }
{ numnames 'namesleft := }
if$
#1 'nameptr :=
""
{ namesleft #0 > }
{ nameptr numnames =
{ s nameptr "{ff }{vv }{ll}{ jj}" format.name$ "others" =
%% { "\," * %% kein besonderes Zeichen fuer "others" i. label
{ "{\etalchar{+}}" * %% ein plus-Zeichen (+) fuer "others"!
#1 'et.al.char.used :=
}
{ s nameptr "{l{}}" format.name$ * }
if$
}
{ s nameptr "{l{}}" format.name$ * }
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
}
while$
numnames #4 >
%% { "\," * %% s. Bemerkung oben
{ "{\etalchar{+}}" *
#1 'et.al.char.used :=
}
'skip$
if$
}
{ s #1 "{l{}}" format.name$
duplicate$ text.length$ #2 <
{ pop$ s #1 "{ll}" format.name$ #3 text.prefix$ } %% vgl. Anmerkung!
'skip$
if$
}
if$
}
FUNCTION {author.key.label}
{ author empty$
{ key empty$
{ cite$ #1 #3 substring$ }
{ key #3 text.prefix$ }
if$
}
{ author format.lab.names }
if$
}
FUNCTION {author.editor.key.label}
{ author empty$
{ editor empty$
{ key empty$
{ cite$ #1 #3 substring$ }
{ key #3 text.prefix$ }
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 #3 text.prefix$ }
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 organization }
if$
}
{ key #5 text.prefix$ }%% man kann Laenge des key einstellen
if$
}
{ key empty$%% wenn key vh., dann macht er das label! Lo,18/5/99
{ editor format.lab.names }
{ key #5 text.prefix$ }
if$
}
if$
}
FUNCTION {calc.label}
{ type$ "book" =
type$ "booklet" =
type$ "inbook" =
or or
'author.editor.key.label
{ type$ "proceedings" =
'editor.key.organization.label
{ type$ "manual" =
'author.key.organization.label
'author.key.label
if$
}
if$
}
if$
duplicate$
year field.or.null purify$ #-1 #2 substring$
*
'label :=
year field.or.null purify$ #-1 #4 substring$
*
sortify 'sort.label :=
}
FUNCTION {sort.format.names}
{ 's :=
#1 'nameptr :=
""
s num.names$ 'numnames :=
numnames 'namesleft :=
{ namesleft #0 > }
{ nameptr #1 >
{ " " * }
'skip$
if$
s nameptr "{ll{ }}{ ff{ }}{ vv{ }}{ jj{ }}" format.name$ 't :=
nameptr numnames = t "others" = and
{ ua.etal * }
{ t sortify * }
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
}
while$
}
FUNCTION {sort.format.title}
{ 't :=
"A " #2
"An " #3
"Der " #4
"Die " #4
"Das " #4
"Ein " #4
"Eine " #5
"The " #4 t chop.word
chop.word
chop.word
chop.word
chop.word
chop.word
chop.word
chop.word
sortify
#1 global.max$ substring$
}
FUNCTION {author.sort}
{ author empty$
{ key empty$
{ "to sort, need author or key in " cite$ * warning$
""
}
{ key sortify }
if$
}
{ author sort.format.names }
if$
}
FUNCTION {author.editor.sort}
{ author empty$
{ editor empty$
{ key empty$
{ "to sort, need author, editor, or key in " cite$ * warning$
""
}
{ key sortify }
if$
}
{ editor sort.format.names }
if$
}
{ author sort.format.names }
if$
}
FUNCTION {author.organization.sort}
{ author empty$
{ organization empty$
{ key empty$
{ "to sort, need author, organization, or key in " cite$ * warning$
""
}
{ key sortify }
if$
}
{ "The " #4 organization chop.word sortify }
if$
}
{ author sort.format.names }
if$
}
FUNCTION {editor.organization.sort}
{ editor empty$
{ organization empty$
{ key empty$
{ "to sort, need editor, organization, or key in " cite$ * warning$
""
}
{ key sortify }
if$
}
{ "The " #4 organization chop.word sortify }
if$
}
{ editor sort.format.names }
if$
}
FUNCTION {presort}
{ calc.label
sort.label
" "
*
type$ "book" =
type$ "booklet" =
type$ "inbook" =
or or
'author.editor.sort
{ type$ "proceedings" =
'editor.organization.sort
{ type$ "manual" =
'author.organization.sort
'author.sort
if$
}
if$
}
if$
*
" "
*
year field.or.null sortify
*
" "
*
title field.or.null
sort.format.title
*
#1 entry.max$ substring$
'sort.key$ :=
}
ITERATE {presort}
SORT
FUNCTION {initialize.longest.label}
{ "" 'longest.label :=
#0 int.to.chr$ 'last.sort.label :=
"" 'next.extra :=
#0 'longest.label.width :=
#0 'last.extra.num :=
}
FUNCTION {forward.pass}
{ last.sort.label sort.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 :=
sort.label 'last.sort.label :=
}
if$
}
FUNCTION {reverse.pass}
{ next.extra "b" =
{ "a" 'extra.label := }
'skip$
if$
label extra.label * 'label :=
label width$ longest.label.width >
{ label 'longest.label :=
label width$ 'longest.label.width :=
}
'skip$
if$
extra.label 'next.extra :=
}
EXECUTE {initialize.longest.label}
ITERATE {forward.pass}
REVERSE {reverse.pass}
FUNCTION {begin.bib}
{ et.al.char.used
{ "\newcommand{\etalchar}[1]{$^{#1}$}" write$ newline$ }
'skip$
if$
preamble$ empty$
'skip$
{ preamble$ write$ newline$ }
if$
"\begin{thebibliography}{" longest.label * "}" * write$ newline$
newline$
"% this bibliography is generated by alphadin.bst [8.2] from 2005-12-21"
write$ newline$
newline$
"\providecommand{\url}[1]{\texttt{#1}}"
write$ newline$
"\expandafter\ifx\csname urlstyle\endcsname\relax"
write$ newline$
" \providecommand{\doi}[1]{doi: #1}\else"
write$ newline$
" \providecommand{\doi}{doi: \begingroup \urlstyle{rm}\Url}\fi"
write$ newline$
}
EXECUTE {begin.bib}
EXECUTE {init.state.consts}
ITERATE {call.type$}
FUNCTION {end.bib}
{ newline$
"\end{thebibliography}" write$ newline$
}
EXECUTE {end.bib}