summaryrefslogtreecommitdiff
path: root/obsolete/macros/latex209/contrib/script/dir.tex
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/latex209/contrib/script/dir.tex')
-rw-r--r--obsolete/macros/latex209/contrib/script/dir.tex74
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}
+