util::json::array2json (private)

 util::json::array2json arrayVal

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

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

Parameters:
arrayVal (required)
[list array values]
Returns:
Valid JSON array string.

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

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