This is the SQLite extension for Tcl using the Tcl Extension

Architecture (TEA).

WWW:	http://www.sqlite.org

PR:		ports/168232
Submitted by:	Pavel I Volkov <pavelivolkov@googlemail.com>

2 files changed, 30 insertions, 0 deletions

diff --git a/databases/tcl-sqlite3/files/example.tcl b/databases/tcl-sqlite3/files/example.tcl
new file mode 100644
index 000000000000..765c3f9ba715
--- /dev/null
+++ b/databases/tcl-sqlite3/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
diff --git a/databases/tcl-sqlite3/files/example.tcl.in b/databases/tcl-sqlite3/files/example.tcl.in
new file mode 100644
index 000000000000..9ce86144ea8b
--- /dev/null
+++ b/databases/tcl-sqlite3/files/example.tcl.in
@@ -0,0 +1,16 @@
+#!%%TCLSH%%
+
+package require sqlite3
+
+if {$argc!=2} {
+  puts stderr "Usage: $argv0 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