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