nsmcp::QuestionBackend method canonicalResult (public)

 <instance of nsmcp::QuestionBackend> canonicalResult json

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

Parameters:

json (required)

Testcases:

No testcase defined.

Source code:

if {[catch {ns_json parse -output triples -- $json} root] || [lindex $root 1] ne "object"} {return $json}
if {[catch {ns_json triples gettype -path structuredContent -- $root}]} {return $json}
set structured [list {} [ns_json triples gettype -path structuredContent -- $root] [ns_json triples getvalue -output triples -path structuredContent -- $root]]
set duplicate [ns_json value -- $structured]
set fields {}
foreach {key type value} [lindex $root 2] {
    if {$key eq "content" && $type eq "array"} {
        set content {}
        set index 0
        foreach {i kind members} $value {
            set omit false
            if {$kind eq "object"} {
                set item [ns_json parse [ns_json value -- [list {} object $members]]]
                if {[dict exists $item type] && [dict get $item type] eq "text"
                    && [dict exists $item text] && [dict get $item text] eq $duplicate} {set omit true}
            }
            if {!$omit} {lappend content $index $kind $members; incr index}
        }
        set value $content
    }
    lappend fields $key $type $value
}
return [ns_json value -- [list {} object $fields]]

XQL Not present:

Generic, PostgreSQL, Oracle