Einf ¨uhrung in UNIX - CIS

2.7 Writer’s Workbench 149
%
% wegen Quotes (Gaensefuesschen) in source-Umgebung,
% darf auch sonst verwendet werden:
\def\qunormal{\catcode‘\"=12}
\def\quactive{\catcode‘\"=\active}
%
% in Unterschriften Umlaute ("a, "o, "u) ermoeglichen
% (der Programmtext wird mit qunormal geschrieben):
\def\caption{\quactive \refstepcounter\@captype
\@dblarg{\@caption\@captype}}
%
% neue Umgebung source fuer Programmtexte
% aehnlich figure, nicht floatend, Seitenumbruch erlaubt
% abgestimmt auf \verbinput{file} aus verbtext.sty
% qunormal + quactive sind enthalten
%
% neuer Zaehler, kapitelweise:
\newcounter{source}[chapter]
\def\thesource{\thechapter.\arabic{source}\ }
\def\fnum@source{{\sl\sourcename\ \thesource}}
%
% Filekennung List of Sources (main.los) und
% Overview (main.ovr):
\def\ext@source{los}
\def\ext@overview{ovr}
%
% neue Umgebung, Aufruf: \begin{source} .... \end{source},
% vor end{source} kommt caption:
\newenvironment{source}{\vskip 12pt \qunormal
\def\@currentlabel{\p@source\thesource}
\def\@captype{source}}{\quactive \vskip 12pt}
%
% neuer Befehl \listofsources analog \listoffigures
% zur Erzeugung eines Programmverzeichnisses:
\def\listofsources{\@restonecolfalse\if@twocolumn
\@restonecoltrue\onecolumn
\fi\chapter*{\listsourcename\@mkboth
{{\listsourcename}}{{\listsourcename}}}\@starttoc{los}
\if@restonecol\twocolumn\fi}
\let\l@source\l@figure
%
% Kapitelkopf, rep12.sty. Siehe Kopka 2, S. 187 + 289:
% ohne Kapitel + Nummer:
\def\@makechapterhead#1{\vspace*{36pt}
{\parindent 0pt \raggedright
\LARGE \bf \thechapter \hspace{6mm} #1 \par
\nobreak \vskip 10pt } }
\def\@makeschapterhead#1{\vspace*{36pt}
{\parindent 0pt \raggedright
\LARGE \bf #1 \par
\nobreak \vskip 10pt } }
%
% aus rep12.sty; ergaenzt wegen source