|
|
1.1 root 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: .di
61: .nr NF 0
62: .if \\n(dn-\\n(.t .nr NF 1
63: .if \\n(TC .nr NF 1
64: .if \\n(KV .nr NF 1 \" if KV on full page needed, doesn't fit
65: .if \\n(NF .if !\\n(TB .sp 11i
66: .if !\\n(NF .if \\n(TB .nr TB 0
67: .nf
68: .rs
69: .nr TC 5
70: .in 0
71: .ls 1
72: .if \\n(TB=0 .ev
73: .if \\n(TB=0 .br
74: .if \\n(TB=0 .ev 2
75: .if \\n(TB=0 .KK
76: .ls
77: .ce 0
78: .if \\n(TB=0 .rm KK
79: .if \\n(TB .da KJ
80: .if \\n(TB \!.KD \\n(dn \\n(KV
81: .if \\n(TB .KK
82: .if \\n(TB .di
83: .nr TC \\n(TB
84: .if \\n(KN .fi
85: .in
86: .ev
87: ..
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.