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     ! 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.