summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source')
-rw-r--r--Master/texmf-dist/source/latex/adrconv/XtraStuf.mac/adrconv.xmlbin0 -> 382 bytes
-rw-r--r--Master/texmf-dist/source/latex/adrconv/adrconv.dtx871
-rw-r--r--Master/texmf-dist/source/latex/adrconv/adrconv.ins114
3 files changed, 985 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/adrconv/XtraStuf.mac/adrconv.xml b/Master/texmf-dist/source/latex/adrconv/XtraStuf.mac/adrconv.xml
new file mode 100644
index 00000000000..622c2775710
--- /dev/null
+++ b/Master/texmf-dist/source/latex/adrconv/XtraStuf.mac/adrconv.xml
Binary files differ
diff --git a/Master/texmf-dist/source/latex/adrconv/adrconv.dtx b/Master/texmf-dist/source/latex/adrconv/adrconv.dtx
new file mode 100644
index 00000000000..68501d8d851
--- /dev/null
+++ b/Master/texmf-dist/source/latex/adrconv/adrconv.dtx
@@ -0,0 +1,871 @@
+% \CheckSum{490}
+% \iffalse
+% ====================================================================
+% adrconv.dtx
+% Copyright (c) 1999 - 2003 Axel Kielhorn
+%
+% This file is part of the adrconv bundle.
+%
+% This file can be distributed and/or modified under the conditions of
+% the LaTeX Project Public License, either version 1.2 of the license
+% or (at you option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.2 or later ist part of all distributions of LaTeX
+% version 1999/12/01 or later.
+%
+% The adrconv bundle consists at least of the files adrconv.dtx,
+% adrconv.ins and adrguide.tex. Use
+% tex adrconv.ins
+% or
+% latex adrconv.ins
+% to generate the other files, which are indirect parts of the
+% bundle. Use
+% latex adrconv.dtx
+% to generate the implementation documentation. Use
+% latex adrguide.tex
+% to generate the user documentation.
+% ====================================================================
+%
+%<*dtx>
+\ProvidesFile{adrconv.dtx}
+%</dtx>
+%<driver>\ProvidesFile{adrconv.drv}
+%<guide>\ProvidesFile{adrguide.tex}
+%<*tex|cfg|dir>
+%<tex|cfg|dir>\ifx\ProvidesFile\undefined\def\ProvidesFile#1[#2]{}\fi
+%<tex|cfg|dir>\ProvidesFile{%
+%<conv> adrconv%
+%<fax> adrfax%
+%<dir> adrdir%
+%<birthday> birthday%
+%<email> email%
+%<planer> adrplaner
+%<small> adrsmall
+%<tex> .tex%
+%<dir&!cfg> .tex%
+%<cfg> .cfg%
+%<tex|cfg|dir> }
+%</tex|cfg|dir>
+%<*dtx|driver|guide|tex|cfg|dir>
+ [2002/06/23 v1.2b LaTeX2e
+%<*dtx>
+ adrconv docstrip file]
+%</dtx>
+%<driver> adrconv implementation documentation driver]
+%<guide> Address guide]
+%<tex> Interactive driver of BibTeX database to addressfile converter]
+%<cfg> adrconv configuration file]
+%<dir&!cfg> Interactive address directory generation]
+%</dtx|driver|guide|tex|cfg|dir>
+%<*driver>
+\documentclass{ltxdoc}
+\CodelineIndex
+\RecordChanges
+
+\newcommand*{\Class}[1]{\textsf{#1}}
+\newcommand*{\Package}[1]{\textsf{#1}}
+\newcommand*{\File}[1]{\texttt{#1}}
+
+\ifx\KOMAScipt\undefined
+ \DeclareRobustCommand{\KOMAScript}{\textsf{K\kern.05em O\kern.05em%
+ M\kern.05em A\kern.1em-\kern.1em Script}}
+\fi
+
+\makeatletter
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em%
+ % Der folgende Hack stammt aus der Definition des
+ % Makros \LaTeX, siehe Datei `ltlogos.dtx' der
+ % LaTeX2e-Verteilung.
+ \hbox{$\m@th$% %% force math size calculations
+ \csname S@\f@size\endcsname \fontsize\sf@size\z@
+ \math@fontsfalse\selectfont
+ I\kern-.025emB}%
+ \kern-.08em%
+ \-\TeX%
+}
+\makeatother
+
+\begin{document}
+ \DocInput{adrconv.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \GetFileInfo{adrconv.dtx}
+% \title{\BibTeX{} address database to addressfile
+% converter\footnote{This file hat version number \fileversion, last
+% revised \filedate}}
+% \author{Axel Kielhorn}
+% \date{\filedate}
+% \maketitle
+% \begin{abstract}
+% \Package{adrconv} is an example for converting \BibTeX{} address
+% databases to \KOMAScript{} address files. For more information see
+% the ``ADRconv Anleitung''. This is only the implementation
+% documentation.
+% \end{abstract}
+%
+% \StopEventually{\PrintIndex\PrintChanges}
+%
+% \tableofcontents
+%
+% \section{General}
+%
+% This implementation documentation is very rudimentary because it was
+% not written by Axel Kielhorn but by Markus Kohm. I've done this
+% because after two years waiting I wanted to make the break and
+% remove the old version of \Package{adrconv} from \KOMAScript.
+%
+% The use of \Package{adrconv} is described at the ``ADRconv
+% Anleitung''. You'll get the guide, running \TeX{} or \LaTeX{} in
+% \File{adrconv.ins}.
+%
+%
+% \section{The interactive drivers}
+%
+% \iffalse
+%<*tex>
+% \fi
+% Remember the files should work not only with \LaTeX{} but also with
+% Plain\TeX. So we can olny use macros, which are defined at both:
+% \LaTeX{} and Plain\TeX.
+%
+% \begin{macrocode}
+\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%
+%<conv> \string\bibstyle{adrconv}^^J%
+%<fax> \string\bibstyle{adrfax}^^J%
+%<birthday> \string\bibstyle{birthday}^^J%
+%<email> \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{macrocode}
+% \iffalse
+%</tex>
+% \fi
+%
+%
+% \section{The interactive generator}
+%
+% \iffalse
+%<*!cfg>
+%<*dir>
+% \fi
+% \begin{macrocode}
+\documentclass[headsepline,10pt,twoside]{scrartcl}
+% \end{macrocode}
+% Define some new commands
+% \begin{macrocode}
+\newcommand*\jj {j}
+\newcommand*\ja {ja}
+\newcommand*\y {y}
+\newcommand*\yes{yes}
+\newread\ttyin
+\newcommand*{\gobble}[1]{}
+\def\iden#1{#1}
+\def\strip#1#2 \gobble{\def #1{#2}}
+\def\defpar{\par}
+\def\Ask#1#2{%
+ \message{#2}\read\ttyin to #1\ifx#1\defpar\def#1{}\else
+ \iden{\expandafter\strip\expandafter#1#1\gobble\gobble}
+ \gobble\fi}
+% \end{macrocode}
+% \cs{ifGerman} to load \Package{german} or \Package{ngerman}.
+% \cs{RunningHead} to get the names in the header (Telephonebook
+% style). Otherwise a new page is started for each new letter (This is
+% needed for Birthday lists).
+% \begin{macrocode}
+\newif\ifGerman
+\newif\ifRunningHead
+% \end{macrocode}
+% \begin{macrocode}
+\newdimen\leftfield
+\newdimen\rightfield
+\newdimen\adrindent
+\oddsidemargin -1in
+\evensidemargin -1in
+% \end{macrocode}
+% \begin{macrocode}
+\newcommand*\adrfile{}
+\newcommand*\adrtitle{}
+\typeout{^^J%
+ *** dir.tex v2.0 by Frank Neukam <01 Dec 1993>^^J%
+ *** LaTeX2e-changes by Markus Kohm 1994/10/29^^J%
+ *** ADRconv-changes by Axel Kielhorn 1999^^J%
+ *** ngerman-changes by Markus Kohm 2001^^J%
+ ^^J%
+ To create a address-directory just answer the questions:^^J%
+ ^^J}
+\Ask\answer{Use german? [y/n]^^J%
+ Mit deutscher Sprachanpassung? [j/n]}
+\ifx\jj\answer\Germantrue\else
+\ifx\ja\answer\Germantrue\else
+\ifx\y\answer\Germantrue\else
+\ifx\yes\answer\Germantrue\else
+ \Germanfalse\fi\fi\fi\fi
+\ifGerman
+ \def\germanpackage{ngerman}
+ \Ask\answer{Mit alter deutscher Rechtschreibung? [j/n]}
+ \ifx\jj\answer\def\germanpackage{german}\else
+ \ifx\ja\answer\def\germanpackage{german}\else
+ \ifx\y\answer\def\germanpackage{german}\else
+ \ifx\yes\answer\def\germanpackage{german}\fi\fi\fi\fi
+ \usepackage{\germanpackage}
+\fi
+\InputIfFileExists{dir.cfg}{%
+ \typeout{Load local configuration-file.}}{%
+ \typeout{No local configuration-file found.}}
+\Ask\adrfile{^^J%
+ Name of address-file (without .adr)?^^J%
+ Name der Adressdatei (ohne .adr)?}
+\Ask\adrtitle{^^J%
+ Title of directory/list?^^J%
+ Titel des Verzeichnisses?}
+\Ask\adrformat{^^J%
+ Name of the layout^^J%
+ Layoutname?}
+\Ask\answer{^^J%
+ With running head? [y/n]^^J%
+ Namen in der Kopfzeile? [j/n]}
+\ifx\jj\answer\RunningHeadtrue\else
+\ifx\ja\answer\RunningHeadtrue\else
+\ifx\y\answer\RunningHeadtrue\else
+\ifx\yes\answer\RunningHeadtrue\else
+ \RunningHeadfalse\fi\fi\fi\fi
+% \end{macrocode}
+% Since the file uses \Class{scrartcl} it assumes that
+% \Package{scrpage} is available. We use \Package{scrpage} and not
+% \Package{scrpage2}, because of maybe old \KOMAScript.
+% \begin{macrocode}
+\ifRunningHead
+\usepackage{scrpage}
+\renewpagestyle{headings}{%
+ (0pt,0pt)%
+ {\strut\rightmark\ -- \leftmark\hfil}%
+ {\hfil\strut\rightmark\ -- \leftmark}%
+ {\hfil\strut\rightmark\ -- \leftmark\hfil}%
+ (\textwidth,.4pt)%
+ }{%
+ (0pt,0pt)%
+ {\pagemark\hfill}%
+ {\hfill\pagemark}%
+ {\hfill\pagemark\hfill}%
+ (0pt,0pt)}
+\fi
+\def\headfont{\sffamily\bfseries}
+% \end{macrocode}
+% Loading the Layout definition.
+% If no filename is specified, adrdir will be used.
+% \begin{macrocode}
+\ifx\adrformat\empty
+ \def\adrformat{adrdir}
+\fi
+\InputIfFileExists{\adrformat.cfg}{}{%
+ \typeout{^^J%
+ *** File \adrformat.cfg not found!^^J%
+ *** Datei \adrformat.cfg nicht gefunden!^^J%
+ ^^J}
+ }
+% \end{macrocode}
+% All definitions are done, let's start with the document.
+% \begin{macrocode}
+\begin{document}
+% \end{macrocode}
+% Don't start a new page for every letter when running head is used.
+% \begin{macrocode}
+\ifRunningHead
+ \def\adrchar#1{\typeout{#1}}
+\else
+ \def\adrchar#1{\clearpage\typeout{#1}\markboth{#1}{#1}}
+\fi
+% \end{macrocode}
+% This command does all the formatting:
+% \begin{macrocode}
+\def\adrentry#1#2#3#4#5#6#7#8{\hspace{\adrindent}%
+ \parbox[b]{\leftfield}
+ {\raggedright \hspace{-\adrindent}{\sc #1}%
+ \def\tempa{#1}\ifx \tempa\empty \else , #2\fi%
+ \def\tempa{#3}\ifx \tempa\empty \else \par #3\fi%
+ \def\tempa{#7}\ifx \tempa\empty \else \par (#7)\fi%
+ }%
+ \hfill%
+ \parbox[b]{\rightfield}
+ {\raggedleft%
+ \def\tempa{#8}\ifx \tempa\empty \else {\scriptsize #8}\par \fi
+ {\small #4}%
+ }\par%
+ \ifRunningHead
+ \markboth{#1}{#1}
+ \fi
+}
+\ifx\adrfile\empty \else
+ \InputIfFileExists{\adrfile.adr}{%
+ \pagestyle{empty}
+ \null\vfil
+ \begin{center}
+ {\Large \sfb \adrtitle\par}
+ \end{center}
+ \vfil\vfil\null
+% \end{macrocode}
+% Always start on a right page
+% \begin{macrocode}
+ \cleardoublepage
+ \raggedbottom
+ \pagestyle{headings}
+ }{%
+ \typeout{^^J%
+ *** File \adrfile.adr not found!^^J%
+ *** Datei \adrfile.adr nicht gefunden!^^J%
+ ^^J}
+ }
+\fi
+\end{document}
+% \end{macrocode}
+% \iffalse
+%</dir>
+%</!cfg>
+% \fi
+%
+%
+% \section{The configuration files}
+%
+% \iffalse
+%<*cfg>
+% \fi
+% \begin{macrocode}
+%<*dir>
+% \end{macrocode}
+% Configfile for A6 phone book (105\,mm $\times$ 148\,mm).
+% Original was former part of \KOMAScript{}.
+%
+% \begin{macrocode}
+\setlength{\paperwidth}{210mm}
+\setlength{\textwidth}{85mm}
+\setlength{\leftfield}{50mm}
+\setlength{\rightfield}{30mm}
+% \end{macrocode}
+% \begin{macrocode}
+\addtolength{\evensidemargin}{9mm}
+\addtolength{\oddsidemargin}{\paperwidth}
+\addtolength{\oddsidemargin}{-9mm}
+\addtolength{\oddsidemargin}{-\textwidth}
+% \end{macrocode}
+% \begin{macrocode}
+%</dir>
+% \end{macrocode}
+%
+% \begin{macrocode}
+%<*planer>
+% \end{macrocode}
+% Configfile for organizers (95\,mm $\times$ 172\,mm) maybe from
+% ALDI\footnote{ALDI is a german so called ``Billigheimer''.}.
+%
+% \begin{macrocode}
+\setlength{\paperwidth}{95mm}
+\setlength{\textwidth}{70mm}
+\setlength{\leftfield}{45mm}
+\setlength{\rightfield}{25mm}
+% \end{macrocode}
+% \begin{macrocode}
+\addtolength{\evensidemargin}{12mm}
+\addtolength{\oddsidemargin}{12mm}
+% \end{macrocode}
+% \begin{macrocode}
+%</planer>
+% \end{macrocode}
+%
+% \begin{macrocode}
+%<*small>
+% \end{macrocode}
+% Configfile for pocket callenders (87\,mm $\times$ 148\,mm)
+% e.g. ``Sparkassenkalender''.
+%
+% \begin{macrocode}
+\setlength{\paperwidth}{174mm}
+\setlength{\textwidth}{75mm}
+\setlength{\leftfield}{45mm}
+\setlength{\rightfield}{30mm}
+% \end{macrocode}
+% \begin{macrocode}
+\addtolength{\evensidemargin}{9mm}
+\addtolength{\oddsidemargin}{\paperwidth}
+\addtolength{\oddsidemargin}{-9mm}
+\addtolength{\oddsidemargin}{-\textwidth}
+% \end{macrocode}
+% \begin{macrocode}
+%</small>
+% \end{macrocode}
+%
+% \begin{macrocode}
+\setlength{\adrindent}{1em}
+\addtolength{\leftfield}{-\adrindent}
+% \end{macrocode}
+% \begin{macrocode}
+%<*dir>
+\setlength{\paperheight}{148mm}
+\setlength{\textheight}{112mm}
+%</dir>
+%<*planer>
+\setlength{\paperheight}{172mm}
+\setlength{\textheight}{148mm}
+%</planer>
+%<*small>
+\setlength{\textheight}{112mm}
+%</small>
+\setlength{\headheight}{1.25\baselineskip}
+\setlength{\headsep}{0.25\baselineskip}
+\setlength{\footskip}{1.50\baselineskip}
+\setlength{\topmargin}{-1in}
+%<dir>\addtolength{\topmargin}{8mm}
+%<planer>\addtolength{\topmargin}{7mm}
+\setlength{\marginparwidth}{0in}
+\setlength{\marginparsep}{0in}
+\setlength{\marginparpush}{0in}
+\setlength{\parskip}{0.5\baselineskip}
+\setlength{\parindent}{0in}
+\typeout{%
+ ********************************************************************%
+ ^^J^^J%
+ DVIDVI Options:^^J%
+ Front:^^J%
+%<*dir|small>
+%<dir> 1st Step (2 x A6 at A5)^^J%
+%<small> 1st Step (2 x callenders at A5)^^J%
+ -l xx -m 4:-1,2^^J%
+ 2nd Step (2 x A5 at A4)^^J%
+ -m 2:0,1(0mm,148mm)^^J%
+%</dir|small>
+%<planer> -l 24 -m 6:0(4mm,0mm),2(99mm,0mm),4(192mm,0mm)
+ ^^J%
+ Back:^^J%
+%<*dir|small>
+ 1st Step^^J%
+ -l xx -r -m 4:-3,0^^J%
+ 2nd Step^^J%
+ -m 2:1,0(0mm,148mm)^^J%
+%</dir|small>
+%<planer> -l 24 -r -m 6:5(8mm,0mm),3(103mm,0mm),1(198mm,0mm)
+ ^^J%
+%<dir|small> xx must be the result of a multiplication with 4.^^J%
+%<small> Cut 36 mm from one side and tack in the middle.^^J%
+ ^^J%
+ ********************************************************************
+ }
+% \end{macrocode}
+% German Remark from Axel to \File{adrdir.cfg}:
+% \begin{quote}
+% Das ist die einfache Version, einfach in der Mitte durchschneiden,
+% Seiten sortieren, ineinanderstecken und heften.
+%
+% Nicht alle Tacker k\"onnen dieses Format verarbeiten, ich habe
+% lange gesucht und benutze den Novus B5, der passt ganz knapp und ist
+% noch bezahlbar. Danach kommen die Hochleistungstacker \"uber 50 DM.
+% \end{quote}
+%
+% German Remark from Axel to \File{adrplaner.cfg}:
+% \begin{quote}
+% Der Deskjet kann die letzten 14\,mm des Blattes nicht bedrucken,
+% daher wurde das ganze Layout um 4\,mm verschoben, diese m\"ussen an
+% der kurzen Kante abgeschnitten werden.
+%
+% Bei anderen Druckern kann man bei den Vorderseiten 3\,mm von der
+% x-Koordinate abziehen und bei den R\"uckseiten zuaddieren.
+% \end{quote}
+%
+% German Remark from Axel to \File{adrsmall.cfg}:
+% \begin{quote}
+% Von einer Seite m\"ussen noch 36\,mm abgeschnitten werden, dann
+% in der Mitte heften und in den Taschenkalender einstecken.
+% \end{quote}
+%
+% \iffalse
+%</cfg>
+% \fi
+%
+%
+% \section{The \BibTeX{} files}
+%
+% \iffalse
+%<*bst>
+% \fi
+%
+% These \BibTeX{} files are BibTeX-Database to \Class{scrlettr}
+% converters. They are based on BibTeX bibliography style
+% \File{address} Gerd Neugebauer has written in 1994.
+%
+% The files generated from these files may be used for
+% \Class{scrlettr}, \Class{scrlttr2}, \File{phone.tex} or
+% \File{dir.tex} from the \KOMAScript{} Package, \Class{akletter} and
+% some versions of \Class{myletter} which preceded
+% \Class{akletter}. They will even work with the \LaTeX 2.09 version
+% of \textsc{Script}.
+%
+% This is only one way to use the address database layout defined by
+% Gerd Neugebauer. Use this as an example for your own conversion
+% program.
+%
+% \changes{v1.0}{1996/01/01}{Added the key-field}
+% \changes{v1.1}{1996/01/02}{Changed \texttt{net} to \texttt{url} and
+% \texttt{email}}
+% \changes{v1.1.1}{1996/01/03}{Function address: moved
+% \texttt{\bslash\bslash} inside if condition}
+% \changes{v1.1.1}{1996/01/03}{No more warnings if street is empty
+% (reported by Jan Holl\"ander)}
+% \changes{v1.1.2}{1996/01/04}{The \emph{von} part was ignored in
+% names}
+% \changes{v1.1.3}{1996/01/04}{Support for second (mobile)
+% telephonenumber}
+% \changes{v1.2}{1999/11/01}{New release independend of KOMA-Script}
+% \changes{v1.2a}{2001/10/11}{\Package{docstrip} version}
+% \changes{v1.2b}{2002/06/23}{Documentation updated}
+%
+% The \File{birthday.bst} prints the entries with birthdays only. The
+% entries are sorted by month and inside one month by date.
+%
+% \begin{macrocode}
+ENTRY
+ { name
+ title
+ organization
+ city
+ zip
+ country
+ street
+ phone
+ mobile
+ fax
+ url
+ email
+ note
+ key
+ birthday
+ nbirthday
+ }
+ {}
+%<!birthday> { adr.char }
+%<birthday> { b.month }
+% \end{macrocode}
+% \begin{macrocode}
+%<!birthday>INTEGERS { cur.adr.char }
+%<birthday>STRINGS { cur.month num.index alpha.index }
+% \end{macrocode}
+% \begin{macrocode}
+FUNCTION {get.names}
+{ name empty$
+ { organization empty$
+ { "{}{}" }
+ { organization "{}" * }
+ if$
+ }
+ { "{" name #1 "{ll}" format.name$ "}" * *
+ "{" name #1 "{ff}{ vv}" format.name$ "}" * * *
+ }
+ if$
+}
+% \end{macrocode}
+% \begin{macrocode}
+FUNCTION {print.adrchr}
+%<*!birthday>
+{ adr.char chr.to.int$ cur.adr.char >
+ { newline$ "\adrchar{" adr.char "}" * * write$ newline$
+ adr.char chr.to.int$ 'cur.adr.char :=
+ }
+ 'skip$
+%</!birthday>
+%<*birthday>
+{ b.month cur.month =
+ 'skip$
+ { newline$ "\adrchar{\convdate{" b.month "}}" * * write$ newline$
+ b.month 'cur.month :=
+ }
+%</birthday>
+ if$
+}
+% \end{macrocode}
+%\iffalse
+% $% <-- we do this to correct syntax hightlight.
+%\fi
+% \begin{macrocode}
+%<*conv|birthday>
+FUNCTION{format.phone.and.mobile}
+{ phone empty$
+ {
+ mobile empty$
+ { "" }
+ { mobile }
+ if$
+ }{
+ mobile empty$
+ { phone }
+ { phone "\\" mobile * * }
+ if$
+ }
+ if$
+}
+%</conv|birthday>
+% \end{macrocode}
+% \begin{macrocode}
+%<*fax>
+FUNCTION{format.phone.and.fax}
+{ phone empty$
+ { "" }
+ { phone }
+ if$
+ fax empty$
+ 'skip$
+ { phone empty$
+ { fax * }
+ { "\\Fax:\\" fax * * }
+ if$
+ }
+ if$
+}
+%</fax>
+% \end{macrocode}
+%\iffalse
+% $% <-- we do this to correct syntax hightlight.
+%\fi
+% \begin{macrocode}
+FUNCTION{address}
+{
+%<*birthday>
+ nbirthday empty$
+ 'skip$
+ {
+%</birthday>
+ print.adrchr
+ "\adrentry" write$
+ get.names write$ newline$
+ "{"
+ street empty$
+ { "" }
+ { street " \\ " *}
+ if$
+ *
+ zip empty$
+ { "" }
+ { zip }
+ if$
+ " " * *
+ city empty$
+ { "" }
+ { city }
+ if$
+ "}{" * *
+%<conv|birthday> format.phone.and.mobile
+%<fax> format.phone.and.fax
+%<*email>
+ email empty$
+ { "" }
+ { email }
+ if$
+%</email>
+ "}{}{}{}{" * *
+%<*birthday>
+ birthday empty$
+ { "" }
+ { birthday }
+ if$
+ "}{" * *
+%</birthday>
+ key empty$
+ { "" }
+%<!birthday> { key }
+%<birthday> { "" }
+ if$
+ "}" * * write$ newline$
+%<*birthday>
+ }
+ if$
+%</birthday>
+}
+% \end{macrocode}
+% \begin{macrocode}
+FUNCTION{presort}
+%<*!birthday>
+{
+ name empty$
+ { organization empty$
+ { key empty$
+ { "No name, organization, or key to sort " cite$ * warning$
+ "???"
+ }
+ { key }
+ if$
+ }
+ { organization }
+ if$
+ }
+ { name #1 "{ll},{f }{v }{, j}" format.name$ }
+%</!birthday>
+%<*birthday>
+{ nbirthday empty$
+ { "" }
+ { nbirthday }
+%</birthday>
+ if$
+ duplicate$
+ 'sort.key$ :=
+%<*!birthday>
+ #1 #1 substring$
+ 'adr.char :=
+%</!birthday>
+%<*birthday>
+ #1 #2 substring$
+ 'b.month :=
+%</birthday>
+% \end{macrocode}
+% At every but \File{birthday.bst} the adr.char is the first letter of
+% the sort.key.
+% \begin{macrocode}
+}
+% \end{macrocode}
+% \begin{macrocode}
+READ
+% \end{macrocode}
+% \begin{macrocode}
+ITERATE {presort}
+% \end{macrocode}
+% \begin{macrocode}
+SORT
+% \end{macrocode}
+% \begin{macrocode}
+FUNCTION {begin.bib}
+{
+%<*birthday>
+ "\def\convdate#1{\ifcase#1 \or 1 \or 2 \or 3 \or 4 \or 5 "
+ "\or 6 \or 7 \or 8 \or 9 \or 10 \or 11 \or 12 \fi}" * 'num.index :=
+ "\def\convdate#1{\ifcase#1 \or Januar \or Februar \or "
+ " M{^^b a}rz \or April \or Mai \or Juni \or Juli "
+ "\or August \or September \or Oktober \or November \or Dezember \fi}"
+ * * 'alpha.index :=
+ alpha.index write$
+ newline$
+%</birthday>
+%<*email>
+ "\def\sbscrpt{\_} \catcode`\_=\active \let_=\sbscrpt"
+ write$ newline$
+%</email>
+ preamble$ empty$
+ 'skip$
+ { preamble$ write$ newline$ }
+ if$
+%<!birthday> #0 'cur.adr.char :=
+%<birthday> "00" 'cur.month :=
+}
+%\iffalse
+% $% <-- we do this to correct syntax hightlight.
+%\fi
+% \begin{macrocode}
+EXECUTE {begin.bib}
+% \end{macrocode}
+% \begin{macrocode}
+ITERATE {call.type$}
+% \end{macrocode}
+% Print a newline and flush the write buffer
+% \begin{macrocode}
+FUNCTION {end.bib}
+{ newline$ }
+% \end{macrocode}
+% \begin{macrocode}
+EXECUTE {end.bib}
+% \end{macrocode}
+%
+% \iffalse
+%</bst>
+% \fi
+%
+%
+% \section{An example \BibTeX{} database}
+%
+% Do not believe everything you read here. It is just a
+% demonstration.
+%
+% \iffalse
+%<*bib>
+%<*example>
+% \fi
+% \begin{macrocode}
+@address{mustermann,
+ name = {Hans Mustermann},
+ city = {Heimstatt},
+ zip = 01234,
+ country = {D -},
+ street = {Einbahnstra{\ss}e 1},
+ phone = {01234 / 5 67 89},
+ fax = {01234 / 5 67 89},
+ email = {hm{@}work.com},
+ note = {Alles nur Erfindung},
+}
+@address{AxelK,
+ name = {Axel Kielhorn},
+ city = {Verden},
+ zip = 27283,
+ street = {Lange Stra{\ss}e 17},
+ phone = {04231 / 12 34 56},
+ fax = {04231 / 65 34 21},
+ email = {a.kielhorn{@}web.de},
+ key = {Aki},
+ note = {Author of the modified addressen.bst},
+ birthday = {16.05.1967},
+ nbirthday = 0516,
+}
+@address{RalfK,
+ name = {Ralf Kielhorn},
+ city = {Braunschweig},
+ zip = 38116,
+ street = {Gro{\ss}e Stra{\ss}e 17},
+ phone = {0531 / 12 34 56},
+ key = {Rki},
+ birthday = {05.08.1969},
+ nbirthday = 0805,
+}
+@address{SabineK,
+ name = {Sabine Kielhorn},
+ city = {Oldenburg},
+ zip = 26133,
+ street = {Fraunhoferstra{\ss}e 21},
+ phone = {0441 / 12 34 56},
+ key = {Ski},
+ birthday = {13.11.1970},
+ nbirthday = 1113,
+}
+% \end{macrocode}
+%
+% \iffalse
+%</example>
+%</bib>
+% \fi
+% \Finale
+\endinput
+%
+% end of file ``adrconv.dtx''
diff --git a/Master/texmf-dist/source/latex/adrconv/adrconv.ins b/Master/texmf-dist/source/latex/adrconv/adrconv.ins
new file mode 100644
index 00000000000..f579d3e7520
--- /dev/null
+++ b/Master/texmf-dist/source/latex/adrconv/adrconv.ins
@@ -0,0 +1,114 @@
+% ====================================================================
+% adrconv.ins
+% Copyright (c) 2001 Axel Kielhorn
+%
+% This file will generate fast loadable files from adrconv.dtx when
+% run through LaTeX or TeX.
+%
+% This file is part of the adrconv bundle.
+%
+% This file can be distributed and/or modified under the conditions of
+% the LaTeX Project Public License, either version 1.2 of the license
+% or (at you option) any later version.
+% The latest version of this license is in
+% http://www.latex-procejt.org/lppl.txt
+% and version 1.2 or later ist part of all distributions of LaTeX
+% version 1999/12/01 or later.
+%
+% The adrconv bundle consists at least of the files adrconv.dtx,
+% adrconv.ins and adrguide.tex. Use
+% tex adrconv.ins
+% or
+% latex adrconv.ins
+% to generate the other files, which are indirect parts of the
+% bundle. Use
+% latex adrconv.dtx
+% to generate the implementation documentation. Use
+% latex adrguide.tex
+% to generate the user documentation.
+% ====================================================================
+%
+% ------------------ start of docstrip commands ----------------------
+\def\batchfile{adrconv.ins}
+\input docstrip.tex
+
+\keepsilent
+\askforoverwritetrue
+
+\ifToplevel{\ifx\generate\undefined
+ \Msg{**********************************************}
+ \Msg{*}
+ \Msg{* This installation requires docstrip}
+ \Msg{* version 2.3c or later.}
+ \Msg{*}
+ \Msg{* An older version of docstrip has been input}
+ \Msg{*}
+ \Msg{**********************************************}
+ \errhelp{Move or rename old docstrip.tex.}
+ \errmessage{Old docstrip in input path}
+ \batchmode
+ \csname @@end\endcsname
+ \fi
+}
+
+\preamble
+Copyright (c) 2001 Axel Kielhorn
+
+This file will generate fast loadable files from adrconv.dtx when
+run through LaTeX or TeX.
+
+This file is part of the adrconv bundle.
+
+This file can be distributed and/or modified under the conditions of
+the LaTeX Project Public License, either version 1.2 of the license
+or (at you option) any later version.
+The latest version of this license is in
+ http://www.latex-procejt.org/lppl.txt
+and version 1.2 or later ist part of all distributions of LaTeX
+version 1999/12/01 or later.
+
+The adrconv bundle consists at least of the files adrconv.dtx,
+adrconv.ins and adrguide.tex.
+
+You are NOT ALLOWED to change this file.
+
+You are NOT ALLOWED to distribute this file without adrconv.dtx,
+adrconv.ins or adrguide.tex.
+\endpreamble
+
+\generate{%
+ \file{adrconv.tex}{\from{adrconv.dtx}{tex,conv}}
+ \file{adrfax.tex}{\from{adrconv.dtx}{tex,fax}}
+ \file{birthday.tex}{\from{adrconv.dtx}{tex,birthday}}
+ \file{email.tex}{\from{adrconv.dtx}{tex,email}}
+ \file{adrdir.tex}{\from{adrconv.dtx}{dir}}% Don't set tex
+ \file{adrdir.cfg}{\from{adrconv.dtx}{cfg,dir}}
+ \file{adrplaner.cfg}{\from{adrconv.dtx}{cfg,planer}}
+ \file{adrsmall.cfg}{\from{adrconv.dtx}{cfg,small}}
+ \nopostamble
+ \file{adrfax.bst}{\from{adrconv.dtx}{bst,fax}}
+ \file{adrconv.bst}{\from{adrconv.dtx}{bst,conv}}
+ \file{birthday.bst}{\from{adrconv.dtx}{bst,birthday}}
+ \file{email.bst}{\from{adrconv.dtx}{bst,email}}
+ \file{example.bib}{\from{adrconv.dtx}{bib,example}}
+ }
+
+\ifToplevel{%
+ \Msg{**************************************************************}
+ \Msg{*}
+ \Msg{* To finish installation you have to move some files into a}
+ \Msg{* directory sourced by TeX or BibTeX.}
+ \Msg{* See documentation of your TeX distribution to find out the}
+ \Msg{* correct directory.}
+ \Msg{* All ``*.tex'' files may be somewhere.}
+ \Msg{* All ``*.cfg'' files should be near the ``*.tex'' files.}
+ \Msg{* All ``*.bst'' files should be somewhere like}
+ \Msg{* texmf/bibtex/bst.}
+ \Msg{*}
+ \Msg{* To get the documentation simply run latex at file}
+ \Msg{* ``adrguide.tex''. You will get a file ``adrguide.dvi''.}
+ \Msg{*}
+ \Msg{**************************************************************}
+ }
+
+\endinput