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