|
|
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: .\" @(#)sh.me 2.7 (Berkeley) 9/30/88 ! 18: .\" ! 19: .\" %beginstrip% ! 20: .\" ! 21: .de sh \" *** section heading ! 22: .fi ! 23: .if (\\n(si>0)&(\\n(si<1n) \ ! 24: . nr si \\n(sin ! 25: .ce 0 ! 26: .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 ! 27: .if !"\\$2"_" \ ! 28: \{\ ! 29: . ds |n \&\\$2 ! 30: . $p "\\*(|n" "\\*($n" \\n($0 ! 31: . $0 "\\*(|n" "\\*($n" \\n($0 ! 32: . rm |n ! 33: .\} ! 34: .nr $p 0 1 \" reset .np count ! 35: .. ! 36: .de @d \" --- change section depth ! 37: .if !""\\$1" \ ! 38: . nr $0 \\$1 ! 39: .if \\n($0&(\\n(.$>1) \ ! 40: . nr $\\n($0 \\$2 ! 41: .ds $n \&\" ! 42: .ie \\n($0>=1 \ ! 43: \{\ ! 44: . if '\\n($1'0' \ ! 45: . nr $1 1 ! 46: . if (\\n(.$>=3) .if !"\\$3"-" \ ! 47: . nr $1 \\$3 ! 48: . as $n \\n($1 ! 49: .\} ! 50: .el \ ! 51: . nr $1 0 ! 52: .ie \\n($0>=2 \ ! 53: \{\ ! 54: . if '\\n($2'0' \ ! 55: . nr $2 1 ! 56: . if (\\n(.$>=4) .if !"\\$4"-" \ ! 57: . nr $2 \\$4 ! 58: . as $n .\\n($2 ! 59: .\} ! 60: .el \ ! 61: . nr $2 0 ! 62: .ie \\n($0>=3 \ ! 63: \{\ ! 64: . if '\\n($3'0' \ ! 65: . nr $3 1 ! 66: . if (\\n(.$>=5) .if !"\\$5"-" \ ! 67: . nr $3 \\$5 ! 68: . as $n .\\n($3 ! 69: .\} ! 70: .el \ ! 71: . nr $3 0 ! 72: .ie \\n($0>=4 \ ! 73: \{\ ! 74: . if '\\n($4'0' \ ! 75: . nr $4 1 ! 76: . if (\\n(.$>=6) .if !"\\$6"-" \ ! 77: . nr $4 \\$6 ! 78: . as $n .\\n($4 ! 79: .\} ! 80: .el \ ! 81: . nr $4 0 ! 82: .ie \\n($0>=5 \ ! 83: \{\ ! 84: . if '\\n($5'0' \ ! 85: . nr $5 1 ! 86: . if (\\n(.$>=7) .if !"\\$7"-" \ ! 87: . nr $5 \\$7 ! 88: . as $n .\\n($5 ! 89: .\} ! 90: .el \ ! 91: . nr $5 0 ! 92: .ie \\n($0>=6 \ ! 93: \{\ ! 94: . if '\\n($6'0' \ ! 95: . nr $6 1 ! 96: . if (\\n(.$>=8) .if !"\\$8"-" \ ! 97: . nr $6 \\$8 ! 98: . as $n .\\n($6 ! 99: .\} ! 100: .el \ ! 101: . nr $6 0 ! 102: .. ! 103: .de sx \" *** heading up, no increment (2.1.1 -> 2.1) ! 104: .ce 0 ! 105: .ul 0 ! 106: .nr _0 \\n($0-1 ! 107: .if \\n(.$ .nr _0 +1 ! 108: .if \\n(.$ .nr _0 \\$1 ! 109: .@d \\n(_0 ! 110: .rr _0 ! 111: .$p "" "" \\n($0 ! 112: .nr $p 0 1 \" reset .np count ! 113: .. ! 114: .de uh \" *** unnumbered section heading ! 115: .$p "\\$1" ! 116: .$0 "\\$1" ! 117: .. ! 118: .if \n(sf<=0 \ ! 119: . nr sf 8 \" section font -- Times Bold ! 120: .if \n(sp<=0 \ ! 121: . nr sp 10 \" section title pointsize ! 122: .if \n(ss<=0 \ ! 123: . nr ss 12p \" section prespacing ! 124: .if \n(si<=0 \ ! 125: . nr si 0 \" section indent ! 126: .nr c. \n(_0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.