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
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} |