From 7bb30f60b02c0ab5ac152bf44325b4116d7b8a30 Mon Sep 17 00:00:00 2001
From: "David W. Chapman Jr." <dwcjr@FreeBSD.org>
Date: Mon, 2 Sep 2002 13:21:36 +0000
Subject: Fixup from previous commit Bump PORTREVISION

Submitted by:	maintainer
---
 databases/sqlite2/files/example.tcl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 databases/sqlite2/files/example.tcl

(limited to 'databases/sqlite2/files/example.tcl')

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
-- 
cgit v1.2.3