home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / bin / lib / me / sh.me < prev    next >
Text File  |  1980-02-17  |  1KB  |  108 lines
  1. .nr _0 \n(c.
  2. .\" This version has had comments stripped; an unstripped version is available.
  3. .de sh
  4. .if (\\n(si>0)&(\\n(si<1n) \
  5. .    nr si \\n(sin
  6. .ce 0
  7. .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
  8. .if !"\\$2"_" \
  9. \{\
  10. .    ds |x \&\\$2
  11. .    $p "\\*(|x" "\\*($n" \\n($0
  12. .    $0 "\\*(|x" "\\*($n" \\n($0
  13. .    rm |x
  14. .\}
  15. .nr $p 0 1
  16. ..
  17. .de @d
  18. .if !""\\$1" \
  19. .    nr $0 \\$1
  20. .if \\n($0&(\\n(.$>1) \
  21. .    nr $\\n($0 \\$2
  22. .ds $n \&\"
  23. .ie \\n($0>=1 \
  24. \{\
  25. .    if \\n($1=0 \
  26. .        nr $1 1
  27. .    if (\\n(.$>=3) .if !"\\$3"-" \
  28. .        nr $1 \\$3
  29. .    as $n \\n($1
  30. .\}
  31. .el \
  32. .    nr $1 0
  33. .ie \\n($0>=2 \
  34. \{\
  35. .    if \\n($2=0 \
  36. .        nr $2 1
  37. .    if (\\n(.$>=4) .if !"\\$4"-" \
  38. .        nr $2 \\$4
  39. .    as $n .\\n($2
  40. .\}
  41. .el \
  42. .    nr $2 0
  43. .ie \\n($0>=3 \
  44. \{\
  45. .    if \\n($3=0 \
  46. .        nr $3 1
  47. .    if (\\n(.$>=5) .if !"\\$5"-" \
  48. .        nr $3 \\$5
  49. .    as $n .\\n($3
  50. .\}
  51. .el \
  52. .    nr $3 0
  53. .ie \\n($0>=4 \
  54. \{\
  55. .    if \\n($4=0 \
  56. .        nr $4 1
  57. .    if (\\n(.$>=6) .if !"\\$6"-" \
  58. .        nr $4 \\$6
  59. .    as $n .\\n($4
  60. .\}
  61. .el \
  62. .    nr $4 0
  63. .ie \\n($0>=5 \
  64. \{\
  65. .    if \\n($5=0 \
  66. .        nr $5 1
  67. .    if (\\n(.$>=7) .if !"\\$7"-" \
  68. .        nr $5 \\$7
  69. .    as $n .\\n($5
  70. .\}
  71. .el \
  72. .    nr $5 0
  73. .ie \\n($0>=6 \
  74. \{\
  75. .    if \\n($6=0 \
  76. .        nr $6 1
  77. .    if (\\n(.$>=8) .if !"\\$8"-" \
  78. .        nr $6 \\$8
  79. .    as $n .\\n($6
  80. .\}
  81. .el \
  82. .    nr $6 0
  83. ..
  84. .de sx
  85. .ce 0
  86. .ul 0
  87. .nr _0 \\n($0-1
  88. .if \\n(.$ .nr _0 +1
  89. .if \\n(.$ .nr _0 \\$1
  90. .@d \\n(_0
  91. .rr _0
  92. .$p "" "" \\n($0
  93. .nr $p 0 1
  94. ..
  95. .de uh
  96. .$p "\\$1"
  97. .$0 "\\$1"
  98. ..
  99. .if \n(sf<=0 \
  100. .    nr sf 8
  101. .if \n(sp<=0 \
  102. .    nr sp 10
  103. .if \n(ss<=0 \
  104. .    nr ss 12p
  105. .if \n(si<=0 \
  106. .    nr si 0
  107. .nr c. \n(_0
  108.