util::json::parseObject (private)

 util::json::parseObject tokens nrTokens tokenCursorName

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

Parse an object

Parameters:

tokens - list of tokens
nrTokens - length of $tokens
tokenCursorName - name (in caller's context) of variable holding current position in $tokens

Returns:

parsed object (Tcl dict)

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

Testcases:

No testcase defined.

Source code:

    upvar $tokenCursorName tokenCursor

    if {$tokenCursor == $nrTokens} {
        unexpected $tokenCursor "END" "OBJECT"
    } else {
        set result {}

        set token [lindex $tokens $tokenCursor]

        if {$token eq "\}"} {
            # empty object
            incr tokenCursor
        } else {
            parseObjectMembers $tokens $nrTokens tokenCursor result
        }

        return [list _object_ $result]
    }

XQL Not present:

Generic, PostgreSQL, Oracle