Newer
Older
% -*- tex -*-
%
% This file contains macros which are used when translating
% to HTML using Hevea. By Luc Maranget and Eric Marsden.
\newif\ifhmode\hmodefalse
\newcommand{\xspace}{}
\let\hbox\mbox
\def\hfil{}
\def\hfill{}
\newcommand{\parbox}[3][]{\mbox{#3}}
\newcommand{\lengthtest}[1]{true}
\newenvironment{minipage}[2][]{}{}
\newcommand{\layout}[4][]
{\@open{DIV}{align=left}
[#4] \\
\fcnname{#1}\fcnname{#2} #3 \@print{ }
\@close{DIV}}
% \newcommand{\layout}[4][]
% {\begin{tabular}
% {llp{10cm}@{\hspace{10cm}}r}\fcnname{#1} &
% \fcnname{#2} &
% \begin{flushleft}#3\end{flushleft} &
% [#4]
% \end{tabular}}
\newcommand{\fcntype}[1]{\@open{TT}{class=function-type}#1\@close{TT}}
\newcommand{\argtype}[1]{\@open{TT}{class=argument-type}#1\@close{TT}}
\newcommand{\fcnname}[1]{\@open{TT}{class=function-name}#1\@close{TT}}
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
\newcommand{\var}[1]{\@open{TT}{class=variable}#1\@close{TT}}
\newcommand{\code}[1]{\@open{TT}{class=code}#1\@close{TT}}
\newcommand{\file}[1]{\@open{TT}{class=filename}#1\@close{TT}}
%% Define a new type
%%
%% \begin{deftp}{typeclass}{typename}{args}
%% some description
%% \end{deftp}
\newenvironment{deftp}[3]
{\par\bigskip\index[types]{#2|textbf}%
\layout{#2}{\var{#3}}{#1}
\begin{quote}}
{\end{quote}}
%% Define a function
%%
%% \begin{defun}{pkg}{name}{params}
%% \defunx[pkg]{name}{params}
%% description of function
%% \end{defun}
\newenvironment{defun}[3]
{\par\defunvspace\fnindexbold{#2}\label{FN:#2}%
\layout[#1]{#2}{#3}{Function}
\begin{quote}}
{\end{quote}}
\newcommand{\defunx}[3][\mbox{}]{%
\par\fnindexbold{#2}\label{FN:#2}%
\layout[#1]{#2}{#3}{Function}}
%% Define a macro
%%
%% \begin{defmac}{pkg}{name}{params}
%% \defmacx[pkg]{name}{params}
%% description of macro
%% \end{defmac}
\newenvironment{defmac}[3]{%
\par\defunvspace\fnindexbold{#2}\label{FN:#2}%
\layout[#1]{#2}{#3}{Macro}
\begin{quote}}
{\end{quote}}
\newcommand{\defmacx}[3][\mbox{}]{%
\par\fnindexbold{#2}\label{FN:#2}%
\layout[#1]{#2}{#3}{Function}}
%% Define a variable
%%
%% \begin{defvar}{pkg}{name}
%% \defvarx[pkg]{name}
%% description of defvar
%% \end{defvar}
\newenvironment{defvar}[2]{%
\par\defunvspace\vrindexbold{#2}\label{VR:#2}
\layout[#1]{*#2*}{}{Variable}
\begin{quote}}
{\end{quote}}
\newcommand{\defvarx}[2][\mbox{}]{%
\par\vrindexbold{#2}\label{VR:#2}
\layout[#1]{*#2*}{}{Variable}}
%% Define a constant
%%
%% \begin{defconst}{pkg}{name}
%% \defconstx[pkg]{name}
%% description of defconst
%% \end{defconst}
\newenvironment{defconst}[2]{%
\defunvspace\defconstx[#1]{#2}
\begin{quote}}
{\end{quote}}
\newcommand{\defconstx}[2][\mbox{}]{%
\layout[#1]{#2}{}{Constant}}
% \@hr[NOSHADE]{.8\linewidth}{}
\newenvironment{example}
{\@open{BLOCKQUOTE}{class=example}\begin{alltt}}
{\end{alltt}\@close{BLOCKQUOTE}}
\newenvironment{lisp}
{\@open{BLOCKQUOTE}{CLASS=lisp} \begin{alltt}}
{\end{alltt}\@close{BLOCKQUOTE}}
\newcommand{\cmucl}{CMUCL}
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
% there are no page numbers in HTML, so we need to override certain
% cross-referencing macros
\newcommand{\pxlref}[1]{see section~\ref{#1}}
\newcommand{\xlref}[1]{See section~\ref{#1}}
\newcommand{\funref}[1]{\findexed{#1}}
\newcommand{\specref}[1]{\findexed{#1}}
\newcommand{\macref}[1]{\findexed{#1}}
\newcommand{\varref}[1]{\vindexed{#1}}
\newcommand{\conref}[1]{\conindexed{#1}}
\newcommand{\ctrl}[1]{\code{Ctrl-#1}}
\newcommand{\result}{==>}
\newcommand{\myequiv}{<==>}
\newcommand{\mopt}[1]{\code{\{#1\}}}
\newcommand{\mstar}[1]{\code{\{#1\}}$^*$}
\newcommand{\mplus}[1]{\code{\{#1\}}$^+$}
\newcommand{\mgroup}[1]{\code{\{#1\}}}
% disable ``this document generated by'' footer
\setcounter{footer}{0}
% \htmlhead{\@print{
% <a href="../../">CMUCL</a> ->
% <a href="../">Documentation</a> <br>}
% \@hr[NOSHADE]{.8\linewidth}{}\@print{<br>}}
% \htmlfoot{\@hr[NOSHADE]{.99\linewidth}{}
% \copyright{} 1995-2003 CMUCL Project}
\let\orig@meta=\@meta
\renewcommand{\@meta}{%
\orig@meta
\begin{rawhtml}
<link rel="stylesheet" href="cmucl.css" type="text/css">
<meta http-equiv="Content-Language" content="en">
\end{rawhtml}}
% when generating HTML, produce file names based on the chapter name
% instead of machine-generated numbers
\let\orig@input\input
\renewcommand{\input}[1]{\orig@input{#1}\cutname{#1.html}}
\htmlprefix{CMUCL User's Manual: }
% generate HTML with section headers on a blue background
\setcounter{cuttingdepth}{10}
\input{report.hva}
\input{fancysection.hva}
\definecolor{chapter}{rgb}{1, 1, 0.74}
\definecolor{part}{rgb}{1, 1, 0.81}
\definecolor{section}{rgb}{1, 1, 0.83}
\definecolor{subsection}{rgb}{1, 1, 0.89}
\definecolor{subsubsection}{rgb}{1, 1, 0.93}
\renewcommand{\@bodyargs}{}
% EOF