Posted to tcl by colin at Sat Apr 03 00:37:31 GMT 2010view raw

  1. # test Sql domain
  2. set sqltestfile testsql.db
  3. if {![file exists $sqltestfile]} {
  4. package require sqlite3
  5. sqlite3 db_test $sqltestfile
  6. db_test eval {CREATE TABLE sources(name text, size int, modify text, fgroup text, owner text, permissions int)}
  7. foreach fn [glob *.tcl] {
  8. foreach {n v} [file attributes $fn] {
  9. set [string trim $n -] $v
  10. }
  11. set name [file tail [file normalize $fn]]
  12. set size [file size $fn]
  13. set modify [file mtime $fn]
  14. db_test eval {INSERT INTO sources VALUES($name, $size, $modify, $group, $owner, $permissions)}
  15. }
  16. db_test close
  17. }
  18.  
  19. package require Sql
  20. Debug on Sql 10
  21. Nub domain /sql/ Sql file $sqltestfile