/[groff]/groff/tmac/doc.tmac
ViewVC logotype

Diff of /groff/tmac/doc.tmac

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by wl, Fri Jan 14 09:02:11 2005 UTC revision 1.36 by wl, Mon Jan 24 08:26:19 2005 UTC
# Line 2179  Line 2179 
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] \
# Line 2207  Line 2218 
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] \{\
# Line 2237  Line 2253 
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  .  .
# Line 5146  Line 5157 
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
# Line 5224  Line 5239 
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 \
# Line 5254  Line 5269 
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] \

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26