1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
%%
%% This is file `email.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% scrlettr.dtx (with options: `email,tex')
%%
%% Interactive BibTeX-Driver to scrletter converter
%% by Markus Kohm 1996/11/13
%%
%% This is only something like a dummy-file to get an `aux'-file.
%%
\catcode`\@=11
\newlinechar`\^^J
\message{%
Now you have to typein the name of the BibTeX addressfile, you want to^^J%
convert to script-address-file-format (without extension `.bib'):^^J%
Geben Sie nun den Namen der BibTeX-Adressdatei ein, die sie in das^^J%
Script-Adressdateiformat konvertieren wollen (ohne `.bib'):^^J%
^^J%
addressfile=%
}
\def\skiplastspace#1 \@e@o@l@{#1}
\read-1 to \addressfile
\edef\addressfile{\expandafter\skiplastspace\addressfile\@e@o@l@}
\newwrite\auxfile
\immediate\openout\auxfile=\addressfile.aux
\immediate\write\auxfile{%
\string\citation{*}^^J%
\string\bibstyle{email}^^J%
\string\bibdata{\addressfile}%
}
\immediate\closeout\auxfile
\message{%
After running BibTeX rename file `\addressfile.bbl' to
`\addressfile.adr'!^^J%
Nach dem BibTeX-Lauf benennen Sie bitte die Datei `\addressfile.bbl' in^^J%
`\addressfile.adr' um!^^J%
}
\ifx\@@end\undefined\let\@@end\end\fi
\@@end
%%
%%
%% End of file `email.tex'.
|
