-json_init() {
- [ -n "$JSON_UNSET" ] && eval "unset $JSON_UNSET"
- export -- JSON_SEQ=0 JSON_STACK= JSON_CUR="JSON_VAR" JSON_UNSET=
+_jshn_append() {
+ # var=$1
+ local _a_value="$2"
+ eval "${JSON_PREFIX}$1=\"\${${JSON_PREFIX}$1} \$_a_value\""
+}
+
+_get_var() {
+ # var=$1
+ # value=$2
+ eval "$1=\"\$$2\""
+}
+
+_set_var() {
+ # var=$1
+ local __val="$2"
+ eval "$1=\"\$__val\""
+}
+
+_json_inc() {
+ # var=$1
+ # dest=$2
+
+ let "${JSON_PREFIX}$1 += 1" "$2 = ${JSON_PREFIX}$1"
+}
+
+_json_add_generic() {
+ # type=$1
+ # name=$2
+ # value=$3
+ # cur=$4
+
+ local var
+ if [ "${4%%[0-9]*}" = "J_A" ]; then
+ _json_inc "S_$4" var
+ else
+ var="${2//[^a-zA-Z0-9_]/_}"
+ [[ "$var" == "$2" ]] || export -- "${JSON_PREFIX}N_${4}_${var}=$2"
+ fi
+
+ export -- \
+ "${JSON_PREFIX}${4}_$var=$3" \
+ "${JSON_PREFIX}T_${4}_$var=$1"
+ _jshn_append "JSON_UNSET" "${4}_$var"
+ _jshn_append "K_$4" "$var"
+}
+
+_json_add_table() {
+ # name=$1
+ # type=$2
+ # itype=$3
+ local cur seq
+
+ _json_get_var cur JSON_CUR
+ _json_inc JSON_SEQ seq
+
+ local table="J_$3$seq"
+ _json_set_var "U_$table" "$cur"
+ export -- "${JSON_PREFIX}K_$table="
+ unset "${JSON_PREFIX}S_$table"
+ _json_set_var JSON_CUR "$table"
+ _jshn_append "JSON_UNSET" "$table"
+
+ _json_add_generic "$2" "$1" "$table" "$cur"
+}
+
+_json_close_table() {
+ local _s_cur
+
+ _json_get_var _s_cur JSON_CUR
+ _json_get_var "${JSON_PREFIX}JSON_CUR" "U_$_s_cur"
+ unset "${JSON_PREFIX}U_$_s_cur"