BSD 4_1c_2 release

[unix-history] / usr / lib / me / src / float.me

diff --git a/usr/lib/me/src/float.me b/usr/lib/me/src/float.me
index 196b5ea..1fafcea 100644 (file)
--- a/usr/lib/me/src/float.me
+++ b/usr/lib/me/src/float.me
@@ -1,14 +1,17 @@
 .nr _0 \n(c.
 .nr _0 \n(c.

-.\"    @(#)float.me    2.1     8/18/80
+.\"    @(#)float.me    2.2     2/26/81

 .\"    %beginstrip%
 .de (z                 \" *** begin floating keep
 .\"    %beginstrip%
 .de (z                 \" *** begin floating keep

+.if \n@>4 .tm >> (z, .z=\n(.z

 .@D 4 \\$1 \\$2
 .@(
 .nr ?T 0
 ..
 .de )z                 \" *** end floating keep
 .@D 4 \\$1 \\$2
 .@(
 .nr ?T 0
 ..
 .de )z                 \" *** end floating keep

+.if \n@>4 .tm >> )z, .z=\n(.z

 .sp \\n(zsu
 .@)
 .sp \\n(zsu
 .@)

+.if \n@>4 .tm -- )z << @), .z=\n(.z

 .rr _0
 .if !\\n(?b \
 .      nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
 .rr _0
 .if !\\n(?b \
 .      nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu


@@ -33,21 +36,22 @@
 .nf
 .ls 1
 .nr ?k 1
 .nf
 .ls 1
 .nr ?k 1

+.if \n@>4 .tm -- )z >> \\*(|x

 \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
 \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu

-.eo
-.cc @
-@|k                            \" and the body
-@cc
+.|k\"                          \" and the body

 .ec
 .ec

+.if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z

 .nr ?k 0
 .nr ?k 0

-.rm |k                         \" remove the temp macro
+.rm |k\"                       \" remove the temp macro

 .da
 .in 0
 .ls 1
 .xl \\n($lu
 .ev
 .da
 .in 0
 .ls 1
 .xl \\n($lu
 .ev

+.if \n@>4 .tm << )z, .z=\\n(.z

 ..
 .de @k                 \" --- output floating keep
 ..
 .de @k                 \" --- output floating keep

+.if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z

 .ev 1
 .nf
 .ls 1
 .ev 1
 .nf
 .ls 1