Return to float.me CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac / me

Annotation of cci/usr/src/usr.lib/tmac/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: .\" This version has had comments stripped.
                      4: .de (z
                      5: .@D 4 \\$1 \\$2
                      6: .@(
                      7: .nr ?T 0
                      8: ..
                      9: .de )z                 \" *** end floating keep
                     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                  \" fudge factor necessary to make it work
                     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         \" mark wider than one column (top)
                     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         \" mark wider than one column (bottom)
                     28: .      nr _b +\\n(dnu
                     29: .      ch @f -\\n(_bu
                     30: .      ds |x |b
                     31: .\}
                     32: .da \\*(|x                     \" copy to save macro
                     33: .nf
                     34: .ls 1
                     35: .nr ?k 1
                     36: \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
                     37: .|k\"                          \" and the body
                     38: .ec
                     39: .nr ?k 0
                     40: .rm |k\"                       \" remove the temp macro
                     41: .da
                     42: .in 0
                     43: .ls 1
                     44: .xl \\n($lu
                     45: .ev
                     46: ..
                     47: .de @k                 \" --- output floating keep
                     48: .ev 1
                     49: .nf
                     50: .ls 1
                     51: .in 0
                     52: .sp \\n(zsu
                     53: .\\$1
                     54: .ec
                     55: .br
                     56: .rm \\$1
                     57: .ev
                     58: .nr ?T 0
                     59: ..
                     60: .nr c. \n(_0

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