No necesita mucho código bash para implementar clases u objetos en bash.
Digamos, 100 líneas.
Bash tiene matrices asociativas que se pueden usar para implementar un sistema de objetos simple con herencia, métodos y propiedades.
Entonces, podría definir una clase como esta:
class Queue N=10 add=q_add remove=q_remove
La creación de una instancia de esta Cola podría hacerse así:
class Q:Queue N=100
o
inst Q:Queue N=100
Como las clases se implementan con una matriz, class e inst son realmente sinónimos, algo así como en javascript.
Agregar elementos a esta cola podría hacerse así:
$Q add 1 2 aaa bbb "a string"
La eliminación de elementos en una variable X podría hacerse así:
$Q remove X
Y la estructura de descarga de un objeto podría hacerse así:
$Q dump
Lo que devolvería algo como esto:
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=
}
Las clases se crean usando una función de clase como esta:
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"
}
NOTA: Al definir una nueva clase o instancia, puede anular cualquier valor o función de miembro.
Las matrices asociativas Bash tienen una peculiaridad que hace que esto funcione perfectamente: $ Q [0]} es idéntico a $ Q. Esto significa que podemos usar el nombre de matriz para llamar a una función de envío de método:
dispatch(){
local _this=$1 _method=$2 _fn
shift 2
_fn="$_this[$_method]" # reference to method name
${!_fn} $_this "$@"
}
Una desventaja es que no puedo usar [0] para los datos, por lo que mis colas (en este caso) comienzan desde index = 1. Alternativamente, podría haber usado índices asociativos como "q + 0".
Para obtener y establecer miembros, puede hacer algo como esto:
# 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
}
Y para volcar una estructura de objeto, hice esto:
NOTA: Esto no es necesario para OOP en bash, pero es bueno ver cómo se hacen los objetos.
# 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
}
Mi diseño OOP no ha considerado objetos dentro de objetos, excepto para la clase heredada. Puede crearlos por separado o crear un constructor especial como class (). * obj_dump * necesitaría ser modificado para detectar clases internas para imprimirlas recursivamente.
Oh! y defino manualmente una clase ROOT para simplificar la función de clase :
declare -gA ROOT=( \
[this]=ROOT \
[0]="dispatch ROOT" \
[dump]=obj_dump \
[set]="ROOT_set" \
[get]="ROOT_get" \
)
Con algunas funciones de cola definí algunas clases como esta:
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
Creé algunas instancias de cola y las hizo funcionar:
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