#! /usr/bin/env tclkit
source oomk.kit
package require oomk
mkstorage db info.mk -readonly
[db view logs] as logv
[$logv groupby versions name] as byname
$byname loop c {
  [$c(versions) select -rsort date] as e
  $e loop v {
    puts "EEE $c(name) $v(date) $v(vid) $v(vsn) $v(note)"
  }
}
mk::file open d2 info.mk -readonly
puts [mk::view layout d2.logs]
set lv [mk::view open d2.logs]
puts $lv
puts [$lv size]
set bn [$lv view groupby versions:V name]
puts $bn
puts [$bn size]
$bn loop c1 {
  set d [$bn open $c1 versions]
  set e [$d select -rsort date]
  puts [$e size]
  $e loop v1 {
    puts "WWW [$bn get $c1 name] [$e get $v1 date vid:I vsn note]"
  }
}