summaryrefslogtreecommitdiff
path: root/databases/tcl-sqlite3/files
diff options
context:
space:
mode:
authorPietro Cerutti <gahr@FreeBSD.org>2025-08-10 21:17:06 +0000
committerPietro Cerutti <gahr@FreeBSD.org>2025-08-10 21:17:06 +0000
commitf890d1b0060bdf615ca89ea51975495a44fab8a7 (patch)
treebb7d12003658043a00efb5abebaced8aa7fee55f /databases/tcl-sqlite3/files
parentdevel/tcl[89]-thread: fix PKGNAME (diff)
Revert "databases/tcl-sqlite3: update to 3.50.3"
This reverts commit 351e3faff8cc2968ce8674bb8ee6108db3e66a35. This was pushed by accident. For now it must stay in bug #285015.
Diffstat (limited to 'databases/tcl-sqlite3/files')
-rw-r--r--databases/tcl-sqlite3/files/example.tcl.in16
1 files changed, 16 insertions, 0 deletions
diff --git a/databases/tcl-sqlite3/files/example.tcl.in b/databases/tcl-sqlite3/files/example.tcl.in
new file mode 100644
index 000000000000..3139b5515407
--- /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
+}
+sqlite3 db [lindex $argv 0]
+db eval [lindex $argv 1] x {
+ foreach v $x(*) {
+ puts "$v = $x($v)"
+ }
+ puts ""
+}
+db close