util::json::parseArrayElements (private)

 util::json::parseArrayElements tokens nrTokens tokenCursorName \
    resultName

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

Parse the elements of an array

Parameters:

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

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

Testcases:

No testcase defined.

Source code:

    upvar $tokenCursorName tokenCursor
    upvar $resultName result

    while true {
        lappend result [parseValue $tokens $nrTokens tokenCursor]

        if {$tokenCursor == $nrTokens} {
            unexpected $tokenCursor "END" "\",\"|\"\]\""
        } else {
            set token [lindex $tokens $tokenCursor]
            incr tokenCursor

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

XQL Not present:

Generic, PostgreSQL, Oracle