~ubuntu-branches/ubuntu/dapper/groff/dapper

« back to all changes in this revision

Viewing changes to tmac/doc-ditroff

  • Committer: Bazaar Package Importer
  • Author(s): Colin Watson
  • Date: 2002-03-17 04:11:50 UTC
  • Revision ID: james.westby@ubuntu.com-20020317041150-wkgfawjc3gxlk0o5
Tags: upstream-1.17.2
ImportĀ upstreamĀ versionĀ 1.17.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
.\" Copyright (c) 1991, 1993
 
2
.\"     The Regents of the University of California.  All rights reserved.
 
3
.\"
 
4
.\" Redistribution and use in source and binary forms, with or without
 
5
.\" modification, are permitted provided that the following conditions
 
6
.\" are met:
 
7
.\" 1. Redistributions of source code must retain the above copyright
 
8
.\"    notice, this list of conditions and the following disclaimer.
 
9
.\" 2. Redistributions in binary form must reproduce the above copyright
 
10
.\"    notice, this list of conditions and the following disclaimer in the
 
11
.\"    documentation and/or other materials provided with the distribution.
 
12
.\" 3. All advertising materials mentioning features or use of this software
 
13
.\"    must display the following acknowledgement:
 
14
.\"      This product includes software developed by the University of
 
15
.\"      California, Berkeley and its contributors.
 
16
.\" 4. Neither the name of the University nor the names of its contributors
 
17
.\"    may be used to endorse or promote products derived from this software
 
18
.\"    without specific prior written permission.
 
19
.\"
 
20
.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 
21
.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 
22
.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 
23
.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 
24
.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 
25
.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 
26
.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 
27
.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 
28
.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 
29
.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 
30
.\" SUCH DAMAGE.
 
31
.\"
 
32
.\"     @(#)doc-ditroff 8.1 (Berkeley) 06/08/93
 
33
.\"
 
34
.\"     %beginstrip%
 
35
.
 
36
.
 
37
.eo
 
38
.
 
39
.\" use -rC=1 to number pages continuously
 
40
.
 
41
.if !r C .nr C 0
 
42
.
 
43
.\" use -rD=1 for double-sided printing
 
44
.
 
45
.if !r D .nr D 0
 
46
.
 
47
.\" use -rcR=1 to force the creation of a single, very long page
 
48
.
 
49
.if !r cR .nr cR 0
 
50
.
 
51
.\" use -rS={11,12} to change the font size from 10pt to 11pt or 12pt.
 
52
.
 
53
.if !r S .nr S 10
 
54
.
 
55
.
 
56
.ec
 
57
.
 
58
.
 
59
.ie        (\n[S] == 11) \{\
 
60
.  ps 10.95z
 
61
.  vs 13.6p
 
62
.\}
 
63
.el \{ .ie (\n[S] == 12) \{\
 
64
.  ps 12z
 
65
.  vs 14.5p
 
66
.\}
 
67
.el \{\
 
68
.  ps 10z
 
69
.  vs 12p
 
70
.\}\}
 
71
.
 
72
.
 
73
.\" the `doc-xx-font' strings must not be empty!
 
74
.
 
75
.ds doc-caption-font \f[R]\s[\n[.ps]u]
 
76
.ds doc-caption-font2 \f[R]\s[\n[.ps]u]
 
77
.ds doc-Ad-font \f[I]\s[\n[.ps]u]
 
78
.ds doc-Ar-font \f[CO]\s[\n[.ps]u]
 
79
.ds doc-Cm-font \f[CB]\s[\n[.ps]u]
 
80
.ds doc-Em-font \f[I]\s[\n[.ps]u]
 
81
.ds doc-Er-font \f[C]\s[\n[.ps]u]
 
82
.ds doc-Ev-font \f[C]\s[\n[.ps]u]
 
83
.ds doc-Fa-font \f[CO]\s[\n[.ps]u]
 
