Return to float.me CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.lib / me

Annotation of 43BSD/usr.lib/me/float.me, revision 1.1.1.1

1.1       root        1: .nr _0 \n(c.
                      2: .\"    @(#)float.me    2.2     2/26/81
                      3: .\"    %beginstrip%
                      4: .de (z                 \" *** begin floating keep
                      5: .if \n@>4 .tm >> (z, .z=\n(.z
                      6: .@D 4 \\$1 \\$2
                      7: .@(
                      8: .nr ?T 0
                      9: ..
                     10: .de )z                 \" *** end floating keep
                     11: .if \n@>4 .tm >> )z, .z=\n(.z
                     12: .sp \\n(zsu
                     13: .@)
                     14: .if \n@>4 .tm -- )z << @), .z=\n(.z
                     15: .rr _0
                     16: .if !\\n(?b \
                     17: .      nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
                     18: .nr dl -\n(.H                  \" fudge factor necessary to make it work
                     19: .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
                     20: \{\
                     21: .      nr ?a 1
                     22: .      if (\\n(dl>\\n($l)&(\\n($m>1) \
                     23: .              nr ?w 1         \" mark wider than one column (top)
                     24: .      ds |x |t
                     25: .\}
                     26: .el \
                     27: \{\
                     28: .      nr ?b 1
                     29: .      if (\\n(dl>\\n($l)&(\\n($m>1) \
                     30: .              nr ?W 1         \" mark wider than one column (bottom)
                     31: .      nr _b +\\n(dnu
                     32: .      ch @f -\\n(_bu
                     33: .      ds |x |b
                     34: .\}
                     35: .da \\*(|x                     \" copy to save macro
                     36: .nf
                     37: .ls 1
                     38: .nr ?k 1
                     39: .if \n@>4 .tm -- )z >> \\*(|x
                     40: \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
                     41: .|k\"                          \" and the body
                     42: .ec
                     43: .if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
                     44: .nr ?k 0
                     45: .rm |k\"                       \" remove the temp macro
                     46: .da
                     47: .in 0
                     48: .ls 1
                     49: .xl \\n($lu
                     50: .ev
                     51: .if \n@>4 .tm << )z, .z=\\n(.z
                     52: ..
                     53: .de @k                 \" --- output floating keep
                     54: .if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
                     55: .ev 1
                     56: .nf
                     57: .ls 1
                     58: .in 0
                     59: .sp \\n(zsu
                     60: .\\$1
                     61: .ec
                     62: .br
                     63: .rm \\$1
                     64: .ev
                     65: .nr ?T 0
                     66: ..
                     67: .nr c. \n(_0

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.