tmac.skeep 1.3 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889
  1. . \"KS keep - for keep release features. As in IFM
  2. .de KS
  3. .nr KN \\n(.u
  4. .if \\n(IK=0 .if \\n(IF=0 .KQ
  5. .nr IK +1
  6. ..
  7. . \"KQ - real keep processor
  8. .de KQ
  9. .br
  10. .nr KI \\n(.i
  11. .ev 2
  12. .br
  13. .in \\n(KIu
  14. .ps \\n(PS
  15. .if \\n(VS>40 .vs \\n(VSu
  16. .if \\n(VS<=39 .vs \\n(VSp
  17. .ll \\n(LLu
  18. .lt \\n(LTu
  19. .if \\n(NX>1 .ll \\n(CWu
  20. .if \\n(NX>1 .lt \\n(CWu
  21. .di KK
  22. .nr TB 0
  23. .nr KV 0
  24. ..
  25. . \"KF - floating keep
  26. .de KF
  27. .nr KN \\n(.u
  28. .if !\\n(IK .FQ
  29. .nr IK +1
  30. ..
  31. . \"FQ real floating keep processor
  32. .de FQ
  33. .nr KI \\n(.i
  34. .ev 2
  35. .br
  36. .in \\n(KIu
  37. .ps \\n(PS
  38. .if \\n(VS>40 .vs \\n(VSu
  39. .if \\n(VS<=39 .vs \\n(VSp
  40. .ll \\n(LLu
  41. .lt \\n(LTu
  42. .if \\n(NX>1 .ll \\n(CWu
  43. .if \\n(NX>1 .lt \\n(CWu
  44. .di KK
  45. .nr TB 1
  46. .nr KV 0
  47. ..
  48. . \"KP - keep full page
  49. .de KP
  50. .nr KV 1
  51. ..
  52. . \"KE release - everything between keep and release is together
  53. .de KE
  54. .if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
  55. .if \\n(IK .nr IK -1
  56. ..
  57. . \"RQ real release
  58. .de RQ
  59. .br
  60. .nr KI \\n(.i
  61. .di
  62. .nr NF 0
  63. .if \\n(dn-\\n(.t .nr NF 1
  64. .if \\n(TC .nr NF 1
  65. .if \\n(KV .nr NF 1 \" if KV on full page needed, doesn't fit
  66. .if \\n(NF .if !\\n(TB .sp 11i
  67. .if !\\n(NF .if \\n(TB .nr TB 0
  68. .nf
  69. .rs
  70. .nr TC 5
  71. .in 0
  72. .ls 1
  73. .if \\n(TB=0 .ev
  74. .if \\n(TB=0 .br
  75. .if \\n(TB=0 .ev 2
  76. .if \\n(TB=0 .KK
  77. .ls
  78. .ce 0
  79. .if \\n(TB=0 .rm KK
  80. .if \\n(TB .da KJ
  81. .if \\n(TB \!.KD \\n(dn \\n(KV
  82. .if \\n(TB .KK
  83. .if \\n(TB .di
  84. .nr TC \\n(TB
  85. .if \\n(KN .fi
  86. .in
  87. .ev
  88. .in \\n(KIu
  89. ..