util::json::object2json (private)

 util::json::object2json objectVal

Defined in packages/acs-tcl/tcl/json-procs.tcl

Generate a JSON string for a two-element Tcl JSON object list.

Parameters:
objectVal (required)
[list object values]
Returns:
Valid JSON object string.

Partial Call Graph (max 5 caller/called nodes):
%3 util::json::gen_inner util::json::gen_inner (private) util::json::object2json util::json::object2json util::json::gen_inner->util::json::object2json

Testcases:
No testcase defined.
Source code:
    set values {}
    foreach {key val} $objectVal {
        if { $val eq "" } {
            lappend values "\"$key\":\"\""
        } else {
            lappend values "\"$key\":[util::json::gen_inner $val]"
        }
    }
    return "\{[ns_dbquotelist $values]\}"
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: