|
|
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.