mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-12-05 14:43:46 +00:00
1666 lines
42 KiB
Plaintext
1666 lines
42 KiB
Plaintext
|
%% ALPHADIN.BST Ausgabe [8] 10/10/00
|
|||
|
%% (C) Klaus F. Lorenzen, Hamburg email: lorenzen.marxen@t-online.de
|
|||
|
%% ersetzt ALPHADIN.BST Ausgabe [7,1] vom 23/11/99
|
|||
|
%% ersetzt DinAlpha.BST von 1994
|
|||
|
%% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|||
|
%% ALPHADIN.BST wurde entwickelt aus BibTeX standard bibliography style
|
|||
|
%% `alpha'.Mit ALPHADIN.BST werden Literaturverzeichnisse gemaess der deutschen
|
|||
|
%% Zitiernorm DIN 1505 Teil 2 formatiert.
|
|||
|
%% Analog zu den 4 US standard styles wird ein vollstaendiger Satz von
|
|||
|
%% 4 DIN-gerechten 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.fh-hamburg.de/pers/Lorenzen/bibtex/
|
|||
|
%% Stand: 16/6/99
|
|||
|
%% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|||
|
%% 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
|
|||
|
%% und sind durch abgekuerzte Verfasserbuchstaben plus Erscheinungsjahr in
|
|||
|
%% eckigen Klammern gekennzeichnet.
|
|||
|
%% Es gibt Unterschiede zwischen der US- und der deutschen Zitierkonvention,
|
|||
|
%% was die bibliographischen Typen und die verschiedenen Trennzeichen zwischen
|
|||
|
%% den Feldern angeht. Daher ist auch keine 100%ige Abbildung der beiden
|
|||
|
%% Regelwerke aufeinander moeglich. Dies ist aber immer durch eine achtsame
|
|||
|
%% Erfassung beherrschbar! Die vorliegenden DIN-styles versuchen einige
|
|||
|
%% bibliographische Beschraenkungen der Originalstyles zu ueberwinden.
|
|||
|
%% Es laesst sich in fast allen Faellen problemlos ein Original-bib-file
|
|||
|
%% (d.i. die Datenbank, die die bibliographischen Informationen enthaelt)
|
|||
|
%% wahlweise nach US-Norm oder deutscher DIN-Norm verarbeiten.
|
|||
|
%% [Beispiel: Produzieren Sie mit der XAMPL.bib-Datenbank aus dem Original-
|
|||
|
%% paket 2 verschiedene Literaturverzeichnisse.] Zu Gunsten
|
|||
|
%% der Allgemeingueltigkeit von bib-files ist bei den Publikationstypen
|
|||
|
%% (entry-types) und den bibliographischen Kategorien (fields) in Zweifels-
|
|||
|
%% faellen immer die originale US-Bedeutung beibehalten worden.
|
|||
|
%% Bei der Erfassung von Literaturquellen in bib-files
|
|||
|
%% gelten folglich die in der TEX-Literatur veroeffentlichten Regeln.
|
|||
|
%% Kommt es dennoch zu kleineren "Schoenheitsfehlern" im fertig gesetzten
|
|||
|
%% output, so koennen diese so gut wie immer durch eine leicht veraenderte
|
|||
|
%% Erfassung im bib-inputfile beseitigt werden. Last but not least koennen
|
|||
|
%% Sie im output-file < *.bbl > noch letzte Hand zur Korrektur ansetzen.
|
|||
|
%
|
|||
|
%% UMGANG MIT FEHLERMELDUNGEN
|
|||
|
%% Noch nicht alle ueberfluessigen Fehlermeldungen des Original-style sind
|
|||
|
%% ausgemerzt. Die meisten Warnmeldungen beruhen auf
|
|||
|
%% den andersartigen bibliographischen Regeln nach DIN 1505 und dem damit
|
|||
|
%% verbundenen Ermessensspielraum, sind also in Wahrheit keine "Fehler".
|
|||
|
%% Dennoch sollten Sie diese Warnungen beachten, um herauszufinden, ob
|
|||
|
%% evtl. eine unzulaessige Kombination von Publikationstyp (=entry-type) und
|
|||
|
%% "fields" vorgenommen worden ist. Das fuehrt mitunter zu Wasserfallartigen
|
|||
|
%% Fehlermeldungen: meistens duerfen Sie das einfach ignorieren.
|
|||
|
%%
|
|||
|
%% DANKSAGUNG
|
|||
|
%% Hartmut Lueddecke, FH Hamburg habe ich fuer viele Verbesserungsvorschlaege
|
|||
|
%% und stete Unterstuetzung zu danken. Vielen an dieser Stelle ungenannt
|
|||
|
%% bleibenden Anwendern gilt mein Dank, die in den vergangenen Jahren durch
|
|||
|
%% ihre Aufmerksamkeit dazu beigetragen haben, Fehler auszumerzen und
|
|||
|
%% Verbesserungen vorzunehmen.
|
|||
|
%%
|
|||
|
%% HINWEIS: es gibt eine Kombination von ALPHADIN.BST mit dem NATBIB-Stil
|
|||
|
%% von Patrick W.Daly), womit Literaturverzeichnisse komplett nach
|
|||
|
%% DIN 1505 Teil 2 UND Teil 3 formatiert werden koennen. Naeheres
|
|||
|
%% per URL http://www.fh-hamburg.de/pers/Lorenzen/bibtex/
|
|||
|
%%
|
|||
|
%% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|||
|
%% Eine ausfuehrliches Internet-Tutorial mit Beispielen ist in Vorbereitung.
|
|||
|
%% Fuer den Anfang ist diese Datei schon etwas kommentiert!
|
|||
|
%% Kritik, Vorschlaege usw. bitte an :
|
|||
|
%% FH Hamburg, Klaus F. Lorenzen, Grindelhof 30, 20146 Hamburg
|
|||
|
%% e-mail: lorenzen.marxen@t-online.de
|
|||
|
%% 16/6/99
|
|||
|
%% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|||
|
% version 0.99c for BibTeX versions 0.99c or later, LaTeX2e
|
|||
|
% 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
|
|||
|
% bstdin.doc, plaindin.bst, unsrtdin.bst, alphadin.bst, and abbrvdin.bst.
|
|||
|
% This restriction helps ensure that all standard styles are identical.
|
|||
|
%% ==> The file btxbst.doc has the original documentation for style 'alpha'.
|
|||
|
%%
|
|||
|
|
|||
|
ENTRY
|
|||
|
{ address %% Verlagsort
|
|||
|
author %% persoenlicher Urheber eines Werkes
|
|||
|
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)
|
|||
|
edition %% Auflagevermerk
|
|||
|
editor %% Persoenl.Herausgeber oder Koerperschaftlicher Herausgeber
|
|||
|
howpublished %% beliebiger Verlegervermerk: 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.
|
|||
|
month %% naehere Bestimmung des Erscheinungsjahres (-> macro 's)
|
|||
|
note %% freies Eingabefeld fuer zusaetzliche Informationen
|
|||
|
number %% Mehrfachbedeutung in Abhaengigkeit vom Eingabetyp
|
|||
|
organization %% a) Name der Organisation/des Veranstalters 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
|
|||
|
volume %% a) Zaehlung bei einem mehrbaendigen Werk (-> book)
|
|||
|
% %% b) Jahrgang einer Zeitschrift (-> article
|
|||
|
year %% Erscheinungsjahr
|
|||
|
}
|
|||
|
{}
|
|||
|
{ label extra.label sort.label }
|
|||
|
|
|||
|
INTEGERS { output.state before.all mid.sentence after.sentence after.block }
|
|||
|
|
|||
|
%% die folg. BOOLE'sche VAR steuern d. Ausg. ": " nach Urheber-Feldern
|
|||
|
%% und ". - " vor ISBN oder Anmerkungen (NOTE)
|
|||
|
|
|||
|
INTEGERS { colon.after period.dash }
|
|||
|
|
|||
|
FUNCTION {init.state.consts}
|
|||
|
{ #0 'before.all :=
|
|||
|
#1 'mid.sentence :=
|
|||
|
#2 'after.sentence :=
|
|||
|
#3 'after.block :=
|
|||
|
#4 'colon.after :=
|
|||
|
#5 'period.dash :=
|
|||
|
}
|
|||
|
INTEGERS { zahl lang }
|
|||
|
|
|||
|
STRINGS { h s t u v }
|
|||
|
|
|||
|
%% neue DIN-Funktion, 16/2/94
|
|||
|
|
|||
|
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$ }
|
|||
|
{ write$
|
|||
|
newline$
|
|||
|
"\newblock " write$
|
|||
|
}
|
|||
|
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 {output.bibitem}
|
|||
|
{ newline$
|
|||
|
"\bibitem[" write$
|
|||
|
label write$
|
|||
|
"]{" write$
|
|||
|
cite$ write$
|
|||
|
"}" write$
|
|||
|
newline$
|
|||
|
""
|
|||
|
before.all 'output.state :=
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {fin.entry} %%$$$ nach DIN neu 16/2/94
|
|||
|
{ write$
|
|||
|
newline$
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {set.period.dash} %% Wenn ein ". - " die Satzteile trennen soll.!
|
|||
|
{ output.state before.all =
|
|||
|
'skip$
|
|||
|
{ period.dash 'output.state := }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%% neu 16/2/94
|
|||
|
%% prueft, ob PAGES, ISBN- oder NOTE-Feld vh. ist und setzt dann ". - " davor.
|
|||
|
|
|||
|
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$
|
|||
|
}
|
|||
|
|
|||
|
%% neu / alt 17/2/94 Wenn ein " " die Satzteile trennen soll.!
|
|||
|
FUNCTION {new.sentence}
|
|||
|
{ output.state before.all =
|
|||
|
'skip$
|
|||
|
{ after.sentence 'output.state := }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%% neu 17/2/94 Wenn ein ", " die Satzteile trennen soll.!
|
|||
|
FUNCTION { part.of.sentence }
|
|||
|
{ output.state before.all =
|
|||
|
'skip$
|
|||
|
{ mid.sentence 'output.state := }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
FUNCTION {not}
|
|||
|
{ { #0 }
|
|||
|
{ #1 }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {and}
|
|||
|
{ 'skip$
|
|||
|
{ pop$ #0 }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {or}
|
|||
|
{ { pop$ #1 }
|
|||
|
'skip$
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {new.sentence.checka}
|
|||
|
{ empty$
|
|||
|
'skip$
|
|||
|
'new.sentence
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {field.or.null}
|
|||
|
{ duplicate$ empty$
|
|||
|
{ pop$ "" }
|
|||
|
'skip$
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
INTEGERS { nameptr namesleft numnames }
|
|||
|
|
|||
|
STRINGS { fkt }
|
|||
|
|
|||
|
FUNCTION {emphasize}
|
|||
|
{ duplicate$ empty$
|
|||
|
{ pop$ "" }
|
|||
|
{ "\emph{" swap$ * "}" * }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%% neu, setzt Autor/Hrsg. in Kapitaelchen 9/3/94
|
|||
|
FUNCTION { capitalize }
|
|||
|
{ duplicate$ empty$
|
|||
|
{ pop$ "" }
|
|||
|
{ "\textsc{" swap$ * "}" * }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ DIN-Quellenangabe : spezieller unselbst. Teil ist erschienen "In: "
|
|||
|
%% dem bibliogr. selbst. Werk, z.B. Zeitschrift, Buch
|
|||
|
|
|||
|
%% 1/4/96
|
|||
|
FUNCTION {article.in.journal}
|
|||
|
{ duplicate$ empty$
|
|||
|
{ pop$ "" }
|
|||
|
{ author missing$
|
|||
|
{ title missing$
|
|||
|
{ emphasize " " * * }%% wenn ein Zs-Heft als ganzes zitiert wird
|
|||
|
{ emphasize "{In: }" swap$ " " * * }
|
|||
|
if$
|
|||
|
}
|
|||
|
{ emphasize "{In: }" swap$ " " * * }
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%% nach Vorschlag von H.Lueddecke, um Adelspraedikate beim Sortieren
|
|||
|
%% nach den(m) Vornamen aufzufuehren. Lo, 2/11/94
|
|||
|
FUNCTION {format.names}
|
|||
|
{ 's :=
|
|||
|
"" 'u :=
|
|||
|
#1 'nameptr :=
|
|||
|
s num.names$ 'numnames :=
|
|||
|
numnames 'namesleft :=
|
|||
|
{ namesleft #0 > }
|
|||
|
{
|
|||
|
s nameptr "{vv~}{ll}" format.name$ 't :=%% das ergibt DIN-Ansetzung
|
|||
|
%% Lue's Vorschlag s nameptr "{ll}" format.name$ 't :=
|
|||
|
t capitalize 't :=
|
|||
|
s nameptr "{, ff}" format.name$ 'u :=
|
|||
|
%% Lue's Vorschlag s nameptr "{, ff}{ vv}" 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$ * "." * 'v := }
|
|||
|
'skip$
|
|||
|
if$
|
|||
|
zahl #1 + 'zahl := }
|
|||
|
while$
|
|||
|
v "" =
|
|||
|
{ u 'v := }
|
|||
|
'skip$
|
|||
|
if$
|
|||
|
%% der string fkt enthaelt " (Hrsg.)", wenn Editorfeld nicht leer ist
|
|||
|
t v * fkt * 't := %% Komma nach Nachnamen wird oben erledigt!
|
|||
|
%% t enthaelt nun d. formatierten Nnamen, Vnamen
|
|||
|
nameptr #1 >
|
|||
|
{ namesleft #1 >
|
|||
|
{ " ; " * t * }
|
|||
|
{ numnames #2 >
|
|||
|
{ " " * }
|
|||
|
'skip$
|
|||
|
if$
|
|||
|
%% %% n. schindle's hinweis 12/1/96 erweitert
|
|||
|
t "\textsc{others}" = t "\textsc{others} (Hrsg.)" = or
|
|||
|
{ " [u.~a.]" * }%% 13/2/94
|
|||
|
%%%% { "et~al." * } %% Geschmackssache, waehle eins von beiden
|
|||
|
{ " ; " * t * }
|
|||
|
if$
|
|||
|
}
|
|||
|
if$ %% Ende der namesleft-Pruefung
|
|||
|
}
|
|||
|
't
|
|||
|
%% hierdurch wird bei jed. Schleifendurchgang das sich komplet-
|
|||
|
%% tierende Zwischen-Namensergebnis wieder auf den stack gelegt
|
|||
|
|
|||
|
if$ %% Ende der nameptr-Pruefung
|
|||
|
|
|||
|
nameptr #1 + 'nameptr :=
|
|||
|
namesleft #1 - 'namesleft :=
|
|||
|
}
|
|||
|
while$ %% Ende von { namesleft #0 > } ganz oben
|
|||
|
"" 'fkt := %% fkt wird zurueckgesetzt
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ geaendert 14/2/94
|
|||
|
|
|||
|
FUNCTION {format.authors}
|
|||
|
{ author empty$
|
|||
|
{ "" }
|
|||
|
{ author format.names }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ geaend. 20/2/94 Anpassung an DIN, wonach Autor + Hrsg. zusammen vorkom-
|
|||
|
%% men duerfen.!!
|
|||
|
|
|||
|
FUNCTION {format.editors}
|
|||
|
{ editor empty$
|
|||
|
{ author empty$
|
|||
|
{ "Weder Verfasser noch Hrsg. in " cite$ * warning$ }
|
|||
|
'skip$
|
|||
|
if$
|
|||
|
}
|
|||
|
{ author empty$
|
|||
|
{ " (Hrsg.)" 'fkt :=
|
|||
|
editor format.names
|
|||
|
}
|
|||
|
{ " (Hrsg.)" 'fkt :=
|
|||
|
" ; " * editor format.names *
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%% Lo, 12/5/99 neue Funktion fuer proceedings, misc usw.
|
|||
|
|
|||
|
FUNCTION { format.editors.organization }
|
|||
|
{ organization empty$
|
|||
|
'skip$
|
|||
|
{ type$ "misc" =
|
|||
|
{ organization }
|
|||
|
{ " ; " * organization " (Veranst.)" *}
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ Sonderfall: Herausgeber bei Typ incollection, 21/2/94
|
|||
|
FUNCTION {format.ed.incoll}
|
|||
|
{ editor empty$
|
|||
|
{ "" }
|
|||
|
{ " (Hrsg.)" 'fkt :=
|
|||
|
editor format.names
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {format.title}
|
|||
|
{ title empty$
|
|||
|
{ "" }
|
|||
|
{ title } %% Text so wie er dasteht im Feld title
|
|||
|
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$
|
|||
|
}
|
|||
|
|
|||
|
%% geaendert 24/2/94
|
|||
|
FUNCTION {format.date}
|
|||
|
{ year empty$
|
|||
|
{ month empty$
|
|||
|
{ "" }
|
|||
|
{ "there's a month but no year in " cite$ * warning$
|
|||
|
month
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
{ month empty$ %% b. Buechern nur Jahr, ohne Monat ausgeb. im Impressum
|
|||
|
'year
|
|||
|
{ month " " * year * }
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%%
|
|||
|
%%$$$ neue Fkt., 16/2/94 u. 14/3/94 das sog. Impressum
|
|||
|
FUNCTION {format.address.publisher.year}
|
|||
|
{ publisher empty$
|
|||
|
{ address empty$
|
|||
|
{ year empty$
|
|||
|
{ "" }
|
|||
|
{ year }
|
|||
|
if$
|
|||
|
}
|
|||
|
{ "Es gibt einen Verlagsort, aber keinen Verlag in " cite$ * warning$
|
|||
|
address ", " * format.date *
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
{ address empty$
|
|||
|
{ year empty$
|
|||
|
{ "Es gibt nur eine Verlagsangabe in " cite$ * warning$
|
|||
|
publisher
|
|||
|
}
|
|||
|
{ publisher ", " * format.date * }
|
|||
|
if$
|
|||
|
}
|
|||
|
{ year empty$
|
|||
|
{ address " : " * publisher * }
|
|||
|
{ address " : " * publisher * ", " * format.date * }
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {format.btitle}
|
|||
|
{ title emphasize
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
FUNCTION {tie.or.space.connect}
|
|||
|
{ duplicate$ text.length$ #3 <
|
|||
|
{ "~" }
|
|||
|
{ " " }
|
|||
|
if$
|
|||
|
swap$ * *
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {either.or.check}
|
|||
|
{ empty$
|
|||
|
'pop$
|
|||
|
{ "can't use both " swap$ * " fields in " * cite$ * warning$ }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%% neu 8/3/94 in dieser Funkt. steckt im volume empty-Teil noch ein bug, der
|
|||
|
%% aber ignoriert werden kann; das Ergebnis ist ok.
|
|||
|
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
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ neu 16/2/94
|
|||
|
%% Serien- / Reihentitel werden im Feld series gespeichert. Weist die
|
|||
|
%% Serie eine Zaehlung der Einzeltitel auf, gibt man entweder nach DIN alles
|
|||
|
%% in das Feld series so ein: ---> TITEL DER SERIE NR. (der Vorlage) <---
|
|||
|
%% z. B. SERIES= { Mensch und Computer 12 }.
|
|||
|
%% [ Die Nummer der Vorlage darf auch durch " ; " abgesetzt werden. ]
|
|||
|
%% oder:
|
|||
|
%% man gibt die Zaehlung in das Feld NUMBER ein, z.B. NUMBER = {12}.
|
|||
|
%% Achtung!!
|
|||
|
%% Bei mehrbaendigen Werken steht d. Gesamttitel im Feld SERIES und die
|
|||
|
%% Bandzaehlung im Feld VOLUME; NUMBER darf dann nicht besetzt sein!
|
|||
|
%% Anderenfalls liegt ein Erfassungsfehler vor, da sich Reihe u. mehrbd.
|
|||
|
%% Werk gegenseitig ausschliessen.
|
|||
|
|
|||
|
FUNCTION {format.series.number.din}
|
|||
|
{ volume empty$
|
|||
|
{ number empty$
|
|||
|
{ series empty$
|
|||
|
{ "" }%% Ausstieg mit Nullstring
|
|||
|
{ "(" series * ")" * } %% d. Seriennr koennte auch gleich hier
|
|||
|
%% im SERIES-Feld miterfasst werden
|
|||
|
if$
|
|||
|
}
|
|||
|
{ series empty$
|
|||
|
{ "(" number tie.or.space.connect ")" *
|
|||
|
"there's a number but no series in " cite$ * warning$
|
|||
|
}
|
|||
|
{ "(" series * number tie.or.space.connect ")" * }
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
{ series empty$
|
|||
|
{ "" }
|
|||
|
{ type$ "proceedings" = %% Sonderfall, es darf VOLUME und NUMBER ex. !
|
|||
|
{ 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$
|
|||
|
}
|
|||
|
|
|||
|
%% seltener Fall bei MISC: Ausgabe einer Serie; die Nummer der Serie muss
|
|||
|
%% in SERIES miterfasst werden 16/6/99
|
|||
|
|
|||
|
FUNCTION {format.misc.series}
|
|||
|
{ series empty$
|
|||
|
{ "" }
|
|||
|
{ "(" series * ")" * }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
%%$$$ 16/2/94
|
|||
|
%% 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$
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ neu, 18/3/94
|
|||
|
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$
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ geaendert, 21/2/94 gibt Seitenzahl bei BOOK-Typ und verwandten T. aus
|
|||
|
FUNCTION {format.pages.book}
|
|||
|
{ pages empty$
|
|||
|
{ "" }
|
|||
|
{ "" pages n.dashify tie.or.space.connect " S" *} %% 17/12/95
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ alle anderen Seitenang. zB. Zeitschrft., INBOOK usw. a la Orig., 9/3/94
|
|||
|
FUNCTION {format.pages}
|
|||
|
{ pages empty$
|
|||
|
{ "" }
|
|||
|
{ "S." pages n.dashify tie.or.space.connect }
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%% Angaben v. Jahrgang, Jahr, Heftnr., Seiten bei Artikel-Typ
|
|||
|
%% 14/3/94, 26/2/97
|
|||
|
|
|||
|
FUNCTION {format.vol.year.num.pages}
|
|||
|
{ volume field.or.null
|
|||
|
year empty$
|
|||
|
{ "Es gibt einen Jahrgang, aber kein Jahr in " cite$ * warning$ }
|
|||
|
{ " (" year * ")" * * }
|
|||
|
if$
|
|||
|
month empty$
|
|||
|
'skip$
|
|||
|
{ ", " month * * }
|
|||
|
if$
|
|||
|
number empty$
|
|||
|
'skip$
|
|||
|
{ ", Nr. " number * * }
|
|||
|
if$
|
|||
|
pages empty$%% Lo, 26/2/97
|
|||
|
'skip$
|
|||
|
{ ", " format.pages * *}%%
|
|||
|
if$
|
|||
|
|
|||
|
%% pages empty$%% das war die Fass. Nov. 96, die auch ging
|
|||
|
%% 'skip$
|
|||
|
%% { duplicate$ empty$
|
|||
|
%% { pop$ format.pages }%% da pages leer, wird nur "" auf stack gelegt
|
|||
|
%% { ", " format.pages * *}
|
|||
|
%% if$
|
|||
|
%% }
|
|||
|
%% if$
|
|||
|
|
|||
|
}
|
|||
|
|
|||
|
%% geaendert 21/2/94
|
|||
|
FUNCTION {format.chapter.pages}
|
|||
|
{ chapter empty$
|
|||
|
'format.pages
|
|||
|
{ type empty$
|
|||
|
{ "Kapitel " }
|
|||
|
{ type }
|
|||
|
if$
|
|||
|
chapter tie.or.space.connect
|
|||
|
pages empty$
|
|||
|
'skip$
|
|||
|
{ ", " * format.pages * }
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ geaendert 21/2/94
|
|||
|
FUNCTION {format.in.ed.booktitle.din}
|
|||
|
{ booktitle empty$
|
|||
|
{ "" }
|
|||
|
{ editor empty$
|
|||
|
{ volume empty$
|
|||
|
{ "{In: }" booktitle emphasize * }%% n. Belieben fettes In:
|
|||
|
{ "{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$
|
|||
|
}
|
|||
|
|
|||
|
%% geaendert 1/3/94
|
|||
|
FUNCTION {format.thesis.type}
|
|||
|
{ type empty$
|
|||
|
'skip$
|
|||
|
{ pop$
|
|||
|
type
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
%% geaendert 23/2/94 i.Orig. wird zuerst die number, dann der type getestet
|
|||
|
FUNCTION {format.tr.number.din}
|
|||
|
{ type empty$
|
|||
|
{ number empty$
|
|||
|
{ " -- Forschungsbericht" } %% bei Minimalangaben besser ohne "."!
|
|||
|
{ "(" number tie.or.space.connect "). -- Forschungsbericht" * }
|
|||
|
if$
|
|||
|
}
|
|||
|
{ number empty$
|
|||
|
{ " -- " type * } %% bei Minimalangaben besser ohne "."!
|
|||
|
{ "(" number tie.or.space.connect "). -- " * type * }
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
FUNCTION {format.article.crossref}
|
|||
|
{ key empty$
|
|||
|
{ journal empty$
|
|||
|
{ "need key or journal for " cite$ * " to crossref " * crossref *
|
|||
|
warning$
|
|||
|
""
|
|||
|
}
|
|||
|
{ "{In: }{\em " journal * "\/}" * }%%
|
|||
|
if$
|
|||
|
}
|
|||
|
{ "{In: }" key * }%%
|
|||
|
if$
|
|||
|
"{\cite{" * crossref * "}" * "}" * ", " * format.pages *
|
|||
|
%% " (siehe \cite{" * crossref * "}" * "), " * format.pages *
|
|||
|
}
|
|||
|
|
|||
|
%%geaendert 7/3/94 und noch einmal nach Lueddecke, s.o.
|
|||
|
FUNCTION {format.crossref.editor}
|
|||
|
%vorher,Lue { editor #1 "{vv~}{ll}" format.name$ " (Hrsg.)" *
|
|||
|
{ editor #1 "{ll}" format.name$ " (Hrsg.)" *
|
|||
|
editor num.names$ duplicate$
|
|||
|
#2 >
|
|||
|
{ pop$ " [u.~a.]" * }
|
|||
|
%% { pop$ " et~al." * }
|
|||
|
{ #2 <
|
|||
|
'skip$
|
|||
|
{ editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
|
|||
|
{ " [u.~a.]" }
|
|||
|
%% { " et~al." * }
|
|||
|
{ " ; " * editor #2 "{vv~}{ll}" format.name$ * " (Hrsg.)" * }
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
|
|||
|
FUNCTION {format.book.crossref}
|
|||
|
{ volume empty$
|
|||
|
{ "empty volume in " cite$ * "'s crossref of " * crossref * warning$
|
|||
|
"{\texttt{siehe}} "
|
|||
|
%% "(siehe "
|
|||
|
}
|
|||
|
{ ". -- Bd." volume tie.or.space.connect
|
|||
|
" von " *
|
|||
|
}
|
|||
|
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$
|
|||
|
"" *
|
|||
|
}
|
|||
|
{ "" * }%% dadurch kommt nach der Bandzaehl. gleich das label 2/6/99
|
|||
|
%% { "{\emph{" * series * "}} {\texttt{siehe}}" * }
|
|||
|
if$
|
|||
|
}
|
|||
|
{ key * }
|
|||
|
if$
|
|||
|
}
|
|||
|
{ "" * }%% nach der Bandzaehlung kommt gleich das label; Lo 2/6/99
|
|||
|
%% { format.crossref.editor * }
|
|||
|
if$
|
|||
|
"{\cite{" * crossref * "}" * "}" *
|
|||
|
%% "{\cite{" * crossref * "}" * "}" * %%"), " * format.pages *
|
|||
|
}
|
|||
|
|
|||
|
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 * "}" * }%% fettes In: n. Belieben
|
|||
|
if$
|
|||
|
}
|
|||
|
{ "{In: }" }%% 26/5/99
|
|||
|
%% { "{In: }" key * }
|
|||
|
if$
|
|||
|
}
|
|||
|
%% { "{In: }{\em " booktitle * "\/}" * }%%
|
|||
|
{ "{In: }" }%% Lo, 10/2/99 es sieht der reine Bezug (Referenz) besser aus!
|
|||
|
if$
|
|||
|
%% " (siehe \cite{" * crossref * "}" * "), " * format.pages *
|
|||
|
"{\cite{" * crossref * "}" * "}" * ", " * format.pages *%% das fette label, Lo 23/2/99
|
|||
|
%% alte Vers. bis 27/2/97 " (siehe \cite{" * crossref * "}" * ")" *
|
|||
|
}
|
|||
|
|
|||
|
%%geaendert
|
|||
|
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 % 26/2/97
|
|||
|
new.sentence
|
|||
|
format.vol.year.num.pages output
|
|||
|
}
|
|||
|
{ format.article.crossref output.nonnull }
|
|||
|
if$
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
issn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
%%$$$ geaendert, 20/2/94
|
|||
|
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 "edition" output.check
|
|||
|
format.address.publisher.year "publisher" output.check
|
|||
|
new.sentence
|
|||
|
crossref missing$
|
|||
|
{ format.series.number.din output
|
|||
|
pages set.period.dash.check%% 19/5/99 wie bei adinat.bst
|
|||
|
format.pages.book output
|
|||
|
}
|
|||
|
{ format.book.crossref output.nonnull
|
|||
|
pages set.period.dash.check
|
|||
|
format.pages.book output
|
|||
|
}
|
|||
|
if$
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
isbn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
%% geaendert 23/2/94
|
|||
|
FUNCTION {inbook}
|
|||
|
{ output.bibitem
|
|||
|
%% unselbst. Teile eines Buches werden am Anf. genannt, dann d selbst. Quelle
|
|||
|
chapter empty$
|
|||
|
{ "Es fehlen die Kapitelangaben in " cite$ * warning$ }
|
|||
|
{ type empty$
|
|||
|
{ "Kap. " }%% d.i. die Standardvorgabe
|
|||
|
{ type }%% wenn man keine bes. Typform angeben will, koennte ein kl.
|
|||
|
%% Zwischenraum gewaehlt werden, z.B. " \, "
|
|||
|
if$
|
|||
|
chapter tie.or.space.connect " {In: }" * * %% n. Belieben fettes In:
|
|||
|
}
|
|||
|
if$
|
|||
|
|
|||
|
%% -------- jetzt kommt der bibliogr. selbst. Teil
|
|||
|
author empty$
|
|||
|
{ format.editors "author and editor" output.check }
|
|||
|
{ format.authors output.nonnull
|
|||
|
}
|
|||
|
if$
|
|||
|
set.colon.after
|
|||
|
format.btitle.vol "title" output.check
|
|||
|
crossref missing$
|
|||
|
{ format.edition output
|
|||
|
format.address.publisher.year "publisher" output.check
|
|||
|
new.sentence
|
|||
|
format.series.number.din output
|
|||
|
%% vorher note ...
|
|||
|
part.of.sentence
|
|||
|
format.pages "pages" output.check
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
}
|
|||
|
{ format.book.crossref output.nonnull
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
}
|
|||
|
if$
|
|||
|
isbn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
%% geaenderte Seitenzahlausgabe, wenn crossref-Feld benutzt wird, 27/2/97
|
|||
|
FUNCTION {incollection}
|
|||
|
{ 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
|
|||
|
format.edition output
|
|||
|
format.address.publisher.year "publisher" output.check
|
|||
|
new.sentence
|
|||
|
format.series.number.din output
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
isbn set.period.dash.check
|
|||
|
issn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
part.of.sentence
|
|||
|
format.chapter.pages "pages" output.check
|
|||
|
}
|
|||
|
{ format.incoll.inproc.crossref output.nonnull
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
isbn set.period.dash.check
|
|||
|
issn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
}
|
|||
|
if$
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
%% geaendert 22/2/94, 15/11/96 (Hinweis v. Alin Shindun, Uni Siegen)
|
|||
|
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$ %%neu nach Hinweis v. Alin Shindun, 15/11/96
|
|||
|
'skip$
|
|||
|
{ format.series.number.din output }
|
|||
|
if$
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
isbn set.period.dash.check
|
|||
|
issn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
part.of.sentence
|
|||
|
format.pages output
|
|||
|
}
|
|||
|
{ format.incoll.inproc.crossref output.nonnull
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
isbn set.period.dash.check
|
|||
|
issn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
}
|
|||
|
if$
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {conference} { inproceedings }%% nach Patashnik, wg US-Kompatibilitaet
|
|||
|
|
|||
|
%% geaendert, 11/6/99
|
|||
|
FUNCTION {manual}
|
|||
|
{ output.bibitem
|
|||
|
author empty$
|
|||
|
{ organization empty$
|
|||
|
{ title empty$
|
|||
|
'skip$
|
|||
|
{format.btitle "title" output.check }
|
|||
|
if$
|
|||
|
}
|
|||
|
{ organization output.nonnull
|
|||
|
set.colon.after
|
|||
|
format.btitle "title" output.check
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
{ format.authors output.nonnull
|
|||
|
set.colon.after
|
|||
|
format.btitle "title" output.check
|
|||
|
}
|
|||
|
if$
|
|||
|
format.edition "edition" output.check
|
|||
|
author empty$
|
|||
|
{ organization empty$
|
|||
|
{ address output
|
|||
|
part.of.sentence
|
|||
|
}
|
|||
|
'skip$
|
|||
|
if$
|
|||
|
}
|
|||
|
{ address ": " * organization * output
|
|||
|
part.of.sentence
|
|||
|
}
|
|||
|
if$
|
|||
|
format.date output
|
|||
|
pages set.period.dash.check
|
|||
|
format.pages.book output
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
%% MASTERSTHESIS ersetzt zugleich PHDTHESIS !! KFL, 17/2/94
|
|||
|
%% Ausgabe-Standard ist "Diplomarbeit", fuer andere Abschlussarbeiten
|
|||
|
%% bei der Erfassung TYPE="anderer Typ" eingeben.
|
|||
|
%% z.B. TYPE={Dissertation}, 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.type output.nonnull
|
|||
|
part.of.sentence
|
|||
|
format.date "year" output.check
|
|||
|
%% pages new.sentence.checka
|
|||
|
pages set.period.dash.check
|
|||
|
format.pages.book output
|
|||
|
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.type output.nonnull % koennte auch `Dissertation' sein
|
|||
|
part.of.sentence
|
|||
|
format.date "year" output.check
|
|||
|
pages set.period.dash.check
|
|||
|
format.pages.book output
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
%% hiermit werden u.a. Normen erfasst
|
|||
|
FUNCTION {misc}
|
|||
|
{ output.bibitem
|
|||
|
note empty$
|
|||
|
{ title empty$
|
|||
|
{ "" }
|
|||
|
{ format.authors format.editors output.nonnull
|
|||
|
format.btitle output
|
|||
|
howpublished output
|
|||
|
format.date output
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
{ note duplicate$ #1 #4 substring$ "Norm" =
|
|||
|
{ output new.sentence
|
|||
|
format.date output
|
|||
|
format.title output
|
|||
|
}
|
|||
|
{ pop$ ""
|
|||
|
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
|
|||
|
howpublished output
|
|||
|
format.date output
|
|||
|
new.sentence
|
|||
|
format.misc.series output%% neu 16/6/99
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {booklet} {misc}%% booklet ist nach dt. Vorgehensweise oft ueberfluessig
|
|||
|
|
|||
|
%% geaendert 21/5/99
|
|||
|
FUNCTION {proceedings}
|
|||
|
{ output.bibitem
|
|||
|
editor empty$
|
|||
|
{ organization empty$
|
|||
|
{ "" }
|
|||
|
{ organization " (Veranst.)" * output }
|
|||
|
if$
|
|||
|
}
|
|||
|
{ format.editors format.editors.organization output.nonnull }
|
|||
|
if$
|
|||
|
set.colon.after
|
|||
|
format.btitle "title" output.check
|
|||
|
volume empty$
|
|||
|
{ "" output.nonnull }
|
|||
|
{ "{\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 set.period.dash.check
|
|||
|
format.pages.book output
|
|||
|
note set.period.dash.check
|
|||
|
note output
|
|||
|
isbn set.period.dash.check
|
|||
|
issn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
%% geaendert 23/2/94 auch fuer Firmenschriften u."a. zu benutzen
|
|||
|
FUNCTION {techreport}
|
|||
|
{ output.bibitem
|
|||
|
author empty$
|
|||
|
{ format.editors "author and editor" output.check }
|
|||
|
{ format.authors format.editors output.nonnull }
|
|||
|
if$
|
|||
|
set.colon.after
|
|||
|
format.title "title" output.check
|
|||
|
institution new.sentence.checka
|
|||
|
institution empty$
|
|||
|
'skip$
|
|||
|
{ " / " institution * output.nonnull }
|
|||
|
if$
|
|||
|
format.address.publisher.year output
|
|||
|
number new.sentence.checka
|
|||
|
format.tr.number.din "number" output.check
|
|||
|
%% new.sentence
|
|||
|
pages set.period.dash.check
|
|||
|
format.pages.book output
|
|||
|
note "note" output.check
|
|||
|
isbn set.period.dash.check
|
|||
|
issn set.period.dash.check
|
|||
|
format.isbn.issn output
|
|||
|
fin.entry
|
|||
|
}
|
|||
|
|
|||
|
FUNCTION {unpublished} {misc}%% author, title, note muessen sein! howpublished
|
|||
|
%% %% entfaellt natuerlich
|
|||
|
FUNCTION {default.type} { misc }
|
|||
|
|
|||
|
MACRO {jan} {"Januar"}
|
|||
|
|
|||
|
MACRO {feb} {"Februar"}
|
|||
|
|
|||
|
MACRO {mar} {"M{\^^b a}rz"}
|
|||
|
%% nach Bernd Raichle, Febr. 1999
|
|||
|
|
|||
|
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"}
|
|||
|
|
|||
|
%%MACRO {cacm} {"Communications of the ACM"}
|
|||
|
|
|||
|
%%MACRO {ibmjrd} {"IBM Journal of Research and Development"}
|
|||
|
|
|||
|
%%MACRO {ibmsj} {"IBM Systems Journal"}
|
|||
|
|
|||
|
%%MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
|
|||
|
|
|||
|
%%MACRO {ieeetc} {"IEEE Transactions on Computers"}
|
|||
|
|
|||
|
%%MACRO {ieeetcad}
|
|||
|
%% {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
|
|||
|
|
|||
|
%%MACRO {ipl} {"Information Processing Letters"}
|
|||
|
|
|||
|
%%MACRO {jacm} {"Journal of the ACM"}
|
|||
|
|
|||
|
READ
|
|||
|
|
|||
|
FUNCTION {sortify}
|
|||
|
{ purify$
|
|||
|
"l" change.case$
|
|||
|
}
|
|||
|
|
|||
|
INTEGERS { len }
|
|||
|
|
|||
|
FUNCTION {chop.word}
|
|||
|
{ 's :=
|
|||
|
'len :=
|
|||
|
s #1 len substring$ =
|
|||
|
{ s len #1 + global.max$ substring$ }
|
|||
|
's
|
|||
|
if$
|
|||
|
}
|
|||
|
|
|||
|
INTEGERS { et.al.char.used }
|
|||
|
|
|||
|
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 "{v{}}{l{}}" format.name$ * }
|
|||
|
{ s nameptr "{l{}}" format.name$ * }
|
|||
|
if$
|
|||
|
}
|
|||
|
%% { s nameptr "{v{}}{l{}}" format.name$ * }
|
|||
|
{ 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 "{v{}}{l{}}" format.name$
|
|||
|
{ s #1 "{l{}}" format.name$
|
|||
|
duplicate$ text.length$ #2 <
|
|||
|
{ pop$ s #1 "{ll}" format.name$ #3 text.prefix$ } %% vgl. Anmerkung!
|
|||
|
'skip$
|
|||
|
if$
|
|||
|
}
|
|||
|
if$
|
|||
|
}
|
|||
|
%% Anmerkung, Lo 14/12/95:
|
|||
|
%% wenn man in der letzten label-Bearbeitung #4 statt #3 setzt, dann werden
|
|||
|
%% auch Umlaute oder <20> an 3. Stelle im Namen korrekt in das label genommen.
|
|||
|
%% Tip: Aendere diese Zahl nur, wenn in einer Lit.-Liste der Umlautsonderfall
|
|||
|
%% stoerend auffaellt.
|
|||
|
|
|||
|
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$
|
|||
|
}
|
|||
|
%% neu 19/5/99 damit eigene labels fuer Konferenzen erzeugt werden koennen,
|
|||
|
%% darf man zusaetzlich auch ein key-Feld eingeben. Das produziert
|
|||
|
%% dann vorrangig das label.
|
|||
|
FUNCTION {editor.key.organization.label}
|
|||
|
{ editor empty$
|
|||
|
{ key empty$
|
|||
|
{ organization empty$
|
|||
|
{ cite$ #1 #3 substring$ }
|
|||
|
{ "The " #4 organization chop.word organization } %% Lo, 26/1/98
|
|||
|
%% { "The " #4 organization chop.word #3 text.prefix$ }
|
|||
|
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$ "inbook" =
|
|||
|
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 "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't :=
|
|||
|
%
|
|||
|
% Zeile geaendert, damit die Namenszusaetze wie von, de usw nach deutscher
|
|||
|
% Norm richtig einsortiert werden. 27.10.94 Lueddecke
|
|||
|
%
|
|||
|
s nameptr "{ll{ }}{ ff{ }}{ vv{ }}{ jj{ }}" format.name$ 't :=
|
|||
|
nameptr numnames = t "others" = and
|
|||
|
{ "[u.~a.]" * }
|
|||
|
%% { "et al" * }% Geschmackssache
|
|||
|
{ 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$ "inbook" =
|
|||
|
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
|
|||
|
|
|||
|
STRINGS { longest.label last.sort.label next.extra }
|
|||
|
|
|||
|
INTEGERS { longest.label.width last.extra.num }
|
|||
|
|
|||
|
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}%%lt. Original wiederhergestellt 4/1/96
|
|||
|
{ 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$
|
|||
|
}
|
|||
|
|
|||
|
EXECUTE {begin.bib}
|
|||
|
|
|||
|
EXECUTE {init.state.consts}
|
|||
|
|
|||
|
ITERATE {call.type$}
|
|||
|
|
|||
|
FUNCTION {end.bib}
|
|||
|
{ newline$
|
|||
|
"\end{thebibliography}" write$ newline$
|
|||
|
}
|
|||
|
|
|||
|
EXECUTE {end.bib}
|
|||
|
|
|||
|
%% Ende von ALPHADIN.BST KFL, 23/11/99
|