84
.ds doc-Fd-font \f[CB]\s[\n[.ps]u]
 
85
.ds doc-Fl-font \f[CB]\s[\n[.ps]u]
 
86
.ds doc-Fn-font \f[CB]\s[\n[.ps]u]
 
87
.ds doc-Ft-font \f[CO]\s[\n[.ps]u]
 
88
.ds doc-Ic-font \f[CB]\s[\n[.ps]u]
 
89
.ds doc-Li-font \f[C]
 
90
.ds doc-Me-font \f[B]\s[\n[.ps]u]
 
91
.ds doc-Nm-font \f[CB]\s[\n[.ps]u]
 
92
.ds doc-No-font \f[R]\s[\n[.ps]u]
 
93
.ds doc-Pa-font \f[C]\s[\n[.ps]u]
 
94
.ds doc-Sh-font \f[B]\s[\n[.ps]u]
 
95
.ds doc-Sy-font \f[B]\s[\n[.ps]u]
 
96
.ds doc-Sx-font \f[B]\s[\n[.ps]u]
 
97
.ds doc-Tn-font-shape \f[R]
 
98
\# XXX: adapt to discrete LaTeX font sizes
 
99
.ds doc-Tn-font-size \s[(\n[.ps]u - 1z)]
 
100
.ds doc-Va-font \f[I]\s[\n[.ps]u]
 
101
.ds doc-Xr-font \f[C]\s[\n[.ps]u]
 
102
.
 
103
.ds doc-left-parenthesis \f[R]\|(\|\f[P]\s[\n[.ps]u]
 
104
.ds doc-right-parenthesis \f[R]\|)\|\f[P]\s[\n[.ps]u]
 
105
.ds lp \f[R](\f[P]\s[\n[.ps]u]
 
106
.ds rp \f[R])\f[P]\s[\n[.ps]u]
 
107
.ds doc-left-bracket \f[R]\^[\^\f[P]\s[\n[.ps]u]
 
108
.ds doc-right-bracket \f[R]\^]\f[P]\s[\n[.ps]u]
 
109
.
 
110
.tr *\[**]
 
111
.
 
112
.\" miscellaneous
 
113
.nr doc-subheader-indent (\w\f[C],u * 5u)
 
114
.nr doc-paragraph-space .5v
 
115
.
 
116
.nr doc-digit-width \w'\0'u
 
117
.nr doc-fixed-width \w\f[C]0
 
118
.
 
119
.eo
 
120
.
 
121
.
 
122
.\" NS doc-header-space global register
 
123
.\" NS   the space between header and body
 
124
.
 
125
.nr doc-header-space 0
 
126
.
 
127
.
 
128
.\" NS doc-footer-space global register
 
129
.\" NS   the space between body and footer
 
130
.
 
131
.nr doc-footer-space 0
 
132
.
 
133
.
 
134
.\" NS doc-display-vertical global register
 
135
.\" NS   vertical space between list elements etc.
 
136
.
 
137
.nr doc-display-vertical 0
 
138
.
 
139
.
 
140
.\" NS doc-setup-page-layout macro
 
141
.\" NS   set up page layout
 
142
.\" NS
 
143
.\" NS modifies:
 
144
.\" NS   doc-display-vertical
 
145
.\" NS   doc-footer-space
 
146
.\" NS   doc-header-space
 
147
.
 
148
.de doc-setup-page-layout
 
149
.  nr doc-header-space .5i
 
150
.  nr doc-footer-space .5i
 
151
.
 
152
.  ll 6.5i
 
153
.  lt 6.5i
 
154
.  po 1i
 
155
.
 
156
.  nr doc-display-vertical .5v
 
157
..
 
158
.
 
159
.
 
160
.ds doc-left-singlequote \[oq]
 
161
.ds doc-right-singlequote \[cq]
 
162
.
 
163
.\" the following strings are `official'
 
