nsmcp::QuestionService method cancel (public)

 <instance of nsmcp::QuestionService> cancel context handle

Defined in /usr/local/ns/tcl/nsmcp/question-service.tcl

Parameters:

context (required)

handle (required)

Testcases:

No testcase defined.

Source code:

ns_mutex lock ${:mutex}
try {
    set record [:owned $context $handle]
    if {[dict get $record status] eq "queued"} {
        dict set record status cancelled
        set last [lindex [dict get $record turns] end]
        dict set last status cancelled
        dict set record turns [lreplace [dict get $record turns] end end $last]
        nsv_set ${:store} $handle $record
    } elseif {[dict get $record status] eq "running"} {
        dict set record status cancelling
        nsv_set ${:store} $handle $record
    }
} finally {ns_mutex unlock ${:mutex}}
return [:poll $context $handle]

XQL Not present:

Generic, PostgreSQL, Oracle