diff options
| author | Brian Feldman <green@FreeBSD.org> | 2004-08-31 19:06:39 +0000 |
|---|---|---|
| committer | Brian Feldman <green@FreeBSD.org> | 2004-08-31 19:06:39 +0000 |
| commit | 1520d33f8df0a3efd783732310ef4bae4850a94e (patch) | |
| tree | cffdaa9b62d5ad943951ccca1fccc607b5f0e8c7 /databases/sqlite34/files/example.tcl | |
| parent | Add a dependency towards databases/pear-DB since it is no more (diff) | |
Add SQLite 3 (in beta form).
Notes
Notes:
svn path=/head/; revision=117752
Diffstat (limited to 'databases/sqlite34/files/example.tcl')
| -rw-r--r-- | databases/sqlite34/files/example.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/databases/sqlite34/files/example.tcl b/databases/sqlite34/files/example.tcl new file mode 100644 index 000000000000..765c3f9ba715 --- /dev/null +++ b/databases/sqlite34/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 |