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

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