|
|
1.1 root 1: . \"KS keep - for keep release features. As in IFM
2: .de ]K
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: ..
24: . \"KF - floating keep
25: .de ]J
26: .nr KN \\n(.u
27: .if !\\n(IK .FQ
28: .nr IK +1
29: ..
30: . \"FQ real floating keep processor
31: .de FQ
32: .nr KI \\n(.i
33: .ev 2
34: .br
35: .in \\n(KIu
36: .ps \\n(PS
37: .if \\n(VS>40 .vs \\n(VSu
38: .if \\n(VS<=39 .vs \\n(VSp
39: .ll \\n(LLu
40: .lt \\n(LTu
41: .if \\n(NX>1 .ll \\n(CWu
42: .if \\n(NX>1 .lt \\n(CWu
43: .di KK
44: .nr TB 1
45: ..
46: . \"KE release - everything between keep and release is together
47: .de KE
48: .if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ
49: .if \\n(IK .nr IK -1
50: ..
51: . \"RQ real release
52: .de RQ
53: .br
54: .di
55: .nr NF 0
56: .if \\n(dn-\\n(.t .nr NF 1
57: .if \\n(TC .nr NF 1
58: .if \\n(NF .if !\\n(TB .sp 200
59: .if !\\n(NF .if \\n(TB .nr TB 0
60: .nf
61: .rs
62: .nr TC 5
63: .in 0
64: .ls 1
65: .if \\n(TB=0 .ev
66: .if \\n(TB=0 .br
67: .if \\n(TB=0 .ev 2
68: .if \\n(TB=0 .KK
69: .ls
70: .ce 0
71: .if \\n(TB=0 .rm KK
72: .if \\n(TB .da KJ
73: .if \\n(TB \!.KD \\n(dn
74: .if \\n(TB .KK
75: .if \\n(TB .di
76: .nr TC \\n(TB
77: .if \\n(KN .fi
78: .in
79: .ev
80: ..
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.