# cur=$4
local var
- if [ "${4%%[0-9]*}" = "JSON_ARRAY" ]; then
- _json_inc "SEQ_$4" var
+ if [ "${4%%[0-9]*}" = "J_A" ]; then
+ _json_inc "S_$4" var
else
- local name="${2//[^a-zA-Z0-9_]/_}"
- [[ "$name" == "$2" ]] || export -- "${JSON_PREFIX}NAME_${4}_${name}=$2"
- var="$name"
+ var="${2//[^a-zA-Z0-9_]/_}"
+ [[ "$var" == "$2" ]] || export -- "${JSON_PREFIX}N_${4}_${var}=$2"
fi
- local cur_var=
export -- \
"${JSON_PREFIX}${4}_$var=$3" \
- "${JSON_PREFIX}TYPE_${4}_$var=$1"
+ "${JSON_PREFIX}T_${4}_$var=$1"
_jshn_append "JSON_UNSET" "${4}_$var"
- _jshn_append "KEYS_$4" "$var"
+ _jshn_append "K_$4" "$var"
}
_json_add_table() {
_json_get_var cur JSON_CUR
_json_inc JSON_SEQ seq
- local table="JSON_$3$seq"
- _json_set_var "UP_$table" "$cur"
- export -- "${JSON_PREFIX}KEYS_$table="
- unset "${JSON_PREFIX}SEQ_$table"
+ 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"
local _s_cur
_json_get_var _s_cur JSON_CUR
- _json_get_var "${JSON_PREFIX}JSON_CUR" "UP_$_s_cur"
- unset "${JSON_PREFIX}UP_$_s_cur"
+ _json_get_var "${JSON_PREFIX}JSON_CUR" "U_$_s_cur"
}
json_set_namespace() {
local unset tmp
_json_get_var unset JSON_UNSET
- for tmp in $unset JSON_VAR; do
+ for tmp in $unset J_V; do
unset \
- ${JSON_PREFIX}UP_$tmp \
- ${JSON_PREFIX}KEYS_$tmp \
- ${JSON_PREFIX}SEQ_$tmp \
- ${JSON_PREFIX}TYPE_$tmp \
- ${JSON_PREFIX}NAME_$tmp \
+ ${JSON_PREFIX}U_$tmp \
+ ${JSON_PREFIX}K_$tmp \
+ ${JSON_PREFIX}S_$tmp \
+ ${JSON_PREFIX}T_$tmp \
+ ${JSON_PREFIX}N_$tmp \
${JSON_PREFIX}$tmp
done
json_init() {
json_cleanup
+ export -n ${JSON_PREFIX}JSON_SEQ=0
export -- \
- ${JSON_PREFIX}JSON_SEQ=0 \
- ${JSON_PREFIX}JSON_CUR="JSON_VAR" \
- ${JSON_PREFIX}KEYS_JSON_VAR= \
- ${JSON_PREFIX}TYPE_JSON_VAR=
+ ${JSON_PREFIX}JSON_CUR="J_V" \
+ ${JSON_PREFIX}K_J_V=
}
json_add_object() {
- _json_add_table "$1" object TABLE
+ _json_add_table "$1" object T
}
json_close_object() {
}
json_add_array() {
- _json_add_table "$1" array ARRAY
+ _json_add_table "$1" array A
}
json_close_array() {
_json_add_generic double "$1" "$2" "$cur"
}
+json_add_null() {
+ local cur
+ _json_get_var cur JSON_CUR
+ _json_add_generic null "$1" "" "$cur"
+}
+
+json_add_fields() {
+ while [ "$#" -gt 0 ]; do
+ local field="$1"
+ shift
+
+ local name="${field%%=*}"
+ local val="${field#*=}"
+ [ "$name" != "$val" ] || val=""
+
+ local type="${name#*:}"
+ [ "$type" != "$name" ] || type=string
+ name="${name%%:*}"
+
+ case "$type" in
+ string|int|boolean|double)
+ local cur
+ _json_get_var cur JSON_CUR
+ _json_add_generic "$type" "$name" "$val" "$cur"
+ ;;
+ esac
+ done
+}
+
# functions read access to json variables
+json_compact() {
+ JSON_NONEWLINE=1
+ JSON_INDENT=
+}
+
+json_pretty() {
+ JSON_NONEWLINE=
+ JSON_INDENT=1
+}
+
json_load() {
eval "`jshn -r "$1"`"
}
+json_load_file() {
+ eval "`jshn -R "$1"`"
+}
+
json_dump() {
- jshn "$@" ${JSON_PREFIX:+-p "$JSON_PREFIX"} -w
+ jshn "$@" ${JSON_PREFIX:+-p "$JSON_PREFIX"} ${JSON_NONEWLINE:+-n} ${JSON_INDENT:+-i} -w
}
json_get_type() {
local __cur
_json_get_var __cur JSON_CUR
- local __var="${JSON_PREFIX}TYPE_${__cur}_${2//[^a-zA-Z0-9_]/_}"
+ local __var="${JSON_PREFIX}T_${__cur}_${2//[^a-zA-Z0-9_]/_}"
eval "export -- \"$__dest=\${$__var}\"; [ -n \"\${$__var+x}\" ]"
}
else
_json_get_var _tbl_cur JSON_CUR
fi
- local __var="${JSON_PREFIX}KEYS_${_tbl_cur}"
+ local __var="${JSON_PREFIX}K_${_tbl_cur}"
eval "export -- \"$__dest=\${$__var}\"; [ -n \"\${$__var+x}\" ]"
}
local cur
[ -z "$1" ] && {
- _json_set_var JSON_CUR "JSON_VAR"
+ _json_set_var JSON_CUR "J_V"
return 0
}
[[ "$1" == ".." ]] && {
_json_get_var cur JSON_CUR
- _json_get_var cur "UP_$cur"
- unset "${JSON_PREFIX}UP_$cur"
+ _json_get_var cur "U_$cur"
_json_set_var JSON_CUR "$cur"
return 0
}
case "$type" in
object|array)
json_get_var cur "$target"
- _json_get_var "${JSON_PREFIX}UP_$cur" JSON_CUR
_json_set_var JSON_CUR "$cur"
;;
*)
json_get_type type "$1"
[ "$type" = "$2" ]
}
+
+json_for_each_item() {
+ [ "$#" -ge 2 ] || return 0
+ local function="$1"; shift
+ local target="$1"; shift
+ local type val
+
+ json_get_type type "$target"
+ case "$type" in
+ object|array)
+ local keys key
+ json_select "$target"
+ json_get_keys keys
+ for key in $keys; do
+ json_get_var val "$key"
+ eval "$function \"\$val\" \"\$key\" \"\$@\""
+ done
+ json_select ..
+ ;;
+ *)
+ json_get_var val "$target"
+ eval "$function \"\$val\" \"\" \"\$@\""
+ ;;
+ esac
+}