164
.ds <= \[<=]
 
165
.ds >= \[>=]
 
166
.ds Lq \[lq]
 
167
.ds Rq \[rq]
 
168
.ds ua \[ua]
 
169
.ds aa \[aa]
 
170
.ds ga \[ga]
 
171
.ds q \[dq]
 
172
.ds Pi \[*p]
 
173
.ds Ne \[!=]
 
174
.ds Le \[<=]
 
175
.ds Ge \[>=]
 
176
.ds Lt <
 
177
.ds Gt >
 
178
.ds Pm \[+-]
 
179
.ds If \[if]
 
180
.ds Na \f[I]NaN\f[P]
 
181
.ds Ba \f[R]|\f[P]
 
182
.
 
183
.nr gX 0
 
184
.
 
185
.
 
186
.\" NS doc-header-string global string
 
187
.\" NS   the final string used for the manual page header
 
188
.
 
189
.ds doc-header-string
 
190
.
 
191
.
 
192
.\" NS doc-setup-header macro
 
193
.\" NS   install and initialize header and footer support
 
194
.\" NS
 
195
.\" NS modifies:
 
196
.\" NS   doc-header-string
 
197
.
 
198
.de doc-setup-header
 
199
.  ds doc-header-string "\*[doc-document-title]
 
200
.  if !"\*[doc-section]"Null" \
 
201
.    as doc-header-string \|(\*[doc-section])
 
202
.
 
203
.  wh 0 doc-header
 
204
.  wh -1.25i doc-footer
 
205
.
 
206
.  nr nL \n[nl]
 
207
.  if \n[gX] \
 
208
.    ds doc-command-name
 
209
.
 
210
.  br
 
211
.
 
212
.  \" Don't set the page number if this is the first page,
 
213
.  \" in case the user has used -n.
 
214
.  if \n[nL] \
 
215
.    if !\n[C] \
 
216
.      nr % 1
 
217
.
 
218
.  nr gX 0
 
219
.  e@ doc-end-macro
 
220
..
 
221
.
 
222
.
 
223
.\" NS doc-get-width macro
 
224
.\" NS   computes the width of a string as a multiple of `doc-fixed-width':
 
225
.\" NS   `.doc-get-width string'
 
226
.\" NS
 
227
.\" NS modifies:
 
228
.\" NS   doc-width
 
229
.
 
230
.de doc-get-width
 
231
.  nr doc-width \w\f[C]\$1
 
232
.  ie (\n[doc-width] >= \n[doc-fixed-width]) \{\
 
233
.    ie (\n[doc-width] % \n[doc-fixed-width]) \
 
234
.      nr doc-width ((\n[doc-width] / \n[doc-fixed-width]) + 1)
 
235
.    el \
 
236
.      nr doc-width (\n[doc-width] / \n[doc-fixed-width])
 
237
.  \}
 
238
.  el \{\
 
239
.    ie \n[doc-width] \
 
240
.      nr doc-width 1
 
241
.    el \
 
242
.      nr doc-width 0
 
243
.  \}
 
244
..
 
245
.
 
246
.
 
247
.\" NS doc-get-arg-width macro
 
248
.\" NS   computes the width of an argument as a multiple of
 
249
.\" NS   `doc-fixed-width': `.doc-get-arg-width arg-index'
 
250
.\" NS
 
251
.\" NS modifies:
 
252
.\" NS   doc-width
 
253
.
 
254
.de doc-get-arg-width
 
255
.  nr doc-width \w\f[C]\*[doc-arg\$1]
 
256
.  ie (\n[doc-width] >= \n[doc-fixed-width]) \{\
 
257
.    ie (\n[doc-width] % \n[doc-fixed-width]) \
 
258
.      nr doc-width ((\n[doc-width] / \n[doc-fixed-width]) + 1)
 
259
.    el \
 
260
.      nr doc-width (\n[doc-width] / \n[doc-fixed-width])
 
261
.  \}
 
