%			SWI-Prolog document-style

%	Other styles

\input logo.sty
\usepackage{a4wide}
\usepackage{fancyheadings}
\usepackage{fancychap}
\usepackage{makeidx}
\usepackage{longtable}
\usepackage{ifthen}
\usepackage{dcolumn}
\usepackage{url}
\usepackage{psfig}
\usepackage{calc}
\setlongtables
\pssilent

\catcode`\^^A=8% downarrow are for subscripts
\catcode`\_=\active
\def_{\ifmmode\else\_\fi}
\def\vobeyspaces{\@vobeyspaces}

%	FLOATS

\setcounter{topnumber}{100}
\renewcommand{\topfraction}{0.9}
\setcounter{totalnumber}{100}
\renewcommand{\bottomfraction}{0.9}
\renewcommand{\textfraction}{0.1}
\renewcommand{\dbltopfraction}{0.9}
\renewcommand{\dblfloatpagefraction}{0.8}
\renewcommand{\floatpagefraction}{0.8}

\def\fps@figure{htbp}
\def\fps@table{htbp}

%	References

\newcommand{\secref}[1]{section~\ref{sec:#1}}
\newcommand{\appref}[1]{appendix~\ref{sec:#1}}
\newcommand{\chapref}[1]{chapter~\ref{sec:#1}}
\newcommand{\figref}[1]{figure~\ref{fig:#1}}
\newcommand{\tabref}[1]{table~\ref{tab:#1}}

\newcommand{\Secref}[1]{Section~\ref{sec:#1}}
\newcommand{\Appref}[1]{Appendix~\ref{sec:#1}}
\newcommand{\Chapref}[1]{Chapter~\ref{sec:#1}}
\newcommand{\Figref}[1]{Figure~\ref{fig:#1}}
\newcommand{\Tabref}[1]{Table~\ref{tab:#1}}

\newcommand{\tm}{$^{tm}$}

\newcommand{\reffont}{\bf}
\newcommand{\predref}[2]{%		% functor/arity
	\mbox{\reffont #1/#2}}
\newcommand{\functor}[2]{%		% functor/arity (no predicate)
	\mbox{\reffont #1/#2}}
\newcommand{\manref}[2]{%		% page(n)
	\mbox{{\reffont #1(}{\rm #2}{\reffont )}}}
\newcommand{\funcref}[2]{%		% function(Args...)
	\mbox{{\reffont #1(}{\it #2}{\reffont )}}}

%	Descriptions (definitions) of various things

\newcommand{\definition}[1]{%
	\item[\mbox{#1}]\hfill\mbox{}\linebreak}
\newcommand{\defentry}[1]{\definition{#1}}
\newcommand{\emptydefinition}[1]{%
	\makebox[-\leftmargin]{\mbox{}}\mbox{\bf #1}\\}

\makeatletter
\def\cmdlineoptionitem{\@ifstar{\@gluedcmdoptitem}{\@cmdoptitem}}
\def\@gluedcmdoptitem#1#2{\definition{#1\var{#2}}}
\def\@cmdoptitem#1#2{\definition{#1 \var{#2}}}
\makeatother

\newcommand{\traceoption}[3]{%
	\definition{{\tt #1} (#2)}#3%
	\ignorespaces}
\newcommand{\pleaseoption}[3]{%
	\definition{#1 {\it #2} {\rm(default: \it #3)}}%
	\ignorespaces}
\newcommand{\featureoption}[2]{%
	\definition{#1 ({\it #2})}%
	\ignorespaces}
\newcommand{\escapeitem}[1]{%
	\definition{\Sesc{\tt #1}}
	\ignorespaces}
\newcommand{\fmtchar}[1]{%
	\item[\tt #1]%
	\ignorespaces}
\newcommand{\directive}[3]{%
	\defentry{:- #1({\it #3})}%
	\index{#1/#2}\ignorespaces}
\newcommand{\predicate}[3]{%
	\ifthenelse{\equal{#2}{0}}{%
	    \defentry{#1}}{%
	    \defentry{#1({\it #3})}}%
	\index{#1/#2}\ignorespaces}
\newcommand{\infixop}[3]{%
	\defentry{{\it #2} #1 {\it #3}}%
	\index{#1/2}\ignorespaces}
\newcommand{\prefixop}[2]{%
	\defentry{#1 {\it #2}}%
	\index{#1/1}\ignorespaces}
\newcommand{\termitem}[2]{%
	\ifthenelse{\equal{}{#2}}{%
	    \definition{#1}}{%
	    \definition{#1({\it #2})}}\ignorespaces}
\def\term{}
\renewcommand{\term}[2]{%
	\ifthenelse{\equal{}{#2}}{%
	    #1}{%
	    #1({\it #2})}}
\newcommand{\errorterm}[2]{\mbox{\tt%
	\ifthenelse{\equal{}{#2}}{%
	    #1}{%
	    #1(#2)}}}
\newcommand{\cfunction}[3]{%
	\defentry{{\it #1} #2({\it #3})}%
	\index{#2()}\ignorespaces}
\newcommand{\cmacro}[3]{%
	\defentry{{\it #1} #2({\it #3})}%
	\index{#2()}\ignorespaces}
\newcommand{\cglobalvar}[1]{{\tt #1}}

\renewcommand{\arg}[1]{\ifmmode\mbox{\em #1}\else{\em #1}\fi}
\newcommand{\bnfmeta}[1]{\ifmmode{\langle\mbox{\it #1}\rangle}\else$\langle\mbox{\it #1}\rangle$\fi}
\newcommand{\bnfor}{\ifmmode\mid\else$\mid$\fi}
\newcommand{\isa}{& ::= &}
\newcommand{\ora}{& $\mid$ &}

\newcommand{\demo}[1]{{\sf #1}\index{#1 \string\idxtype{demo}}}
\newcommand{\pllib}[1]{library({\tt #1})\index{#1 \string\idxtype{library}}}
\newcommand{\clib}[1]{{\tt #1}\index{#1 \string\idxtype{library}}}
\newcommand{\tool}[1]{{\em #1}\index{#1 \string\idxtype{tool}}}
\newcommand{\constf}[1]{{\tt #1}}
\newcommand{\const}[1]{{\tt #1}}
\newcommand{\type}[1]{{\tt #1}}
\newcommand{\idx}[1]{#1\index{#1}}
\newcommand{\foreseen}[1]{\footnote{#1}}
\newcommand{\email}[1]{\mbox{\tt #1}}
%\newcommand{\url}[1]{\mbox{\tt #1}}
\newcommand{\env}[1]{\mbox{\tt #1}}
\newcommand{\exam}[1]{\mbox{\tt #1}}
\newcommand{\file}[1]{\mbox{\tt #1}}
\newcommand{\fileext}[1]{\mbox{\tt .#1}}
\newcommand{\option}[1]{\mbox{\tt #1}}
\newcommand{\cmdlineoption}[1]{\mbox{\tt #1}}
\newcommand{\argoption}[2]{\mbox{\tt #1 \em #2}}
\newcommand{\ctype}[1]{{\tt #1}}
\newcommand{\op}[1]{{\tt #1}}
\newcommand{\program}[1]{{\tt #1}}
\newcommand{\manpage}[2]{{\bf #1}(#2)}
\newcommand{\chr}[1]{{\tt #1}}
\newcommand{\jargon}[1]{{\em #1}}
\newcommand{\strong}[1]{{\bf #1}}
\newcommand{\texcmd}[1]{{\Sesc}{\tt #1}}
\newcommand{\texenv}[1]{{\tt #1}}
\newcommand{\texmode}[1]{{\tt #1}}
\newcommand{\HTML}[1]{{\bf #1}}

\newcommand\satom{\begingroup \urlstyle{tt}\Url}
\newcommand\fmtseq{\begingroup \urlstyle{tt}\Url}
%\newcommand\file{\begingroup \urlstyle{tt}\Url}

\urldef{\Sexe}\satom{#!}		% #!
\urldef{\Scut}\satom{!}			% !
\urldef{\Scomma}\satom{,}		% ,
\urldef{\Sifthen}\satom{->}		% ->
\urldef{\Ssoftcut}\satom{*->} 		% *->
\urldef{\Sdot}\satom{.} 		% .
\urldef{\Ssemicolon}\satom{;} 		% ;
\urldef{\Slt}\satom{<} 			% <
\urldef{\Seq}\satom{=} 			% =
\urldef{\Suniv}\satom{=..} 		% =..
\urldef{\Saeq}\satom{=:=} 		% =:=
\urldef{\Sle}\satom{=<} 		% =<
\urldef{\Sequal}\satom{==} 		% ==
\urldef{\Sstructeq}\satom{=@=} 		% =@=
\urldef{\Sstructneq}\satom{\=@=} 	% \=@=
\urldef{\Sane}\satom{=\=} 		% =\=
\urldef{\Sgt}\satom{>} 			% >
\urldef{\Sge}\satom{>=} 		% >=
\urldef{\Stlt}\satom{@<} 		% @<
\urldef{\Stle}\satom{@=<} 		% @=<
\urldef{\Stgt}\satom{@>} 		% @>
\urldef{\Stge}\satom{@>=} 		% @>=
\urldef{\Snot}\satom{\+} 		% \+
\urldef{\Sne}\satom{\=} 		% \=
\urldef{\Snequal}\satom{\==} 		% \==
\urldef{\Shat}\satom{^} 		% ^
\urldef{\Sbar}\satom{|} 		% |
\urldef{\Stimes}\satom{*}		% *
\urldef{\Spow}\satom{**}		% **
\urldef{\Splus}\satom{+}		% +
\urldef{\Sminus}\satom{-}		% -
\urldef{\Sdiv}\satom{/}			% /
\urldef{\Sidiv}\satom{//}		% //
\urldef{\Sand}\satom{/\}		% /\
\urldef{\Slshift}\satom{<<}		% <<
\urldef{\Srshift}\satom{>>}		% >>
\urldef{\Sneg}\satom{\}			% \
\urldef{\Sesc}\satom{\}			% \
\urldef{\Sor}\satom{\/}			% \/
\urldef{\Sdollar}\satom{$}		% $
\urldef{\Squest}\satom{?}		% ?
\urldef{\Smodule}\satom{:}		% :
\urldef{\Sneck}\satom{:-}		% :-
\urldef{\Sdirective}\satom{?-}		% ?-
\urldef{\Sdcg}\satom{-->}		% -->
\urldef{\Bc}\satom{\c}			% \c
\urldef{\Bn}\satom{\n}			% \n
\urldef{\Br}\satom{\r}			% \r
\urldef{\Bl}\satom{\l}			% \l
\urldef{\BB}\satom{\\}			% \\
\urldef{\Stilde}\satom{~}		% ~
\urldef{\Spercent}\satom{%}		% %
\urldef{\Shash}\satom{#}		% #

\newcommand{\bug}[1]{\footnote{BUG: #1}}

\newcommand{\mod}[2]{#1 \mbox{\rm mod} #2}
\newcommand{\rem}[2]{#1 \mbox{\rm rem} #2}
\newcommand{\pow}[2]{{#1}^{#2}}

%	Index handling

\newcommand{\idxtype}[1]{{\small\em #1}}

%	Prolog predicate summary

\newenvironment{summarylist}[1]{\begin{longtable}[l]{#1}}{\end{longtable}}
\newcommand{\predicatesummary}[3]{#1/#2 & #3 \\}
\newcommand{\oppredsummary}[5]{#1/#2 & #5 \\}
\newcommand{\functionsummary}[3]{#1/#2 & #3 \\}
\newcommand{\opfuncsummary}[5]{#1/#2 & #5 \\}
\newcommand{\opsummary}[4]{#3 & #1 & #2 & #4 \\}
\newcommand{\hook}[1]{(hook)}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%			CODE environment			%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newlength{\codeindent}
\setlength{\codeindent}{\leftmargin}
\newenvironment{codequote}%
	{\begin{list}{}{\setlength{\leftmargin}{0pt}%
			\setlength{\rightmargin}{0pt}}%
			\item[]\small\ignorespaces}%
  	{\end{list}}


%	just like verbatim, but indents like quote.
%	allows also the use of leading tabs

\makeatletter
{\catcode`\^^I=\active
    \gdef^^I{\mbox{}\space\space\space\space\space\space\space\space}}

\begingroup \catcode `|=0 \catcode `[= 1
\catcode`]=2 \catcode `\{=12 \catcode `\}=12
\catcode`\\=12
|gdef|@xcode#1\end{code}[#1|end[code]]
|endgroup

\def\@code{\trivlist\setlength{\leftmargin}{\codeindent}%
		    \setlength{\rightmargin}{\codeindent}%
		    \item[]\if@minipage\else\vskip\parskip\fi
\leftskip\@totalleftmargin\rightskip\z@
\parindent\z@\parfillskip\@flushglue\parskip\z@
\@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
\obeylines \catcode`\^^I=\active \tt \let\do\@makeother \dospecials}

\def\code{\@code \frenchspacing\@vobeyspaces \@xcode}
\def\@endcode{\endtrivlist}
\let\endcode=\@endcode


%	PostScript figures
%	\postscriptfig[width=5in]{label}{Title}

\def\postscriptfig{\@ifnextchar[{\@scaledpostscriptfig}{\@postscriptfig}}
\def\@scaledpostscriptfig[#1]#2#3{%
	\begin{figure}%
	    \centerline{\psfig{figure=figs/#2.eps,#1}}
	    \caption{#3}
	    \label{fig:#2}
	\end{figure}}
\def\@postscriptfig#1#2{%
	\begin{figure}%
	    \centerline{\psfig{figure=figs/#1.eps}}
	    \caption{#2}
	    \label{fig:#1}
	\end{figure}}
\makeatletter


%	\begin{tabularlp}{longest-text}

\newlength{\tabDright}
\newlength{\tabDleft}
\newcommand{\PreserveBackslash}[1]{\let\temp=\\#1\let\\=\temp}
\newcommand{\raggedrightcolumn}{\PreserveBackslash\raggedright\hspace{0pt}}
\newenvironment{tabularlp}[1]%
	{\settowidth{\tabDleft}{#1}%
	 \setlength{\tabDright}{\linewidth-\columnsep*3-\tabDleft}%
	 \begin{tabular}{|p{\tabDleft}|>{\raggedrightcolumn}p{\tabDright}|}}%
	{\end{tabular}}

%	PAGESTYLE
%
%       Chapter                            date
%       ---------------------------------------
%
%	bla, bla, bla, ...
%	
%       \bottomleft    - page -    \bottomright

\def\arabicday{\number\year-\number\month-\number\day}

\providecommand{\runningtitle}{none}

\ifthenelse{\equal{\runningtitle}{none}}{%
	\relax}{%
\pagestyle{fancyplain}
\headheight 14pt
\def\chaptermark{\mbox{}}
\renewcommand{\chaptermark}[1]{\markboth{#1}{#1}} % remember chapter title
\renewcommand{\sectionmark}[1]{\markright{\thesection\ #1}}

\lhead[\fancyplain{}{\bf\thepage}]{\fancyplain{}{\bf\rightmark}}
\rhead[\fancyplain{}{\bf\leftmark}]{\fancyplain{}{\bf\thepage}}
\footrulewidth 0.2pt
\lfoot[\tiny \runningtitle]{}
\rfoot[]{\tiny \runningtitle}
\cfoot{}}
