remove useless example.tcl

it wasn't installed before so no need to bump portrevision

Submitted by:	Pavel Volkov <pavelivolkov@googlemail.com> (by private mail)
This commit is contained in:
Baptiste Daroussin 2012-05-23 12:43:40 +00:00
parent 9f028aea1d
commit 775a657ffa
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=297281

View File

@ -1,14 +0,0 @@
package require sqlite
if {$argc!=2} {
puts stderr "Usage: %s DATABASE SQL-STATEMENT"
exit 1
}
sqlite db [lindex $argv 0]
db eval [lindex $argv 1] x {
foreach v $x(*) {
puts "$v = $x($v)"
}
puts ""
}
db close