Fossil

Check-in [1c92462c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:tclfossil: added revlist command
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tclfossil-1
Files: files | file ages | folders
SHA1:1c92462c04fa3fdd1932de154966fba9c481dc2c
User & Date: mjanssen 2008-02-03 18:18:43
Context
2008-02-17
00:31
tclfossil: initial version of clone that can get first igots check-in: 60b40f29 user: mjanssen tags: tclfossil-1
2008-02-03
18:18
tclfossil: added revlist command check-in: 1c92462c user: mjanssen tags: tclfossil-1
16:23
tclfossil, starting with db_ commands check-in: 7f9c5ee7 user: mjanssen tags: tclfossil-1
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/tclfossil/lib/tf_db.tcl.

1
2
3
4
5

6


7


8






package require Tcl 8.5
package require sqlite3
package require snit

snit::type ::vc::fossil::db {

    typemethod open_repository {{name {}}} {


    }


}











>
|
>
>

>
>
|
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
package require Tcl 8.5
package require sqlite3
package require snit

snit::type ::vc::fossil::db {
    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]