Fossil SCM
tclfossil: added revlist command
Commit
1c92462c04fa3fdd1932de154966fba9c481dc2c
Parent
7f9c5ee722d4027…
1 file changed
+12
-1
+12
-1
| --- tools/tclfossil/lib/tf_db.tcl | ||
| +++ tools/tclfossil/lib/tf_db.tcl | ||
| @@ -1,8 +1,19 @@ | ||
| 1 | 1 | package require Tcl 8.5 |
| 2 | 2 | package require sqlite3 |
| 3 | 3 | package require snit |
| 4 | 4 | |
| 5 | 5 | snit::type ::vc::fossil::db { |
| 6 | - typemethod open_repository {{name {}}} { | |
| 6 | + variable db | |
| 7 | + method open_repository {{name {}}} { | |
| 8 | + sqlite3 db1 c:/src/fossil.fsl | |
| 9 | + set db db1 | |
| 10 | + } | |
| 11 | + method revlist {} { | |
| 12 | + $db eval {select uuid from blob} | |
| 7 | 13 | } |
| 8 | 14 | } |
| 15 | + | |
| 16 | +vc::fossil::db create fossildb | |
| 17 | + | |
| 18 | +fossildb open_repository | |
| 19 | +puts [fossildb revlist] | |
| 9 | 20 |
| --- tools/tclfossil/lib/tf_db.tcl | |
| +++ tools/tclfossil/lib/tf_db.tcl | |
| @@ -1,8 +1,19 @@ | |
| 1 | package require Tcl 8.5 |
| 2 | package require sqlite3 |
| 3 | package require snit |
| 4 | |
| 5 | snit::type ::vc::fossil::db { |
| 6 | typemethod open_repository {{name {}}} { |
| 7 | } |
| 8 | } |
| 9 |
| --- tools/tclfossil/lib/tf_db.tcl | |
| +++ tools/tclfossil/lib/tf_db.tcl | |
| @@ -1,8 +1,19 @@ | |
| 1 | package require Tcl 8.5 |
| 2 | package require sqlite3 |
| 3 | package require snit |
| 4 | |
| 5 | snit::type ::vc::fossil::db { |
| 6 | variable db |
| 7 | method open_repository {{name {}}} { |
| 8 | sqlite3 db1 c:/src/fossil.fsl |
| 9 | set db db1 |
| 10 | } |
| 11 | method revlist {} { |
| 12 | $db eval {select uuid from blob} |
| 13 | } |
| 14 | } |
| 15 | |
| 16 | vc::fossil::db create fossildb |
| 17 | |
| 18 | fossildb open_repository |
| 19 | puts [fossildb revlist] |
| 20 |