Differences From:

File tools/tclfossil/lib/tf_db.tcl part of check-in [7f9c5ee722] - tclfossil, starting with db_ commands by mjanssen on 2008-02-03 16:23:38. [view]

To:

File tools/tclfossil/lib/vc/fossil/db-1.0.tm part of check-in [2b9c6df430] - tclfossil: initial directory structure and package split up by mjanssen on 2008-02-19 18:05:51. Also file tools/tclfossil/lib/tf_db.tcl part of check-in [1c92462c04] - tclfossil: added revlist command by mjanssen on 2008-02-03 18:18:43. [view]

@@ -2,7 +2,18 @@
 package require sqlite3
 package require snit
 
 snit::type ::vc::fossil::db {
-    typemethod open_repository {{name {}}} {
+    variable db
+    method open_repository {{name {}}} {
+	sqlite3 db1 c:/src/fossil.fsl
+        set db db1
+    }
+    method revlist {} {
+	$db eval {select uuid from blob}
     }
 }
+
+vc::fossil::db create fossildb
+
+fossildb open_repository
+puts [fossildb revlist]