Return to float.me CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / me

Annotation of 43BSDReno/share/me/float.me, revision 1.1.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

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