jshn: allow json_get_keys/values to refer to the currently selected array/table if...
[project/libubox.git] / sh / jshn.sh
index b27d852..a3f6d11 100644 (file)
@@ -1,6 +1,18 @@
 # functions for parsing and generating json
 
-jshn_append() {
+_json_get_var() {
+       local ___dest="$1"
+       local ___var="$2"
+       eval "$___dest=\"\$${JSON_PREFIX}$___var\""
+}
+
+_json_set_var() {
+       local ___var="$1"
+       local ___val="$2"
+       eval "${JSON_PREFIX}$___var=\"\$___val\""
+}
+
+__jshn_raw_append() {
        local var="$1"
        local value="$2"
        local sep="${3:- }"
@@ -8,66 +20,179 @@ jshn_append() {
        eval "export -- \"$var=\${$var:+\${$var}\${value:+\$sep}}\$value\""
 }
 
-json_init() {
-       [ -n "$JSON_UNSET" ] && eval "unset $JSON_UNSET"
-       export -- JSON_SEQ=0 JSON_STACK= JSON_CUR="JSON_VAR" JSON_UNSET=
+
+_jshn_append() {
+       local __var="$1"
+       local __value="$2"
+       local __sep="${3:- }"
+       local __old_val
+
+       _json_get_var __old_val "$__var"
+       __value="${__old_val:+$__old_val$__sep}$__value"
+       _json_set_var "$__var" "$__value"
+}
+
+_json_export() {
+       local __var="${JSON_PREFIX}$1"
+       local __val="$2"
+
+       export -- "$__var=$__val"
+       _jshn_append "JSON_UNSET" "$__var"
+}
+
+_json_add_key() {
+       local table="$1"
+       local var="$2"
+       _jshn_append "KEYS_${table}" "$var"
+}
+
+_get_var() {
+       local __dest="$1"
+       local __var="$2"
+       eval "$__dest=\"\$$__var\""
 }
 
-json_add_generic() {
+_set_var() {
+       local __var="$1"
+       local __val="$2"
+       eval "$__var=\"\$__val\""
+}
+
+_json_inc() {
+       local _var="$1"
+       local _dest="$2"
+       local _seq
+
+       _json_get_var _seq "$_var"
+       _seq="$((${_seq:-0} + 1))"
+       _json_set_var "$_var" "$_seq"
+       [ -n "$_dest" ] && _set_var "$_dest" "$_seq"
+}
+
+_json_stack_push() {
+       local new_cur="$1"
+       local cur
+
+       _json_get_var cur JSON_CUR
+       _jshn_append JSON_STACK "$cur"
+       _json_set_var JSON_CUR "$new_cur"
+}
+
+_json_add_generic() {
        local type="$1"
        local var="$2"
        local val="$3"
-       local cur="${4:-$JSON_CUR}"
+       local cur="$4"
+
+       [ -n "$cur" ] || _json_get_var cur JSON_CUR
+
+       if [ "${cur%%[0-9]*}" = "JSON_ARRAY" ]; then
+               _json_inc "SEQ_$cur" var
+       else
+               local name="${var//[^a-zA-Z0-9_]/_}"
+               [[ "$name" == "$var" ]] || _json_export "NAME_${cur}_${name}" "$var"
+               var="$name"
+       fi
+
+       _json_export "${cur}_$var" "$val"
+       _json_export "TYPE_${cur}_$var" "$type"
+       _json_add_key "$cur" "$var"
+}
+
+_json_add_table() {
+       local name="$1"
+       local type="$2"
+       local itype="$3"
+       local cur new_cur
+       local seq
+
+       _json_get_var cur JSON_CUR
+       _json_inc JSON_SEQ seq
+
+       local table="JSON_$itype$seq"
+       _json_export "UP_$table" "$cur"
+       _json_export "KEYS_$table" ""
+       [ "$itype" = "ARRAY" ] && _json_export "SEQ_$table" ""
+       _json_stack_push "$table"
+
+       _json_get_var new_cur JSON_CUR
+       _json_add_generic "$type" "$1" "$new_cur" "$cur"
+}
+
+_json_close_table() {
+       local stack new_stack
+
+       _json_get_var stack JSON_STACK
+       _json_set_var JSON_CUR "${stack##* }"
+       new_stack="${stack% *}"
+       [[ "$stack" == "$new_stack" ]] && new_stack=
+       _json_set_var JSON_STACK "$new_stack"
+}
+
+json_set_namespace() {
+       local _new="$1"
+       local _old="$2"
+
+       [ -n "$_old" ] && _set_var "$_old" "$JSON_PREFIX"
+       JSON_PREFIX="$_new"
+}
+
+json_cleanup() {
+       local unset
 
-       export -- "${cur}_$var=$val"
-       export -- "TYPE_${cur}_$var=$type"
-       jshn_append JSON_UNSET "${cur}_$var TYPE_${cur}_$var"
-       jshn_append "KEYS_${cur}" "$var"
+       _json_get_var unset JSON_UNSET
+       [ -n "$unset" ] && eval "unset $unset"
+
+       unset \
+               ${JSON_PREFIX}JSON_SEQ \
+               ${JSON_PREFIX}JSON_STACK \
+               ${JSON_PREFIX}JSON_CUR \
+               ${JSON_PREFIX}JSON_UNSET \
+               ${JSON_PREFIX}KEYS_JSON_VAR \
+               ${JSON_PREFIX}TYPE_JSON_VAR
 }
 
-json_add_table() {
-       JSON_SEQ=$(($JSON_SEQ + 1))
-       jshn_append JSON_STACK "$JSON_CUR"
-       local table="JSON_TABLE$JSON_SEQ"
-       export -- "UP_$table=$JSON_CUR"
-       export -- "KEYS_$table="
-       jshn_append JSON_UNSET "KEYS_$table UP_$table"
-       JSON_CUR="$table"
+json_init() {
+       json_cleanup
+       export -- \
+               ${JSON_PREFIX}JSON_SEQ=0 \
+               ${JSON_PREFIX}JSON_STACK= \
+               ${JSON_PREFIX}JSON_CUR="JSON_VAR" \
+               ${JSON_PREFIX}JSON_UNSET="" \
+               ${JSON_PREFIX}KEYS_JSON_VAR= \
+               ${JSON_PREFIX}TYPE_JSON_VAR=
 }
 
 json_add_object() {
-       local cur="$JSON_CUR"
-       json_add_table
-       json_add_generic object "$1" "$JSON_CUR" "$cur"
+       _json_add_table "$1" object TABLE
 }
 
 json_close_object() {
-       local oldstack="$JSON_STACK"
-       JSON_CUR="${JSON_STACK##* }"
-       JSON_STACK="${JSON_STACK% *}"
-       [[ "$oldstack" == "$JSON_STACK" ]] && JSON_STACK=
+       _json_close_table
 }
 
 json_add_array() {
-       local cur="$JSON_CUR"
-       json_add_table
-       json_add_generic array "$1" "$JSON_CUR" "$cur"
+       _json_add_table "$1" array ARRAY 
 }
 
 json_close_array() {
-       json_close_object
+       _json_close_table
 }
 
 json_add_string() {
-       json_add_generic string "$1" "$2"
+       _json_add_generic string "$1" "$2"
 }
 
 json_add_int() {
-       json_add_generic int "$1" "$2"
+       _json_add_generic int "$1" "$2"
 }
 
 json_add_boolean() {
-       json_add_generic boolean "$1" "$2"
+       _json_add_generic boolean "$1" "$2"
+}
+
+json_add_double() {
+       _json_add_generic double "$1" "$2"
 }
 
 # functions read access to json variables
@@ -77,40 +202,100 @@ json_load() {
 }
 
 json_dump() {
-       jshn -w
+       jshn "$@" ${JSON_PREFIX:+-p "$JSON_PREFIX"} -w 
 }
 
 json_get_type() {
-       local dest="$1"
-       local var="$2"
-       eval "export -- \"$dest=\${TYPE_${JSON_CUR}_$var}\""
+       local __dest="$1"
+       local __cur
+
+       _json_get_var __cur JSON_CUR
+       local __var="${JSON_PREFIX}TYPE_${__cur}_${2//[^a-zA-Z0-9_]/_}"
+       eval "export -- \"$__dest=\${$__var}\"; [ -n \"\${$__var+x}\" ]"
+}
+
+json_get_keys() {
+       local __dest="$1"
+       local _tbl_cur
+
+       if [ -n "$2" ]; then
+               json_get_var _tbl_cur "$2"
+       else
+               _json_get_var _tbl_cur JSON_CUR
+       fi
+       local __var="${JSON_PREFIX}KEYS_${_tbl_cur}"
+       eval "export -- \"$__dest=\${$__var}\"; [ -n \"\${$__var+x}\" ]"
+}
+
+json_get_values() {
+       local _v_dest="$1"
+       local _v_keys _v_val _select=
+
+       unset "$_v_dest"
+       [ -n "$2" ] && {
+               json_select "$2"
+               _select=1
+       }
+
+       json_get_keys _v_keys
+       set -- $_v_keys
+       while [ "$#" -gt 0 ]; do
+               json_get_var _v_val "$1"
+               __jshn_raw_append "$_v_dest" "$_v_val"
+               shift
+       done
+       [ -n "$_select" ] && json_select ..
+
+       return 0
 }
 
 json_get_var() {
-       local dest="$1"
-       local var="$2"
-       eval "export -- \"$dest=\${${JSON_CUR}_$var}\""
+       local __dest="$1"
+       local __cur
+
+       _json_get_var __cur JSON_CUR
+       local __var="${JSON_PREFIX}${__cur}_${2//[^a-zA-Z0-9_]/_}"
+       eval "export -- \"$__dest=\${$__var}\"; [ -n \"\${$__var+x}\" ]"
+}
+
+json_get_vars() {
+       while [ "$#" -gt 0 ]; do
+               local _var="$1"; shift
+               json_get_var "$_var" "$_var"
+       done
 }
 
 json_select() {
        local target="$1"
        local type
+       local cur
 
        [ -z "$1" ] && {
-               JSON_CUR="JSON_VAR"
-               return
+               _json_set_var JSON_CUR "JSON_VAR"
+               return 0
        }
        [[ "$1" == ".." ]] && {
-               eval "JSON_CUR=\"\${UP_$JSON_CUR}\""
-               return;
+               _json_get_var cur JSON_CUR
+               _json_get_var cur "UP_$cur"
+               _json_set_var JSON_CUR "$cur"
+               return 0
        }
        json_get_type type "$target"
        case "$type" in
                object|array)
-                       json_get_var JSON_CUR "$target"
+                       json_get_var cur "$target"
+                       _json_set_var JSON_CUR "$cur"
                ;;
                *)
                        echo "WARNING: Variable '$target' does not exist or is not an array/object"
+                       return 1
                ;;
        esac
 }
+
+json_is_a() {
+       local type
+
+       json_get_type type "$1"
+       [ "$type" = "$2" ]
+}