Bash Shell 的 OOP 要如何寫?

Linux 的 Bash shell 可以寫簡單的 Shell script, 但是想要用 OOP 來寫的話, 要如何寫?

用 Bash script 寫 OOP 的範例程式可見: http://lab.madscience.nl/oo.sh.txt (備份)


以下程式為上述 Script 整個轉貼於此.

View Raw Code?
  1. #!/bin/bash
  3. # ---------------------------------------------------------------------------
  4. # OO support functions
  5. # Kludged by Pim van Riezen <pi@madscience.nl>
  6. # ---------------------------------------------------------------------------
  7. DEFCLASS=""
  8. CLASS=""
  9. THIS=0
  11. class() {
  12. DEFCLASS="$1"
  13. eval CLASS_${DEFCLASS}_VARS=""
  14. eval CLASS_${DEFCLASS}_FUNCTIONS=""
  15. }
  17. static() {
  18. return 0
  19. }
  21. func() {
  22. local varname="CLASS_${DEFCLASS}_FUNCTIONS"
  23. eval "$varname=\"\${$varname}$1 \""
  24. }
  26. var() {
  27. local varname="CLASS_${DEFCLASS}_VARS"
  28. eval $varname="\"\${$varname}$1 \""
  29. }
  31. loadvar() {
  32. eval "varlist=\"\$CLASS_${CLASS}_VARS\""
  33. for var in $varlist; do
  34. eval "$var=\"\$INSTANCE_${THIS}_$var\""
  35. done
  36. }
  38. loadfunc() {
  39. eval "funclist=\"\$CLASS_${CLASS}_FUNCTIONS\""
  40. for func in $funclist; do
  41. eval "${func}() { ${CLASS}::${func} \"\$*\"; return \$?; }"
  42. done
  43. }
  45. savevar() {
  46. eval "varlist=\"\$CLASS_${CLASS}_VARS\""
  47. for var in $varlist; do
  48. eval "INSTANCE_${THIS}_$var=\"\$$var\""
  49. done
  50. }
  52. typeof() {
  53. eval echo \$TYPEOF_$1
  54. }
  56. new() {
  57. local
  58. local cvar="$2"
  59. shift
  60. shift
  61. local id=$(uuidgen | tr A-F a-f | sed -e "s/-//g")
  62. eval TYPEOF_${id}=$class
  63. eval $cvar=$id
  64. local funclist
  65. eval "funclist=\"\$CLASS_${class}_FUNCTIONS\""
  66. for func in $funclist; do
  67. eval "${cvar}.${func}() { local t=\$THIS; THIS=$id; local c=\$CLASS; CLASS=$class; loadvar; loadfunc; ${class}::${func} \"\$*\"; rt=\$?; savevar; CLASS=\$c; THIS=\$t; return $rt; }"
  68. done
  69. eval "${cvar}.${class} \"\$*\" || true"
  70. }
  72. # ---------------------------------------------------------------------------
  73. # Example code
  74. # ---------------------------------------------------------------------------
  76. # class definition
  77. class Storpel
  78. func Storpel
  79. func setName
  80. func setQuality
  81. func print
  82. var name
  83. var quality
  85. # class implementation
  86. Storpel::Storpel() {
  87. setName "$1"
  88. setQuality "$2"
  89. if [ -z "$name" ]; then setName "Generic"; fi
  90. if [ -z "$quality" ]; then setQuality "Normal"; fi
  91. }
  93. Storpel::setName() { name="$1"; }
  94. Storpel::setQuality() { quality="$1"; }
  95. Storpel::print() { echo "$name ($quality)"; }
  97. # usage
  98. new Storpel one "Storpilator 1000" Medium
  99. new Storpel two
  100. new Storpel three
  102. two.setName "Storpilator 2000"
  103. two.setQuality "Strong"
  105. one.print
  106. two.print
  107. three.print
  109. echo ""
  111. echo "one: $one ($(typeof $one))"
  112. echo "two: $two ($(typeof $two))"
  113. echo "three: $three ($(typeof $two))"

作者: Tsung

對新奇的事物都很有興趣, 喜歡簡單的東西, 過簡單的生活.

發表迴響

這個網站採用 Akismet 服務減少垃圾留言。進一步了解 Akismet 如何處理網站訪客的留言資料。