Sophie

Sophie

distrib > * > 2010.0 > * > by-pkgid > 41ade2a4680c1a0d18a75b33aade72a7 > files > 142

libmetakit-devel-2.4.9.7-7mdv2010.0.i586.rpm

# How to map a Tcl selection result back to a view
#
# Note: it'd be nice to have a "$view loop var { script ... }" in Mk4tcl

if {[catch {package require Mk4tcl}] &&
    [catch {load ./Mk4tcl.so mk4tcl}] &&
    [catch {load ../builds/Mk4tcl.so mk4tcl}] &&
    [catch {load ./Mk4tcl_d.dll mk4tcl}] &&
    [catch {load ../builds/Mk4tcl_d.dll mk4tcl}]} {
  error "cannot load Mk4tcl"
}

mk::file open db
mk::view layout db.squares {x:I y:I}

set count 50000
mk::view size db.squares $count

set t [clock seconds]

mk::loop c db.squares {
  set i [mk::cursor position c]
  mk::set $c x $i y [expr {$i*$i}]
}

puts "init took [expr {[clock seconds] - $t}] seconds"

puts "select timing: [time {set v [mk::select db.squares -regexp y 11111]}]"

puts "results from select:"
foreach i $v {
  foreach {x y} [mk::get db.squares!$i x y] break
  puts [format {%7i: %10d,%d} $i $x $y]
}

set v1 [mk::view new]
foreach i $v {
  $v1 insert end n:I $i
}

puts "contents of v1:"
for {set i 0} {$i < [$v1 size]} {incr i} {
  puts "  [$v1 get $i n]"
}

set v2 [mk::view open db.squares]
puts "the squares view is called '$v2' and contains [$v2 size] rows"

set v3 [$v2 view map $v1]

puts "mapped view:"
for {set i 0} {$i < [$v3 size]} {incr i} {
  foreach {x y} [$v3 get $i x y] break
  puts [format {%7i: %10d,%d} $i $x $y]
}

$v3 close
$v2 close
$v1 close

# The output on this script should be:
# 
# init took 1 seconds
# select timing: 443096 microseconds per iteration
# results from select:
#   10541:      10541,111112681
#   33334:      33334,1111155556
#   48310:      48310,-1961111196
# contents of v1:
#   10541
#   33334
#   48310
# the squares view is called 'view1' and contains 100000 rows
# mapped view:
#       0:      10541,111112681
#       1:      33334,1111155556
#       2:      48310,-1961111196