diff options
| author | David W. Chapman Jr. <dwcjr@FreeBSD.org> | 2002-09-02 13:21:36 +0000 |
|---|---|---|
| committer | David W. Chapman Jr. <dwcjr@FreeBSD.org> | 2002-09-02 13:21:36 +0000 |
| commit | 7bb30f60b02c0ab5ac152bf44325b4116d7b8a30 (patch) | |
| tree | 23c6d18264598e88f01a20d76a75de3964782bbf /databases/sqlite2/files/example.tcl | |
| parent | Update to 20020902. (diff) | |
Fixup from previous commit
Bump PORTREVISION
Submitted by: maintainer
Notes
Notes:
svn path=/head/; revision=65494
Diffstat (limited to 'databases/sqlite2/files/example.tcl')
| -rw-r--r-- | databases/sqlite2/files/example.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/databases/sqlite2/files/example.tcl b/databases/sqlite2/files/example.tcl new file mode 100644 index 000000000000..765c3f9ba715 --- /dev/null +++ b/databases/sqlite2/files/example.tcl @@ -0,0 +1,14 @@ +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 |