/contrib/groff/contrib/mm/mm/4.MT

https://bitbucket.org/freebsd/freebsd-head/ · Unknown · 82 lines · 81 code · 1 blank · 0 comment · 0 complexity · 62543fa0aad28af55da36a72d6ffe9d4 MD5 · raw file

  1. .\"------------
  2. .\" $Id: 4.MT,v 2.2 2003/04/02 04:06:40 jhaegg Exp $
  3. .\" Cover sheet. Memorandum type 4
  4. .\"------------
  5. .de cov@print-title
  6. .if !d cov*title .@error title (.TL) not defined!
  7. .MOVE 2.8c
  8. .S +2
  9. .ad c
  10. .fi
  11. .B
  12. .cov*title
  13. .br
  14. .S
  15. .R
  16. .ad b
  17. ..
  18. .\"------------
  19. .de cov@print-authors
  20. .SP 0.5
  21. .I
  22. .S +1
  23. .nr cov*i 0 1
  24. .while \\n+[cov*i]<=\\n[cov*au] \{\
  25. .ce
  26. \\*[cov*au!\\n[cov*i]!1]
  27. .br
  28. .\}
  29. .S
  30. .R
  31. ..
  32. .\"------------
  33. .de cov@print-firm
  34. .if d cov*firm \{\
  35. . SP 0.5
  36. . ce
  37. \\*[cov*firm]
  38. .\}
  39. ..
  40. .\"------------
  41. .de cov@print-abstract
  42. .SP 2
  43. .if d cov*abstract \{\
  44. . misc@ev-keep cov*ev
  45. . init@reset
  46. . if \\n[cov*abs-ind]>0 \{\
  47. . in +\\n[cov*abs-ind]u
  48. . ll -\\n[cov*abs-ind]u
  49. . \}
  50. . ce
  51. \fI\\*[cov*abs-name]\fP
  52. . SP 2
  53. . fi
  54. . cov*abstract
  55. . br
  56. . ev
  57. .\}
  58. ..
  59. .\"-----------------
  60. .if d cov*default-firm .if !d cov*firm .ds cov*firm \\*[cov*default-firm]
  61. .if !d cov*mt-printed \{\
  62. . cov@print-title
  63. . cov@print-authors
  64. . cov@print-firm
  65. . if d cov*abstract \{\
  66. . if !\n[cov*abs-arg] .cov@print-abstract
  67. . \}
  68. . SP 2
  69. . nr hd*cur-bline \n[nl]
  70. . ds cov*mt-printed
  71. . pg@enable-top-trap
  72. . pg@enable-trap
  73. .\}
  74. .de CS
  75. .pg@disable-top-trap
  76. .SK
  77. .cov@print-title
  78. .cov@print-authors
  79. .cov@print-firm
  80. .cov@print-abstract
  81. ..