Return to float.me CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / me

Annotation of 43BSDTahoe/usr.lib/me/float.me, revision 1.1.1.1

1.1       root        1: .nr _0 \n(c.
                      2: .\"    @(#)float.me    2.4 (Berkeley) 5/21/88
                      3: .\"
                      4: .\" Copyright (c) 1988 Regents of the University of California.
                      5: .\" All rights reserved.
                      6: .\"
                      7: .\" Redistribution and use in source and binary forms are permitted
                      8: .\" provided that this notice is preserved and that due credit is given
                      9: .\" to the University of California at Berkeley. The name of the University
                     10: .\" may not be used to endorse or promote products derived from this
                     11: .\" software without specific prior written permission. This software
                     12: .\" is provided ``as is'' without express or implied warranty.
                     13: .\"    %beginstrip%
                     14: .\"
                     15: .de (z                 \" *** begin floating keep
                     16: .if \n@>4 .tm >> (z, .z=\n(.z
                     17: .@D 4 \\$1 \\$2
                     18: .@(
                     19: .nr ?T 0
                     20: ..
                     21: .de )z                 \" *** end floating keep
                     22: .if \n@>4 .tm >> )z, .z=\n(.z
                     23: .sp \\n(zsu
                     24: .@)
                     25: .if \n@>4 .tm -- )z << @), .z=\n(.z
                     26: .rr _0
                     27: .if !\\n(?b \
                     28: .      nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
                     29: .nr dl -\n(.H                  \" fudge factor necessary to make it work
                     30: .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \
                     31: \{\
                     32: .      nr ?a 1
                     33: .      if (\\n(dl>\\n($l)&(\\n($m>1) \
                     34: .              nr ?w 1         \" mark wider than one column (top)
                     35: .      ds |x |t
                     36: .\}
                     37: .el \
                     38: \{\
                     39: .      nr ?b 1
                     40: .      if (\\n(dl>\\n($l)&(\\n($m>1) \
                     41: .              nr ?W 1         \" mark wider than one column (bottom)
                     42: .      nr _b +\\n(dnu
                     43: .      ch @f -\\n(_bu
                     44: .      ds |x |b
                     45: .\}
                     46: .da \\*(|x                     \" copy to save macro
                     47: .nf
                     48: .ls 1
                     49: .nr ?k 1
                     50: .if \n@>4 .tm -- )z >> \\*(|x
                     51: \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
                     52: .|k\"                          \" and the body
                     53: .ec
                     54: .if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z
                     55: .nr ?k 0
                     56: .rm |k\"                       \" remove the temp macro
                     57: .da
                     58: .in 0
                     59: .ls 1
                     60: .xl \\n($lu
                     61: .ev
                     62: .if \n@>4 .tm << )z, .z=\\n(.z
                     63: ..
                     64: .de @k                 \" --- output floating keep
                     65: .if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z
                     66: .ev 1
                     67: .nf
                     68: .ls 1
                     69: .in 0
                     70: .sp \\n(zsu
                     71: .\\$1
                     72: .ec
                     73: .br
                     74: .rm \\$1
                     75: .ev
                     76: .nr ?T 0
                     77: ..
                     78: .nr c. \n(_0

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