Lines Matching refs:expr

63   set tbl   [lindex $args [expr $nArg-2]]
64   set match [lindex $args [expr $nArg-1]]
67   foreach {k v} [lrange $args 0 [expr $nArg-3]] {
131   return [expr $nRow*$pgsz]
155 proc fix_phrase_expr {cols expr colfiltervar} {
159   foreach t $expr {
177 proc fix_near_expr {cols expr colfiltervar} { 
183   lappend out [fix_phrase_expr $cols [lindex $expr 0] iColFilter]
184   foreach {a b} [lrange $expr 1 end] {
193 proc get_single_near_results {tbl expr deferred arrayvar nullvar} {
201   set expr [fix_near_expr $cols $expr iColFilter]
220         set hit [fts3_near_match $d($col) $expr -p counts($docid,$iCol)]
228   set nPhrase [expr ([llength $expr]+1)/2]
256   if {[llength $deferred] && [llength $expr]==1} {
257     set phrase [lindex $expr 0]
315 proc matching_brackets {expr} {
316   if {[string range $expr 0 0]!="(" || [string range $expr end end] !=")"} { 
321   set nExpr [string length $expr]
323     set c [string range $expr $i $i]
328   return [expr ($iBracket==0 && $i==$nExpr)]
331 proc get_near_results {tbl expr deferred arrayvar {nullvar ""}} {
335   set expr [string trim $expr]
336   while { [matching_brackets $expr] } {
337     set expr [string trim [string range $expr 1 end-1]]
346   set expr_length [llength $expr]
348     set op [lindex $expr $i]
360   if {$iBracket!=0} { error "mismatched brackets in: $expr" }
363     get_single_near_results $tbl $expr $deferred aMatchinfo nullentry
365     set eLeft  [lrange $expr 0 [expr $opidx-1]]
366     set eRight [lrange $expr [expr $opidx+1] end]
371     switch -- [lindex $expr $opidx] {
417 proc test_fts3_near_match {tn doc expr res} {
418   fts3_near_match $doc $expr -phrasecountvar p
465   foreach {tn2 expr} {
483     do_fts3query_test 2.$tn.2.$tn2 t1 $expr
517   foreach {tn2 expr def} {
525     do_fts3query_test 3.$tn.4.$tn2 -deferred $def t1 $expr
555       expr {[fts3_zero_long_segments t1 $limit]>0}
557       expr 1