Return to float.me CVS log

Up to [local] / src / share / me

Annotation of src/share/me/float.me, Revision 1.1

1.1     ! deraadt     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, with or without
        !             6: .\" modification, are permitted provided that the following conditions
        !             7: .\" are met:
        !             8: .\" 1. Redistributions of source code must retain the above copyright
        !             9: .\"    notice, this list of conditions and the following disclaimer.
        !            10: .\" 2. Redistributions in binary form must reproduce the above copyright
        !            11: .\"    notice, this list of conditions and the following disclaimer in the
        !            12: .\"    documentation and/or other materials provided with the distribution.
        !            13: .\" 3. All advertising materials mentioning features or use of this software
        !            14: .\"    must display the following acknowledgement:
        !            15: .\"    This product includes software developed by the University of
        !            16: .\"    California, Berkeley and its contributors.
        !            17: .\" 4. Neither the name of the University nor the names of its contributors
        !            18: .\"    may be used to endorse or promote products derived from this software
        !            19: .\"    without specific prior written permission.
        !            20: .\"
        !            21: .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
        !            22: .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
        !            23: .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
        !            24: .\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
        !            25: .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
        !            26: .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
        !            27: .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
        !            28: .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
        !            29: .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
        !            30: .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
        !            31: .\" SUCH DAMAGE.
        !            32: .\"
        !            33: .\"    @(#)float.me    5.1 (Berkeley) 4/17/91
        !            34: .\"
        !            35: .\"    %beginstrip%
        !            36: .\"
        !            37: .de (z                 \" *** begin floating keep
        !            38: .if \n@>4 .tm >> (z, .z=\n(.z
        !            39: .@D 4 \\$1 \\$2
        !            40: .@(
        !            41: .nr ?T 0
        !            42: ..
        !            43: .de )z                 \" *** end floating keep
        !            44: .if \n@>4 .tm >> )z, .z=\n(.z
        !            45: .sp \\n(zsu
        !            46: .@)
        !            47: .if \n@>4 .tm -- )z << @), .z=\n(.z
        !            48: .rr _0
        !            49: .if !\\n(?b \
        !            50: .      nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
        !            51: .nr dl -\n(.H                  \" fudge factor necessary to make it work
        !            52: .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
        !            53: \{\
        !            54: .      nr ?a 1
        !            55: .      if (\\n(dl>\\n($l)&(\\n($m>1) \
        !            56: .              nr ?w 1         \" mark wider than one column (top)
        !            57: .      ds |x |t
        !            58: .\}
        !            59: .el \
        !            60: \{\
        !            61: .      nr ?b 1
        !            62: .      if (\\n(dl>\\n($l)&(\\n($m>1) \
        !            63: .              nr ?W 1         \" mark wider than one column (bottom)
        !            64: .      nr _b +\\n(dnu
        !            65: .      ch @f -\\n(_bu
        !            66: .      ds |x |b
        !            67: .\}
        !            68: .da \\*(|x                     \" copy to save macro
        !            69: .nf
        !            70: .ls 1
        !            71: .nr ?k 1
        !            72: .if \n@>4 .tm -- )z >> \\*(|x
        !            73: \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
        !            74: .|k\"                          \" and the body
        !            75: .ec
        !            76: .if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
        !            77: .nr ?k 0
        !            78: .rm |k\"                       \" remove the temp macro
        !            79: .da
        !            80: .in 0
        !            81: .ls 1
        !            82: .xl \\n($lu
        !            83: .ev
        !            84: .if \n@>4 .tm << )z, .z=\\n(.z
        !            85: ..
        !            86: .de @k                 \" --- output floating keep
        !            87: .if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
        !            88: .ev 1
        !            89: .nf
        !            90: .ls 1
        !            91: .in 0
        !            92: .sp \\n(zsu
        !            93: .\\$1
        !            94: .ec
        !            95: .br
        !            96: .rm \\$1
        !            97: .ev
        !            98: .nr ?T 0
        !            99: ..
        !           100: .nr c. \n(_0