% $Id: cweb-doc.sty,v 1.3 1995/08/25 19:07:54 schrod Exp $
%----------------------------------------------------------------------

%
% tags for the documentation of cweb class
%


\ProvidesPackage{cweb-doc}


%
% Used packages
%

\begingroup
    \let\begingroup=\endinput
    \input{cweb.cls}			% get style revision
    \global\let\cweb@loaded=\cweb@loaded
\endgroup
\providecommand*\cweb@loaded{$StyleRevision$} % bootstrap



%
% Configuration of RCS fields
%

% keywords in style are prefixed by `Style', in documentation by `Doc'.
\let\RcsHandleStyleDate=\RcsHandleDate	% transform StyleDate value
\let\RcsHandleDocDate=\RcsHandleDate	% transform DocDate field

% the revision of cweb.cls is needed by the documentation
\def\RcsEmptyValue{$\langle$unknown$\rangle$}
\expandafter\RCS \cweb@loaded		% creates \RCSStyleRevision
\def\RcsEmptyValue{}

% author name
\rcsAuthor{schrod}{Joachim Schrod}



%
% new environments
%

\font\manfnt=manfnt	% with the dangerous bend sign
\chardef\bend="7F	% I like the non-S curve ;-)
\newenvironment{fixme}{%
	\trivlist
	    \hangindent 2em
	    \hangafter -2
	    \item[\hbox to 0pt{\hss \manfnt \bend}]%
	    \ignorespaces
    }{%
	\endtrivlist
    }


\newenvironment{cseqtab}{%
	\quote
	\obeycr
	\tabular{lrl}%
	\@gobblecr	% eat following newline
    }{%
	\endtabular
	\endquote
    }


\newenvironment{options}{%
	\list{}{%
	    \labelwidth\z@
	    \itemindent -.5\leftmargin
	    \labelsep 1em
	    \def\makelabel##1{%
		\hspace\labelsep
		\normalfont\ttfamily ##1%
		}%
	    }%
    }{%
        \endlist
    }



%
% new tags
%

% logos
\def\cweb{\texttt{CWEB}}
\def\ctangle{\texttt{CTANGLE}}
\def\cweave{\texttt{CWEAVE}}

% other
\renewcommand*\arg[1]{\textsl{Arg.~#1}:} % I don't use the arg operator

\def\<#1>{\textit{#1}}			% syntactic category

\newcommand\cls[1]{\textsf{#1}}		% LaTeX classes
\newcommand\pkg[1]{\textsf{#1}}		% LaTeX packages


%
% change of LaTeX parameters, for layout etc.
%

% underfull hboxes are not such a problem in program documentation

\hbadness=4000


% figure

\def\textfraction{0.1}	% must be at least 10% text on page
\def\topfraction{0.9}	% rest may be top insertion
\def\floatpagefraction{0.8} % float pages only if the float is larger than 80%




\endinput



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Local Variables:
mode: LaTeX
TeX-brace-indent-level: 4
indent-tabs-mode: t
TeX-auto-untabify: nil
End:
