databases/sqlite3/files/example.tcl.in


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!%%TCLSH_CMD%%

package require sqlite3

if {$argc!=2} {
  puts stderr "Usage: $argv0 DATABASE SQL-STATEMENT"
  exit 1
}
sqlite3 db [lindex $argv 0]
db eval [lindex $argv 1] x {
  foreach v $x(*) {
    puts "$v = $x($v)"
  }
  puts ""
}
db close