Artifact a0e7b78210a1b068c540cfa534ac723bd7ea28ec:

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.

0000: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
0010: 54 63 6c 20 38 2e 35 0a 70 61 63 6b 61 67 65 20  Tcl 8.5.package 
0020: 72 65 71 75 69 72 65 20 73 71 6c 69 74 65 33 0a  require sqlite3.
0030: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
0040: 73 6e 69 74 0a 0a 73 6e 69 74 3a 3a 74 79 70 65  snit..snit::type
0050: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 64   ::vc::fossil::d
0060: 62 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65  b {.    variable
0070: 20 64 62 0a 20 20 20 20 6d 65 74 68 6f 64 20 6f   db.    method o
0080: 70 65 6e 5f 72 65 70 6f 73 69 74 6f 72 79 20 7b  pen_repository {
0090: 7b 6e 61 6d 65 20 7b 7d 7d 7d 20 7b 0a 09 73 71  {name {}}} {..sq
00a0: 6c 69 74 65 33 20 64 62 31 20 63 3a 2f 73 72 63  lite3 db1 c:/src
00b0: 2f 66 6f 73 73 69 6c 2e 66 73 6c 0a 20 20 20 20  /fossil.fsl.    
00c0: 20 20 20 20 73 65 74 20 64 62 20 64 62 31 0a 20      set db db1. 
00d0: 20 20 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20     }.    method 
00e0: 72 65 76 6c 69 73 74 20 7b 7d 20 7b 0a 09 24 64  revlist {} {..$d
00f0: 62 20 65 76 61 6c 20 7b 73 65 6c 65 63 74 20 75  b eval {select u
0100: 75 69 64 20 66 72 6f 6d 20 62 6c 6f 62 7d 0a 20  uid from blob}. 
0110: 20 20 20 7d 0a 7d 0a 0a 76 63 3a 3a 66 6f 73 73     }.}..vc::foss
0120: 69 6c 3a 3a 64 62 20 63 72 65 61 74 65 20 66 6f  il::db create fo
0130: 73 73 69 6c 64 62 0a 0a 66 6f 73 73 69 6c 64 62  ssildb..fossildb
0140: 20 6f 70 65 6e 5f 72 65 70 6f 73 69 74 6f 72 79   open_repository
0150: 0a 70 75 74 73 20 5b 66 6f 73 73 69 6c 64 62 20  .puts [fossildb 
0160: 72 65 76 6c 69 73 74 5d 0a                       revlist].