util::json::parseObjectMembers (private)

 util::json::parseObjectMembers tokens nrTokens tokenCursorName \
    objectDictName

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

Parse the members of an object

Parameters:

tokens (required)

list of tokens

nrTokens (required)

length of $tokens

tokenCursorName (required)

name (in caller's context) of variable holding current position in $tokens

objectDictName (required)

name (in caller's context) of dict representing the JSON object of which to parse the next member

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

Testcases:

No testcase defined.

Source code:

    upvar $tokenCursorName tokenCursor
    upvar $objectDictName objectDict

    while true {
        parseObjectMember $tokens $nrTokens tokenCursor objectDict

        set token [lindex $tokens $tokenCursor]
        incr tokenCursor

        switch -exact $token {
            "," {
                # continue
            }
            "\}" {
                break
            }
            default {
                unexpected $tokenCursor $token "\",\"|\"\}\""
            }
        }
    }

XQL Not present:

Generic, PostgreSQL, Oracle