diff options
Diffstat (limited to 'Master/texmf-dist/source')
| -rw-r--r-- | Master/texmf-dist/source/latex/adrconv/XtraStuf.mac/adrconv.xml | bin | 0 -> 382 bytes | |||
| -rw-r--r-- | Master/texmf-dist/source/latex/adrconv/adrconv.dtx | 871 | ||||
| -rw-r--r-- | Master/texmf-dist/source/latex/adrconv/adrconv.ins | 114 |
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 Binary files differnew file mode 100644 index 00000000000..622c2775710 --- /dev/null +++ b/Master/texmf-dist/source/latex/adrconv/XtraStuf.mac/adrconv.xml 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 |