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