diff options
author | Karl Berry <karl@freefriends.org> | 2007-08-08 17:55:43 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-08-08 17:55:43 +0000 |
commit | 4ced46483f40846bb18f28d2ab0011fceb84b9e9 (patch) | |
tree | 832e2273525b633ed4287c98942b4afca99f4df6 /Master/texmf-dist/doc/latex/adrconv/adrdir.tex | |
parent | 06ead28059a5be10b97415c0b30431d93fa097ce (diff) |
adrconv update (12nov06)
git-svn-id: svn://tug.org/texlive/trunk@4718 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/adrconv/adrdir.tex')
-rw-r--r-- | Master/texmf-dist/doc/latex/adrconv/adrdir.tex | 175 |
1 files changed, 175 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/adrconv/adrdir.tex b/Master/texmf-dist/doc/latex/adrconv/adrdir.tex new file mode 100644 index 00000000000..43d1d9541cc --- /dev/null +++ b/Master/texmf-dist/doc/latex/adrconv/adrdir.tex @@ -0,0 +1,175 @@ +%% +%% This is file `adrdir.tex', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% adrconv.dtx (with options: `dir') +%% Copyright 2006 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. +%% +%% You are NOT ALLOWED to change this file. +%% +%% You are NOT ALLOWED to distribute this file without adrconv.dtx, +%% adrconv.ins or adrguide.tex. +%% adrguide.dtx +%% Copyright 2006 Axel Kielhorn +\ifx\ProvidesFile\undefined\def\ProvidesFile#1[#2]{}\fi +\ProvidesFile{% + adrdir% + .tex% + } + [2006/04/19 v1.2c LaTeX2e + Interactive address directory generation] +\documentclass[headsepline,10pt,twoside]{scrartcl} +\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} +\newif\ifGerman +\newif\ifRunningHead +\newdimen\leftfield +\newdimen\rightfield +\newdimen\adrindent +\oddsidemargin -1in +\evensidemargin -1in +\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 +\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} +\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} + } +\begin{document} +\ifRunningHead + \def\adrchar#1{\typeout{#1}} +\else + \def\adrchar#1{\clearpage\typeout{#1}\markboth{#1}{#1}} +\fi +\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 + \cleardoublepage + \raggedbottom + \pagestyle{headings} + }{% + \typeout{^^J% + *** File \adrfile.adr not found!^^J% + *** Datei \adrfile.adr nicht gefunden!^^J% + ^^J} + } +\fi +\end{document} +\endinput +%% +%% End of file `adrdir.tex'. |