xo::REST method typed_value_to_json (protected)

 <instance of xo::REST> typed_value_to_json type value

Defined in packages/xooauth/tcl/rest-procs.tcl

Parameters:

type
value

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

switch $type {
    "string" {
        set escaped [string map [list \n \\n \t \\t \" \\\" \\ \\\\] $value]
        return [subst {"$escaped"}]
    }
    "array" {
        set r {}
        foreach {pos t v} $value {
            lappend r [:typed_value_to_json $t $v]
        }
        return "\[[join $r ,]\]"
    }
    "document" {
        set r {}
        foreach {name t v} $value {
            lappend r [subst {"$name":[:typed_value_to_json $t $v]}]
        }
        return "{[join $r ,]}"
    }
}
return $value

XQL Not present:

Generic, PostgreSQL, Oracle