tmac/me/sh.me

   1 .nr _0 \n(c.
   2 .\"     @(#)sh.me       2.1     8/18/80
   3 .\" This version has had comments stripped; an unstripped version is available.
   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 |x \&\\$2
  12 .       $p "\\*(|x" "\\*($n" \\n($0
  13 .       $0 "\\*(|x" "\\*($n" \\n($0
  14 .       rm |x
  15 .\}
  16 .nr $p 0 1
  17 ..
  18 .de @d
  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
  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
  95 ..
  96 .de uh
  97 .$p "\\$1"
  98 .$0 "\\$1"
  99 ..
 100 .if \n(sf<=0 \
 101 .       nr sf 8
 102 .if \n(sp<=0 \
 103 .       nr sp 10
 104 .if \n(ss<=0 \
 105 .       nr ss 12p
 106 .if \n(si<=0 \
 107 .       nr si 0
 108 .nr c. \n(_0