/contrib/groff/contrib/mm/mm/ms.cov

https://bitbucket.org/freebsd/freebsd-head/ · Unknown · 84 lines · 84 code · 0 blank · 0 comment · 0 complexity · d07773d25bde1e6fe306a236e4705435 MD5 · raw file

  1. .\"------------
  2. .\" $Id: ms.cov,v 2.0 2000/09/14 03:40:25 jhaegg Exp $
  3. .\" Cover sheet. Mostly like ms cover.
  4. .\"------------
  5. .de cov@print-title
  6. .in 0
  7. .misc@ev-keep cov*ev
  8. .init@reset
  9. .ad c
  10. .hy 0
  11. .fi
  12. .B
  13. .cov*title
  14. .br
  15. .ad b
  16. .R
  17. .ev
  18. ..
  19. .\"------------
  20. .de cov@print-authors
  21. .SP
  22. .nr cov*i 0 1
  23. .while \\n+[cov*i]<=\\n[cov*au] \{\
  24. . ce
  25. \fI\\*[cov*au!\\n[cov*i]!1]\fP
  26. . nr cov*j 0 1
  27. . while \\n+[cov*j]<=9 \{\
  28. . if d cov*at!\\n[cov*i]!\\n[cov*j] \{\
  29. . if \w'\\*[cov*at!\\n[cov*i]!\\n[cov*j]]' \{\
  30. . ce
  31. \s-1\\*[cov*at!\\n[cov*i]!\\n[cov*j]]\s0
  32. . .\}
  33. . \}
  34. . \}
  35. .\}
  36. ..
  37. .\"------------
  38. .de cov@print-firm
  39. .SP .5
  40. .ce
  41. \\*[cov*firm]
  42. ..
  43. .\"------------
  44. .de cov@print-abstract
  45. .SP 2
  46. .if d cov*abstract \{\
  47. . misc@ev-keep cov*ev
  48. . init@reset
  49. . if \\n[cov*abs-ind]>0 \{\
  50. . in +\\n[cov*abs-ind]u
  51. . ll -\\n[cov*abs-ind]u
  52. . \}
  53. . ce
  54. \fI\\$1\fP
  55. . SP 1.5
  56. . fi
  57. . cov*abstract
  58. . br
  59. . ev
  60. .\}
  61. ..
  62. .\"------------
  63. .de cov@print-date
  64. .SP 2
  65. \f[\\*[@sdf_font]]\\*[cov*new-date]\fP
  66. ..
  67. .\"-----------------
  68. .de COVEND
  69. .br
  70. .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  71. .sp |4.2c
  72. .cov@print-title
  73. .cov@print-authors
  74. .cov@print-firm
  75. .cov@print-abstract \\*[cov*abs-name]
  76. .cov@print-date
  77. .pg@enable-top-trap
  78. .bp 1
  79. .pg@enable-trap
  80. .if d cov*abs-arg .if \\n[cov*abs-arg] \{\
  81. . cov@print-abstract ABSTRACT
  82. . SP 2
  83. .\}
  84. ..