1 | % -*- Mode: LaTeX -*-
|
---|
2 |
|
---|
3 | % lisp-documentation.tex --
|
---|
4 | % Environment definition for use in connection with the 'user manual'
|
---|
5 | % facility of Common Lisp
|
---|
6 | %
|
---|
7 | % Author: Marco Antoniotti
|
---|
8 | % Address: Robotics Laboratory
|
---|
9 | % Courant Institute of Mathematical Science
|
---|
10 | % New York University
|
---|
11 | % New York, NY, 10012
|
---|
12 | %
|
---|
13 | % Copyright (c) 1992. All rights reserved.
|
---|
14 | %
|
---|
15 | % Version: 0.9 beta
|
---|
16 |
|
---|
17 | %==============================================================================
|
---|
18 | % General License Agreement and Lack of Warranty
|
---|
19 | %
|
---|
20 | % See companion file user-manual.lisp
|
---|
21 |
|
---|
22 |
|
---|
23 | %==============================================================================
|
---|
24 | % History:
|
---|
25 | % 01.05.93: created.
|
---|
26 |
|
---|
27 | %==============================================================================
|
---|
28 | % Global definitions
|
---|
29 |
|
---|
30 | \newlength{\formnamelen} % length of a name of a form
|
---|
31 | \newlength{\pboxargslen} % length of parbox for arguments
|
---|
32 | \newlength{\typelen} % length of the type label for the form
|
---|
33 |
|
---|
34 | \newcommand{\namestyle}{\sf} % style for the name (still unused)
|
---|
35 | \newcommand{\argsstyle}{\em} % style for the arguments (still unused)
|
---|
36 |
|
---|
37 |
|
---|
38 | %------------------------------------------------------------------------------
|
---|
39 | % lisp:documentation environment
|
---|
40 |
|
---|
41 | \newenvironment{lisp:documentation}[3]{\paragraph{{\sf #1}}
|
---|
42 | \settowidth{\formnamelen}{\sf #1}
|
---|
43 | \settowidth{\typelen}{\em #2\/}
|
---|
44 | \setlength{\pboxargslen}{\linewidth}
|
---|
45 | \addtolength{\pboxargslen}{-1\formnamelen}
|
---|
46 | \addtolength{\pboxargslen}{-1.5\typelen}
|
---|
47 | \parbox[t]{\pboxargslen}{\em #3\/} \hfill[{\em #2\/}]
|
---|
48 | \begin{quote}}{\end{quote}}
|
---|
49 |
|
---|
50 | % lisp:documentation
|
---|
51 |
|
---|
52 | % end of file -- lisp-documentation.tex --
|
---|