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