summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/adrconv/adrfax.tex
blob: ed087bc3adfda5657d7df5d2a848f77c2953c276 (plain)
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
%%
%% This is file `adrfax.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% adrconv.dtx  (with options: `tex,fax')
%% Copyright 2006, 2010, 2018 Axel Kielhorn
%% 
%% This file will generate fast loadable files from adrconv.dtx when
%% run through LaTeX or TeX.
%% 
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%   http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2003/12/01 or later.
%% 
%% This file is part of the adrconv bundle.
%% 
%% The adrconv bundle consists at least of the files adrconv.dtx,
%% adrconv.ins and adrguide.tex.
%% 
%% adrguide.dtx
%% Copyright 2006, 2010, 2018 Axel Kielhorn
\ifx\ProvidesFile\undefined\def\ProvidesFile#1[#2]{}\fi
\ProvidesFile{%
   adrfax%
  .tex%
  }
  [2018/01/30 v1.4 LaTeX2e
  Interactive driver of BibTeX database to addressfile converter]
\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{adrfax}^^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
\endinput
%%
%% End of file `adrfax.tex'.