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