nsmcp::Protocol method handle (public)

 <instance of nsmcp::Protocol> handle context body

Defined in /usr/local/ns/tcl/nsmcp/lib/protocol.tcl

Parameters:

context (required)

body (required)

Testcases:

No testcase defined.

Source code:

set null {{} null {}}
if {[catch {
    ns_json parse -maxdepth 32 -maxstring 65536 -maxcontainer 256  -validatenumbers -output triples -- $body
} request]} {
    return [dict create status 400 body [:error $null -32700 "Parse error"]]
}
set id $null
set hasId 0
if {[catch {
    :uniqueMembers $request
    if {[lindex $request 1] ne "object"} {error "expected object"}
    set hasId [expr {![catch {ns_json triples gettype -path id -- $request} idType]}]
    if {$hasId} {
        set id [list {} $idType [:parameter $request id {string number}]]
    }
    if {[:parameter $request jsonrpc string] ne "2.0"} {error "invalid JSON-RPC version"}
    set method [:parameter $request method string]
    set params {{} object {}}
    if {![catch {ns_json triples gettype -path params -- $request}]} {
        set params [list {} object [:parameter $request params object]]
    }
}]} {
    return [dict create status 400 body [:error $null -32600 "Invalid request"]]
}
if {!$hasId} {
    # Notifications cannot invoke tools. No asynchronous work is supported.
    return [dict create status 202 body {}]
}
if {[catch {:dispatch $context $method $params} result options]} {
    set code -32603; set message "Internal error"
    set ec [dict get $options -errorcode]
    if {[lrange $ec 0 1] eq {NSMCP RPC}} {
        set code [lindex $ec 2]; set message $result
    }
    return [dict create status 200 body [:error $id $code $message]]
}
return [dict create status 200 body [ns_json value -- [list {} object  [list jsonrpc string 2.0 id [lindex $id 1] [lindex $id 2]  result object [lindex $result 2]]]]]

XQL Not present:

Generic, PostgreSQL, Oracle