% File:    sts.sty
% Date:    30-mar-1997
% Author:  F.Matthes 
% Purpose: Useful definitions for STS publications 
% Note:    You need the new Latex2e!
%
\NeedsTeXFormat{LaTeX2e}[1994/06/01]
\ProvidesPackage{sts}
                  [1996/04/01 v1.0 STS standard declarations]
%----------------------------
% Empty pages without page numbers 
\newcommand{\clearemptydoublepage}{\newpage{\pagestyle{empty}\cleardoublepage}}

% emphasize a word
\newcommand{\e}[1]{{\em #1\/}}

% a programming language keyword:
\renewcommand{\k}[1]{{\bf #1}}

% a comment to be removed in the final version:
\newcommand{\comment}[1]{\par{[*** #1 ***]}\par}

% a quote from a program fragment:
\newcommand{\p}[1]{{\sl{}#1}}

% highlight an English word:
\newcommand{\engl}[1]{{\em #1\/}}

%----------------------------
% \begin{xple} TEXT \end{xple}
% Typeset TEXT as a programming language example:
% Obey linebreaks and multiple spaces, use slanted font
\def\@xple{\trivlist \item[]\if@minipage\else\vskip\parskip\fi
%\leftskip 1cm
%\@totalleftmargin
\rightskip\z@
\parindent\z@\parfillskip\@flushglue\parskip\z@
\@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
\obeylines \sl}

\def\xple{\@xple \frenchspacing\@vobeyspaces}
\let\endxple=\endtrivlist

%----------------------------
% \begin{xpletab} TEXT \end{xpletab}
% Typeset TEXT as a tabulated programming language example:
% Obey linebreaks and multiple spaces, use slanted font
\newenvironment{xpletab}[1]{\begin{xple}\begin{tabular}{#1}%
}{\end{tabular}\end{xple}%
}