Вам не нужно много кода bash для реализации классов или объектов в bash.
Скажем, 100 строк.
Bash имеет ассоциативные массивы, которые можно использовать для реализации простой системы объектов с наследованием, методами и свойствами.
Итак, вы могли бы определить класс следующим образом:
class Queue N=10 add=q_add remove=q_remove
Создание экземпляра этой очереди может быть сделано следующим образом:
class Q:Queue N=100
или
inst Q:Queue N=100
Так как классы реализованы с массивом, класс и экземпляр на самом деле являются синонимами - как в javascript.
Добавление элементов в эту очередь может быть сделано так:
$Q add 1 2 aaa bbb "a string"
Удаление элементов в переменную X может быть сделано следующим образом:
$Q remove X
И выгрузка структуры объекта может быть сделана так:
$Q dump
Что бы вернуть что-то вроде этого:
Q {
parent=Queue {
parent=ROOT {
this=ROOT
0=dispatch ROOT
}
class=Queue
N=10
add=q_add
remove=q_remove
0=dispatch Queue
}
class=Q
N=4
add=q_add
remove=q_remove
0=dispatch Q
1=
2=ccc ddd
3=
4=
}
Классы создаются с использованием функции класса следующим образом:
class(){
local _name="$1:" # append a : to handle case of class with no parent
printf "$FUNCNAME: %s\n" $_name
local _this _parent _p _key _val _members
_this=${_name%%:*} # get class name
_parent=${_name#*:} # get parent class name
_parent=${_parent/:/} # remove handy :
declare -g -A $_this # make class storage
[[ -n $_parent ]] && { # copy parent class members into this class
eval _members=\"\${!$_parent[*]}\" # get indices of members
for _key in $_members; do # inherit members from parent
eval _val=\"\${$_parent[$_key]}\" # get parent value
eval $_this[$_key]=\"$_val\" # set this member
done
}
shift 1
# overwrite with specific values for this object
ROOT_set $_this "$@" "0=dispatch $_this" "parent=${_parent:-ROOT}" "class=$_this"
}
ПРИМЕЧАНИЕ. При определении нового класса или экземпляра вы можете переопределить любое значение или функцию члена.
Ассоциативные массивы Bash имеют причуду, которая делает эту работу аккуратно: $ Q [0]} идентичен $ Q. Это означает, что мы можем использовать имя массива для вызова функции диспетчеризации метода:
dispatch(){
local _this=$1 _method=$2 _fn
shift 2
_fn="$_this[$_method]" # reference to method name
${!_fn} $_this "$@"
}
Недостатком является то, что я не могу использовать [0] для данных, поэтому мои очереди (в данном случае) начинаются с index = 1. В качестве альтернативы я мог бы использовать ассоциативные индексы, такие как «q + 0».
Чтобы получить и установить участников, вы можете сделать что-то вроде этого:
# basic set and get for key-value members
ROOT_set(){ # $QOBJ set key=value
local _this=$1 _exp _key _val
shift
for _exp in "$@"; do
_key=${_exp%%=*}
_val="${_exp#*=}"
eval $_this[$_key]=\"$_val\"
done
}
ROOT_get(){ # $QOBJ get var=key
local _this=$1 _exp _var _key
shift
for _exp in "$@"; do
_var=${_exp%%=*}
_key=${_exp#*=}
eval $_var=\"\${$_this[$_key]}\"
done
}
И свалить структуру объекта, я сделал это:
ПРИМЕЧАНИЕ. Это не требуется для ООП в bash, но приятно видеть, как создаются объекты.
# dump any object
obj_dump(){ # obj_dump <object/class name>
local _this=$1 _j _val _key; local -i _tab=${2:-(${#_this}+2)} # add 2 for " {"
_tab+=2 # hanging indent from {
printf "%s {\n" $_this
eval "_key=\"\${!$_this[*]}\""
for _j in $_key; do # print all members
eval "_val=\"\${$_this[\$_j]}\""
case $_j in
# special treatment for parent
parent) printf "%*s%s=" $_tab "" $_j; ${!_val} dump $(( _tab+${#_j}+${#_val}+2 ));;
*) printf "%*s%s=%s\n" $_tab "" $_j "$_val";;
esac
done
(( _tab-=2 ))
printf "%*s}\n" $_tab ""
return 0
}
Мой дизайн ООП не рассматривал объекты внутри объектов - за исключением унаследованного класса. Вы можете создать их отдельно или создать специальный конструктор, такой как class (). * obj_dump * необходимо изменить, чтобы обнаружить внутренние классы для их рекурсивной печати.
Ой! и я вручную определяю класс ROOT, чтобы упростить функцию класса :
declare -gA ROOT=( \
[this]=ROOT \
[0]="dispatch ROOT" \
[dump]=obj_dump \
[set]="ROOT_set" \
[get]="ROOT_get" \
)
С помощью нескольких функций очереди я определил несколько классов следующим образом:
class Queue \
in=0 out=0 N=10 \
dump=obj_dump \
add=q_add \
empty=q_empty \
full=q_full \
peek=q_peek \
remove=q_remove
class RoughQueue:Queue \
N=100 \
shove=q_shove \
head_drop=q_head_drop
Создал несколько экземпляров Queue и заставил их работать:
class Q:Queue N=1000
$Q add aaa bbb "ccc ddd"
$Q peek X
$Q remove X
printf "X=%s\n" "$X"
$Q remove X
printf "X=%s\n" "$X"
$Q remove X
printf "X=%s\n" "$X"
class R:RoughQueue N=3
$R shove aa bb cc dd ee ff gg hh ii jj
$R dump