diff options
Diffstat (limited to 'obsolete/macros/latex209/contrib/script/dir.tex')
-rw-r--r-- | obsolete/macros/latex209/contrib/script/dir.tex | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/obsolete/macros/latex209/contrib/script/dir.tex b/obsolete/macros/latex209/contrib/script/dir.tex new file mode 100644 index 0000000000..1aa7b8d117 --- /dev/null +++ b/obsolete/macros/latex209/contrib/script/dir.tex @@ -0,0 +1,74 @@ +% dir.tex -- by Frank Neukam (01 Dec 1993) +% Generates a directory from given .ADR file +% Remove `german' two lines below if german.sty is unavailable or useless + +\documentstyle[german,10pt,twoside]{script_s} +\headseplineon +\raggedbottom + +\def\empty{} +\def\adrfile{} +\def\adrtitle{} + +\typeout{} +\typeout{*** dir.tex v2.0 by Frank Neukam <01 Dec 1993> ***} +\typeout{} +\typein[\adrfile]{Name of .ADR file (without .ADR): } +\typeout{} +\typein[\adrtitle]{Title of directory: } +\typeout{} +\ifx\adrtitle\empty\def\adrtitle{\ }\fi + +\newdimen\paperwidth +\newdimen\leftfield +\newdimen\rightfield +\newdimen\adrindent +\paperwidth 210mm +\leftfield 40mm +\rightfield 25mm +\adrindent 1em +\advance\leftfield by -\adrindent +\textwidth 70mm +\oddsidemargin -1in +\evensidemargin -1in +\advance\oddsidemargin by 9mm +\advance\evensidemargin by \paperwidth +\advance\evensidemargin by -9mm +\advance\evensidemargin by -\textwidth +\textheight 120mm +\headheight 1\baselineskip +\headsep 0.5\baselineskip +\footheight 1\baselineskip +\footskip 1.5\baselineskip +\topmargin -1in +\advance\topmargin by 8mm +\marginparwidth 0in +\marginparsep 0in +\marginparpush 0in +\parskip 0.5\baselineskip +\parindent 0in + +\begin{document} +\def\headfont{\sfb} +\def\adrchar#1{\clearpage\typeout{#1}\markboth{#1}{#1}} +\def\adrentry#1#2#3#4#5#6#7#8{\hspace{\adrindent}% + \parbox[b]{\leftfield}{\raggedright \hspace{-\adrindent}{\sc #1}% + \ifx #2\empty \else , #2\fi% + \ifx #3\empty \else \par #3\fi% + \ifx #7\empty \else \par (#7)\fi}% + \hfill% + \parbox[b]{\rightfield}{\raggedright% + \ifx #8\empty \else {\scriptsize #8}\par \fi #4}\par} +\ifx\adrfile\empty \else + \pagestyle{empty} + \null\vfil + \begin{center} + {\Large \sfb \adrtitle} + \end{center} + \vfil\vfil\null + \cleardoublepage + \pagestyle{myheadings} + \input\adrfile.adr\relax +\fi +\end{document} + |