Annotation of 43BSDReno/share/me/float.me, revision 1.1

1.1     ! root        1: .nr _0 \n(c.
        !             2: .\" Copyright (c) 1988 The Regents of the University of California.
        !             3: .\" All rights reserved.
        !             4: .\"
        !             5: .\" Redistribution and use in source and binary forms are permitted
        !             6: .\" provided that the above copyright notice and this paragraph are
        !             7: .\" duplicated in all such forms and that any documentation,
        !             8: .\" advertising materials, and other materials related to such
        !             9: .\" distribution and use acknowledge that the software was developed
        !            10: .\" by the University of California, Berkeley.  The name of the
        !            11: .\" University may not be used to endorse or promote products derived
        !            12: .\" from this software without specific prior written permission.
        !            13: .\" THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
        !            14: .\" IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
        !            15: .\" WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
        !            16: .\"
        !            17: .\"    @(#)float.me    2.5 (Berkeley) 9/30/88
        !            18: .\"
        !            19: .\"    %beginstrip%
        !            20: .\"
        !            21: .de (z                 \" *** begin floating keep
        !            22: .if \n@>4 .tm >> (z, .z=\n(.z
        !            23: .@D 4 \\$1 \\$2
        !            24: .@(
        !            25: .nr ?T 0
        !            26: ..
        !            27: .de )z                 \" *** end floating keep
        !            28: .if \n@>4 .tm >> )z, .z=\n(.z
        !            29: .sp \\n(zsu
        !            30: .@)
        !            31: .if \n@>4 .tm -- )z << @), .z=\n(.z
        !            32: .rr _0
        !            33: .if !\\n(?b \
        !            34: .      nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
        !            35: .nr dl -\n(.H                  \" fudge factor necessary to make it work
        !            36: .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
        !            37: \{\
        !            38: .      nr ?a 1
        !            39: .      if (\\n(dl>\\n($l)&(\\n($m>1) \
        !            40: .              nr ?w 1         \" mark wider than one column (top)
        !            41: .      ds |x |t
        !            42: .\}
        !            43: .el \
        !            44: \{\
        !            45: .      nr ?b 1
        !            46: .      if (\\n(dl>\\n($l)&(\\n($m>1) \
        !            47: .              nr ?W 1         \" mark wider than one column (bottom)
        !            48: .      nr _b +\\n(dnu
        !            49: .      ch @f -\\n(_bu
        !            50: .      ds |x |b
        !            51: .\}
        !            52: .da \\*(|x                     \" copy to save macro
        !            53: .nf
        !            54: .ls 1
        !            55: .nr ?k 1
        !            56: .if \n@>4 .tm -- )z >> \\*(|x
        !            57: \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
        !            58: .|k\"                          \" and the body
        !            59: .ec
        !            60: .if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
        !            61: .nr ?k 0
        !            62: .rm |k\"                       \" remove the temp macro
        !            63: .da
        !            64: .in 0
        !            65: .ls 1
        !            66: .xl \\n($lu
        !            67: .ev
        !            68: .if \n@>4 .tm << )z, .z=\\n(.z
        !            69: ..
        !            70: .de @k                 \" --- output floating keep
        !            71: .if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
        !            72: .ev 1
        !            73: .nf
        !            74: .ls 1
        !            75: .in 0
        !            76: .sp \\n(zsu
        !            77: .\\$1
        !            78: .ec
        !            79: .br
        !            80: .rm \\$1
        !            81: .ev
        !            82: .nr ?T 0
        !            83: ..
        !            84: .nr c. \n(_0

unix.superglobalmegacorp.com

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