262
.  el \{\
 
263
.    ie \n[doc-width] \
 
264
.      nr doc-width 1
 
265
.    el \
 
266
.      nr doc-width 0
 
267
.  \}
 
268
..
 
269
.
 
270
.
 
271
.\" NS Ql user macro
 
272
.\" NS   quoted literal define
 
273
.\" NS
 
274
.\" NS modifies:
 
275
.\" NS   doc-argXXX
 
276
.\" NS   doc-arg-limit
 
277
.\" NS   doc-arg-ptr
 
278
.\" NS   doc-macro-name
 
279
.\" NS   doc-spaceXXX
 
280
.\" NS   doc-typeXXX
 
281
.\" NS   doc-quote-left
 
282
.\" NS   doc-quote-right
 
283
.\" NS
 
284
.\" NS local variables:
 
285
.\" NS   doc-reg-Ql
 
286
.\" NS   doc-reg-Ql1
 
287
.\" NS   doc-reg-Ql2
 
288
.\" NS
 
289
.\" NS width register `Ql' set in doc-common
 
290
.
 
291
.de Ql
 
292
.  if !\n[doc-arg-limit] \{\
 
293
.    ie \n[.$] \{\
 
294
.      ds doc-macro-name Ql
 
295
.      doc-parse-args \$@
 
296
.    \}
 
297
.    el \
 
298
.      tm Usage: .Ql argument ... (#\n[.c])
 
299
.  \}
 
300
.
 
301
.  nr doc-reg-Ql (\n[doc-arg-ptr] + 1)
 
302
.  doc-get-arg-width \n[doc-reg-Ql]
 
303
.
 
304
.  \" don't use quotes if we have more than two succeeding string arguments
 
305
.  nr doc-reg-Ql +1
 
306
.  if (\n[doc-arg-limit] >= \n[doc-reg-Ql]) \
 
307
.    if (\n[doc-type\n[doc-reg-Ql]] == 2) \
 
308
.      nr doc-width 3
 
309
.
 
310
.  \" make a difference in quotation style for strings longer
 
311
.  \" than two characters
 
312
.  ie (\n[doc-width] > 2) \
 
313
.    Li
 
314
.  el \{\
 
315
.    ie \n[doc-arg-ptr] \{\
 
316
.      \" we replace `Ql' with `Li'
 
317
.      ds doc-arg\n[doc-arg-ptr] Li
 
318
.      nr doc-arg-ptr -1
 
319
.    \}
 
320
.    el \{\
 
321
.      \" if .Ql has been called directly, we must shift all elements in
 
322
.      \" the argument vector to the right so that we can insert `Li'
 
323
.      nr doc-reg-Ql \n[doc-arg-limit]
 
324
.      nr doc-reg-Ql1 (\n[doc-arg-limit] + 1)
 
325
.      while \n[doc-reg-Ql] \{\
 
326
.        rn doc-arg\n[doc-reg-Ql] doc-arg\n[doc-reg-Ql1]
 
327
.        rnn doc-type\n[doc-reg-Ql] doc-type\n[doc-reg-Ql1]
 
328
.        rn doc-space\n[doc-reg-Ql] doc-space\n[doc-reg-Ql1]
 
329
.        nr doc-reg-Ql -1
 
330
.        nr doc-reg-Ql1 -1
 
331
.      \}
 
332
.      ds doc-arg1 Li
 
333
.      nr doc-type1 1
 
334
.      ds doc-space1
 
335
.      nr doc-arg-limit +1
 
336
.    \}
 
337
.
 
338
.    ds doc-quote-left "\*[doc-left-singlequote]
 
339
.    ds doc-quote-right "\*[doc-right-singlequote]
 
340
.    doc-enclose-string
 
341
.  \}
 
342
..
 
343
.
 
344
.
 
345
.ec
 
346
.
 
347
.\" EOF