 |
float.me - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
float.me (759B) |
|
--- |
|
1 .nr _0 \n(c. |
|
2 .\" @(#)float.me 2.1 8/18/80 |
|
3 .\" This version has had comments stripped; an unstripped version is ava… |
|
4 .de (z |
|
5 .@D 4 \\$1 \\$2 |
|
6 .@( |
|
7 .nr ?T 0 |
|
8 .. |
|
9 .de )z |
|
10 .sp \\n(zsu |
|
11 .@) |
|
12 .rr _0 |
|
13 .if !\\n(?b \ |
|
14 . nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu |
|
15 .nr dl -\n(.H |
|
16 .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \ |
|
17 \{\ |
|
18 . nr ?a 1 |
|
19 . if (\\n(dl>\\n($l)&(\\n($m>1) \ |
|
20 . nr ?w 1 |
|
21 . ds |x |t |
|
22 .\} |
|
23 .el \ |
|
24 \{\ |
|
25 . nr ?b 1 |
|
26 . if (\\n(dl>\\n($l)&(\\n($m>1) \ |
|
27 . nr ?W 1 |
|
28 . nr _b +\\n(dnu |
|
29 . ch @f -\\n(_bu |
|
30 . ds |x |b |
|
31 .\} |
|
32 .da \\*(|x |
|
33 .nf |
|
34 .ls 1 |
|
35 .nr ?k 1 |
|
36 \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu |
|
37 .eo |
|
38 .cc @ |
|
39 @|k |
|
40 @cc |
|
41 .ec |
|
42 .nr ?k 0 |
|
43 .rm |k |
|
44 .da |
|
45 .in 0 |
|
46 .ls 1 |
|
47 .xl \\n($lu |
|
48 .ev |
|
49 .. |
|
50 .de @k |
|
51 .ev 1 |
|
52 .nf |
|
53 .ls 1 |
|
54 .in 0 |
|
55 .sp \\n(zsu |
|
56 .\\$1 |
|
57 .ec |
|
58 .br |
|
59 .rm \\$1 |
|
60 .ev |
|
61 .nr ?T 0 |
|
62 .. |
|
63 .nr c. \n(_0 |
