30 proc rtree_depth {db zTab} {  argument
31   $db one "SELECT rtreedepth(data) FROM ${zTab}_node WHERE nodeno=1"
34 proc rtree_nodedepth {db zTab iNode} {
35   set iDepth [rtree_depth $db $zTab]
39     set sql "SELECT parentnode FROM ${zTab}_parent WHERE nodeno = $ii"
49 proc rtree_ndim {db zTab} {  argument
50   set nDim [expr {(([llength [$db eval "pragma table_info($zTab)"]]/6)-1)/2}]
55 proc rtree_node {db zTab iNode {iPrec 6}} {
56   set nDim [rtree_ndim $db $zTab]
58     SELECT rtreenode($nDim, data) FROM ${zTab}_node WHERE nodeno = $iNode
73 proc rtree_mincells {db zTab} {  argument
74   set n [$db one "select length(data) FROM ${zTab}_node LIMIT 1"]
75   set nMax [expr {int(($n-4)/(8+[rtree_ndim $db $zTab]*2*4))}]
82 proc rtree_check {db zTab} {  argument
87     rtree_node_check $db $zTab 1 [rtree_depth $db $zTab]
93   set nNode   [$db one "SELECT count(*) FROM ${zTab}_node"]
94   set nRow    [$db one "SELECT count(*) FROM ${zTab}"]
95   set nRowid  [$db one "SELECT count(*) FROM ${zTab}_rowid"]
96   set nParent [$db one "SELECT count(*) FROM ${zTab}_parent"]
99     error "Wrong number of entries in ${zTab}_parent"
102     error "Wrong number of entries in ${zTab}_rowid"
108 proc rtree_node_check {db zTab iNode iDepth} {
112   set node [rtree_node $db $zTab $iNode]
115   if {$iNode != 1 && [llength $node]<[rtree_mincells $db $zTab]} {
119   if {$iNode == 1 && [llength $node]==1 && [rtree_depth $db $zTab]>0} {
120     set depth [rtree_depth $db $zTab]
130       set shouldbe [rtree_node_check $db $zTab [lindex $cell 0] $d]
138   set mapping_table "${zTab}_parent" 
141     set mapping_table "${zTab}_rowid"
166 proc rtree_dump {db zTab} {  argument
168   set nDim [expr {(([llength [$db eval "pragma table_info($zTab)"]]/6)-1)/2}]
169   set sql "SELECT nodeno, rtreenode($nDim, data) AS node FROM ${zTab}_node"
176 proc rtree_nodetreedump {db zTab zIndent iDepth iNode} {
178   set node [rtree_node $db $zTab $iNode 1]
183       append ret [rtree_nodetreedump $db $zTab "$zIndent  " [expr $iDepth-1] $i]
189 proc rtree_treedump {db zTab} {  argument
190   set d [rtree_depth $db $zTab]
191   rtree_nodetreedump $db $zTab "" $d 1