nsshell::CurrentThreadHandler method context require (public)

 <instance of nsshell::CurrentThreadHandler> context require \
    kernel channel

Defined in /usr/local/ns/tcl/nsshell/shell.tcl

Update kernel timestamp as well as latest channel

Parameters:

kernel (required)

channel (required)

Testcases:

No testcase defined.

Source code:

nsv_set shell_kernels $kernel [ns_time]
nsv_set shell_conn $kernel,channel $channel
if {![nsv_exists shell_conn $kernel,snapshot]} {
    nsv_set -default shell_conn $kernel,snapshot ""
}
#ns_log notice "====  REQUIRE nsv_set -default shell_conn $kernel exists?[namespace exists $kernel]"

if {![namespace exists $kernel]} {
    #
    # Create temporary namespace named "$kernel" for executing
    # command in current thread.
    #
    namespace eval $kernel {
        # Santiphap: Create substitute "ns_conn", since original "ns_conn" in kernel will return "no connection"
        proc ns_conn {args} {
            set kernel [lindex [split [namespace current] ::] end]
            if {[nsv_exists shell_conn "$kernel,$args"]} {
                return [nsv_get shell_conn "$kernel,$args"]
            } else {
                return -code error "bad option \"$args\": must be acceptedcompression, auth, authpassword, authuser, contentfile, contentlength, contentsentlength, driver, files, flags, form, headers, host, id, isconnected, location, method, outputheaders, peeraddr, peerport, pool, port, protocol, query, partialtimes, request, server, sock, start, timeout, url, urlc, urlv, version, or zipaccepted"
            }
        }
        # Santiphap: Create snapshot object, see shell.tcl
        ::ws::snapshot::Snapshot create snapshot -namespace [namespace current]
    }
    # Restore snapshot
    #ns_log notice "SNAPSHOT $kernel restore <[nsv_get shell_conn $kernel,snapshot]>"
    namespace eval $kernel [nsv_get shell_conn $kernel,snapshot]
}

XQL Not present:

Generic, PostgreSQL, Oracle