From 05a17e07d70e9a10ffa2fe5f3e6278b7f5bb2844 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 21 Nov 2003 19:10:12 +0000
Subject: [PATCH] Use own decls.tex for HowTo.  Might merge with doc/decls.tex
 in the future.

---
 scheme/httpd/surflets/decls.tex | 66 +++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 scheme/httpd/surflets/decls.tex

diff --git a/scheme/httpd/surflets/decls.tex b/scheme/httpd/surflets/decls.tex
new file mode 100644
index 0000000..565c891
--- /dev/null
+++ b/scheme/httpd/surflets/decls.tex
@@ -0,0 +1,66 @@
+
+\makeatletter
+
+\def\surflet{SUrflet\xspace}
+\def\surflets{SUrflets\xspace}
+
+%From sunet/decls.tex
+\def\ie{\mbox{\emph{i.e.}} }        % \mbox keeps the last period from
+\def\Ie{\mbox{\emph{I.e.}} }        % looking like an end-of-sentence.
+\def\eg{\mbox{\emph{e.g.}} }
+\def\Eg{\mbox{\emph{E.g.}} }
+
+%From surflet/decls.tex
+{\theoremstyle{break} 
+\theoremheaderfont{\normalfont\bfseries\em}
+ \newtheorem{proglist}{Listing}[section]}
+\setlength{\theorempreskipamount}{1.5ex plus0.2ex minus0.2ex}
+\setlength{\theorempostskipamount}{2ex plus0.5ex minus0.2ex}
+
+\newenvironment{listing}
+ {\ULforem\begin{proglist}\begin{alltt}\small}
+ {\end{alltt}\end{proglist}\normalem}
+
+\newenvironment{reflisting}[1]
+ {\ULforem\begin{proglist}[\refinlisting{#1}]\begin{alltt}\small}
+ {\end{alltt}\end{proglist}\normalem}
+
+\newcommand{\contatlisting}[1]{%
+{\normalfont\textit{$<$wird fortgesetzt in Listing~\ref{#1}\/$>$}}}
+\newcommand{\contfromlisting}[1]{%
+{\normalfont\textit{$<$fortgesetzt von Listing~\ref{#1}\/$>$}}}
+\newcommand{\refinlisting}[1]{%
+{\normalfont\textit{referenziert in Listing~\ref{#1}}}}
+\newcommand{\seelisting}[1]{%
+{\normalfont{\textit{$<$siehe Listing~\ref{#1}\/$>$}}}}
+
+\newfloat{program}{t}{lop}
+\floatname{program}{Programm}
+\newenvironment{floatprog}[2]
+ {\begin{program}[ht] \caption{#1} \label{#2} \begin{alltt}}
+ {\end{alltt} \end{program}%
+  % Force output of even long floating figs
+  \afterpage{\clearpage}}
+
+% stolen from sunet/doc/latex/decls.tex (Olin)
+\newenvironment{leftinset}
+ {\bgroup\parskip=1ex plus 1ex\begin{list}{}%
+        {\topsep=0pt}%
+        \item[]}%
+ {\end{list}\leavevmode\egroup\global\@ignoretrue}
+%\newcommand{\code}[1]{{\normalfont\texttt{\ttchars #1}}}
+\newcommand{\code}[1]{\frenchspacing\texttt{#1}}
+\newcommand{\codex}[1]{\begin{leftinset}\code{#1}\end{leftinset}\ignorespaces}
+
+% Use url-package to get function names line-breaked at - / +
+% by infos in /usr/share/texmf/tex/latex/misc/url.sty
+\newcommand\breakfuntt{\begingroup \urlstyle{tt}%
+\@ifundefined{selectfont}{\def\UrlFont{\tt}}{\def\UrlFont{\ttfamily}}%
+\def\UrlBreaks{\do\-\do\/\do\+}\def\UrlNoBreaks{\do\!}\Url
+}
+
+\newcommand{\name}[1]{\breakfuntt{#1}}
+\newcommand{\object}[1]{\breakfuntt{#1}}
+\newcommand{\file}[1]{\breakfuntt{#1}}
+
+\makeatother