2179 |
. doc-parse-args \$@ |
. doc-parse-args \$@ |
2180 |
. \} |
. \} |
2181 |
. el \{\ |
. el \{\ |
2182 |
. ie \n[doc-space-mode] \ |
. ie \n[doc-space-mode] \{\ |
2183 |
|
. ds doc-saved-space "\*[doc-space] |
2184 |
|
. ds doc-space |
2185 |
. nr doc-space-mode 0 |
. nr doc-space-mode 0 |
2186 |
. el \ |
. \} |
2187 |
|
. el \{\ |
2188 |
|
. ds doc-space "\*[doc-saved-space] |
2189 |
. nr doc-space-mode 1 |
. nr doc-space-mode 1 |
2190 |
|
. |
2191 |
|
. \" finish line only if it is interrupted and `doc-have-space' |
2192 |
|
. \" isn't set |
2193 |
|
. if \n[doc-reg-Sm] \ |
2194 |
|
. if \n[.int] \ |
2195 |
|
. nop \) |
2196 |
|
. \} |
2197 |
. \}\} |
. \}\} |
2198 |
. |
. |
2199 |
. if !\n[doc-arg-limit] \ |
. if !\n[doc-arg-limit] \ |
2218 |
. el \{\ |
. el \{\ |
2219 |
. \" no argument for Sm |
. \" no argument for Sm |
2220 |
. nr doc-arg-ptr -1 |
. nr doc-arg-ptr -1 |
2221 |
. ie \n[doc-space-mode] \ |
. ie \n[doc-space-mode] \{\ |
2222 |
|
. ds doc-saved-space "\*[doc-space] |
2223 |
|
. ds doc-space |
2224 |
. nr doc-space-mode 0 |
. nr doc-space-mode 0 |
2225 |
. el \ |
. \} |
2226 |
|
. el \{\ |
2227 |
|
. ds doc-space "\*[doc-saved-space] |
2228 |
. nr doc-space-mode 1 |
. nr doc-space-mode 1 |
2229 |
|
. \} |
2230 |
. \}\} |
. \}\} |
2231 |
. |
. |
2232 |
. ie \n[doc-space-mode] \{\ |
. ie \n[doc-space-mode] \{\ |
2253 |
. \} |
. \} |
2254 |
. |
. |
2255 |
. \" do we have parameters to print? |
. \" do we have parameters to print? |
2256 |
. ie (\n[doc-arg-limit] <= \n[doc-arg-ptr]) \{\ |
. ie (\n[doc-arg-limit] > \n[doc-arg-ptr]) \{\ |
|
. \" ignore `.Sm on' and `.Sm off' without additional parameters |
|
|
. ie (\n[doc-arg-ptr] > 1) \ |
|
|
. doc-print-and-reset |
|
|
. el \ |
|
|
. doc-reset-args |
|
|
. \} |
|
|
. el \{\ |
|
2257 |
. \" skip `Sm' argument |
. \" skip `Sm' argument |
2258 |
. nr doc-arg-ptr +1 |
. nr doc-arg-ptr +1 |
2259 |
. doc-print-recursive |
. doc-print-recursive |
2260 |
. \} |
. \} |
2261 |
|
. el \ |
2262 |
|
. doc-reset-args |
2263 |
.. |
.. |
2264 |
. |
. |
2265 |
. |
. |
5157 |
. ie \n[.$] \ |
. ie \n[.$] \ |
5158 |
. tm Usage: .Re (does not take arguments) (#\n[.c]) |
. tm Usage: .Re (does not take arguments) (#\n[.c]) |
5159 |
. el \{\ |
. el \{\ |
5160 |
|
. if !\n[doc-is-reference] \{\ |
5161 |
|
. tm mdoc warning: Extraneous .Re (#\n[.c]) |
5162 |
|
. return |
5163 |
|
. \} |
5164 |
. doc-print-reference |
. doc-print-reference |
5165 |
. doc-reset-reference |
. doc-reset-reference |
5166 |
. nr doc-is-reference 0 |
. nr doc-is-reference 0 |
5239 |
.\" NS doc-reference-count |
.\" NS doc-reference-count |
5240 |
. |
. |
5241 |
.de doc-finish-reference |
.de doc-finish-reference |
5242 |
. nr doc-reference-count -1 |
. nr doc-reference-count -\$1 |
5243 |
. ie \n[doc-reference-count] \ |
. ie \n[doc-reference-count] \ |
5244 |
. nop \), |
. nop \), |
5245 |
. el \ |
. el \ |
5269 |
. chop doc-reference-title-name-for-book |
. chop doc-reference-title-name-for-book |
5270 |
. ie ((\n[doc-journal-count] == 1) : (\n[doc-book-count] == 1)) \{\ |
. ie ((\n[doc-journal-count] == 1) : (\n[doc-book-count] == 1)) \{\ |
5271 |
. nop \)\*[q]\)\*[doc-reference-title-name-for-book]\)\*[q]\c |
. nop \)\*[q]\)\*[doc-reference-title-name-for-book]\)\*[q]\c |
5272 |
. doc-finish-reference |
. doc-finish-reference \n[doc-reference-title-count] |
5273 |
. \} |
. \} |
5274 |
. el \{\ |
. el \{\ |
5275 |
. nop \*[doc-reference-title-name]\c |
. nop \*[doc-reference-title-name]\c |
5276 |
. doc-finish-reference |
. doc-finish-reference \n[doc-reference-title-count] |
5277 |
. \}\} |
. \}\} |
5278 |
. |
. |
5279 |
. if \n[doc-book-count] \{\ |
. if \n[doc-book-count] \{\ |
5280 |
. unformat doc-book-name |
. unformat doc-book-name |
5281 |
. chop doc-book-name |
. chop doc-book-name |
5282 |
. nop \*[doc-book-name]\c |
. nop \*[doc-book-name]\c |
5283 |
. doc-finish-reference |
. doc-finish-reference \n[doc-book-count] |
5284 |
. \} |
. \} |
5285 |
. |
. |
5286 |
. if \n[doc-publisher-count] \{\ |
. if \n[doc-publisher-count] \{\ |
5287 |
. unformat doc-publisher-name |
. unformat doc-publisher-name |
5288 |
. chop doc-publisher-name |
. chop doc-publisher-name |
5289 |
. nop \*[doc-publisher-name]\c |
. nop \*[doc-publisher-name]\c |
5290 |
. doc-finish-reference |
. doc-finish-reference \n[doc-publisher-count] |
5291 |
. \} |
. \} |
5292 |
. |
. |
5293 |
. if \n[doc-journal-count] \{\ |
. if \n[doc-journal-count] \{\ |
5294 |
. unformat doc-journal-name |
. unformat doc-journal-name |
5295 |
. chop doc-journal-name |
. chop doc-journal-name |
5296 |
. nop \*[doc-journal-name]\c |
. nop \*[doc-journal-name]\c |
5297 |
. doc-finish-reference |
. doc-finish-reference \n[doc-journal-count] |
5298 |
. \} |
. \} |
5299 |
. |
. |
5300 |
. if \n[doc-report-count] \{\ |
. if \n[doc-report-count] \{\ |
5301 |
. unformat doc-report-name |
. unformat doc-report-name |
5302 |
. chop doc-report-name |
. chop doc-report-name |
5303 |
. nop \*[doc-report-name]\c |
. nop \*[doc-report-name]\c |
5304 |
. doc-finish-reference |
. doc-finish-reference \n[doc-report-count] |
5305 |
. \} |
. \} |
5306 |
. |
. |
5307 |
. if \n[doc-issue-count] \{\ |
. if \n[doc-issue-count] \{\ |
5308 |
. unformat doc-issue-name |
. unformat doc-issue-name |
5309 |
. chop doc-issue-name |
. chop doc-issue-name |
5310 |
. nop \*[doc-issue-name]\c |
. nop \*[doc-issue-name]\c |
5311 |
. doc-finish-reference |
. doc-finish-reference \n[doc-issue-count] |
5312 |
. \} |
. \} |
5313 |
. |
. |
5314 |
. if \n[doc-volume-count] \{\ |
. if \n[doc-volume-count] \{\ |
5315 |
. unformat doc-volume-name |
. unformat doc-volume-name |
5316 |
. chop doc-volume-name |
. chop doc-volume-name |
5317 |
. nop \*[doc-volume-name]\c |
. nop \*[doc-volume-name]\c |
5318 |
. doc-finish-reference |
. doc-finish-reference \n[doc-volume-count] |
5319 |
. \} |
. \} |
5320 |
. |
. |
5321 |
. if \n[doc-page-number-count] \{\ |
. if \n[doc-page-number-count] \{\ |
5322 |
. unformat doc-page-number-string |
. unformat doc-page-number-string |
5323 |
. chop doc-page-number-string |
. chop doc-page-number-string |
5324 |
. nop \*[doc-page-number-string]\c |
. nop \*[doc-page-number-string]\c |
5325 |
. doc-finish-reference |
. doc-finish-reference \n[doc-page-number-count] |
5326 |
. \} |
. \} |
5327 |
. |
. |
5328 |
. if \n[doc-corporate-count] \{\ |
. if \n[doc-corporate-count] \{\ |
5329 |
. unformat doc-corporate-name |
. unformat doc-corporate-name |
5330 |
. chop doc-corporate-name |
. chop doc-corporate-name |
5331 |
. nop \*[doc-corporate-name]\c |
. nop \*[doc-corporate-name]\c |
5332 |
. doc-finish-reference |
. doc-finish-reference \n[doc-corporate-count] |
5333 |
. \} |
. \} |
5334 |
. |
. |
5335 |
. if \n[doc-date-count] \{\ |
. if \n[doc-date-count] \{\ |
5336 |
. unformat doc-date |
. unformat doc-date |
5337 |
. chop doc-date |
. chop doc-date |
5338 |
. nop \*[doc-date]\c |
. nop \*[doc-date]\c |
5339 |
. doc-finish-reference |
. doc-finish-reference \n[doc-date-count] |
5340 |
. \} |
. \} |
5341 |
. |
. |
5342 |
. if \n[doc-optional-count] \{\ |
. if \n[doc-optional-count] \{\ |
5343 |
. unformat doc-optional-string |
. unformat doc-optional-string |
5344 |
. chop doc-optional-string |
. chop doc-optional-string |
5345 |
. nop \*[doc-optional-string]\c |
. nop \*[doc-optional-string]\c |
5346 |
. doc-finish-reference |
. doc-finish-reference \n[doc-optional-count] |
5347 |
. \} |
. \} |
5348 |
. |
. |
5349 |
. if \n[doc-reference-count] \ |
. if \n[doc-reference-count] \ |