Return to sh.me CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / tmac / me

Annotation of cci/usr/src/usr.lib/tmac/me/sh.me, revision 1.1.1.1

1.1       root        1: .nr _0 \n(c.
                      2: .\"    @(#)sh.me       2.2     4/10/83
                      3: .\" This version has had comments stripped.
                      4: .de sh
                      5: .if (\\n(si>0)&(\\n(si<1n) \
                      6: .      nr si \\n(sin
                      7: .ce 0
                      8: .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
                      9: .if !"\\$2"_" \
                     10: \{\
                     11: .      ds |n \&\\$2
                     12: .      $p "\\*(|n" "\\*($n" \\n($0
                     13: .      $0 "\\*(|n" "\\*($n" \\n($0
                     14: .      rm |n
                     15: .\}
                     16: .nr $p 0 1                     \" reset .np count
                     17: ..
                     18: .de @d                 \" --- change section depth
                     19: .if !""\\$1" \
                     20: .      nr $0 \\$1
                     21: .if \\n($0&(\\n(.$>1) \
                     22: .      nr $\\n($0 \\$2
                     23: .ds $n \&\"
                     24: .ie \\n($0>=1 \
                     25: \{\
                     26: .      if \\n($1=0 \
                     27: .              nr $1 1
                     28: .      if (\\n(.$>=3) .if !"\\$3"-" \
                     29: .              nr $1 \\$3
                     30: .      as $n \\n($1
                     31: .\}
                     32: .el \
                     33: .      nr $1 0
                     34: .ie \\n($0>=2 \
                     35: \{\
                     36: .      if \\n($2=0 \
                     37: .              nr $2 1
                     38: .      if (\\n(.$>=4) .if !"\\$4"-" \
                     39: .              nr $2 \\$4
                     40: .      as $n .\\n($2
                     41: .\}
                     42: .el \
                     43: .      nr $2 0
                     44: .ie \\n($0>=3 \
                     45: \{\
                     46: .      if \\n($3=0 \
                     47: .              nr $3 1
                     48: .      if (\\n(.$>=5) .if !"\\$5"-" \
                     49: .              nr $3 \\$5
                     50: .      as $n .\\n($3
                     51: .\}
                     52: .el \
                     53: .      nr $3 0
                     54: .ie \\n($0>=4 \
                     55: \{\
                     56: .      if \\n($4=0 \
                     57: .              nr $4 1
                     58: .      if (\\n(.$>=6) .if !"\\$6"-" \
                     59: .              nr $4 \\$6
                     60: .      as $n .\\n($4
                     61: .\}
                     62: .el \
                     63: .      nr $4 0
                     64: .ie \\n($0>=5 \
                     65: \{\
                     66: .      if \\n($5=0 \
                     67: .              nr $5 1
                     68: .      if (\\n(.$>=7) .if !"\\$7"-" \
                     69: .              nr $5 \\$7
                     70: .      as $n .\\n($5
                     71: .\}
                     72: .el \
                     73: .      nr $5 0
                     74: .ie \\n($0>=6 \
                     75: \{\
                     76: .      if \\n($6=0 \
                     77: .              nr $6 1
                     78: .      if (\\n(.$>=8) .if !"\\$8"-" \
                     79: .              nr $6 \\$8
                     80: .      as $n .\\n($6
                     81: .\}
                     82: .el \
                     83: .      nr $6 0
                     84: ..
                     85: .de sx                 \" *** heading up, no increment (2.1.1 -> 2.1)
                     86: .ce 0
                     87: .ul 0
                     88: .nr _0 \\n($0-1
                     89: .if \\n(.$ .nr _0 +1
                     90: .if \\n(.$ .nr _0 \\$1
                     91: .@d \\n(_0
                     92: .rr _0
                     93: .$p "" "" \\n($0
                     94: .nr $p 0 1                     \" reset .np count
                     95: ..
                     96: .de uh                 \" *** unnumbered section heading
                     97: .$p "\\$1"
                     98: .$0 "\\$1"
                     99: ..
                    100: .if \n(sf<=0 \
                    101: .      nr sf 8                 \" section font -- Times Bold
                    102: .if \n(sp<=0 \
                    103: .      nr sp 10                \" section title pointsize
                    104: .if \n(ss<=0 \
                    105: .      nr ss 12p               \" section prespacing
                    106: .if \n(si<=0 \
                    107: .      nr si 0                 \" section indent
                    108: .nr c. \n(_0

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.